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INTRODUCTION 

Most Of the functions of the terminal are implemented in firmware rather than 
nardware. mis reduces the coirplexity of tne hardware ana allows qreater 
flexibility m tne implementation of the various termindl functions. 
Additionally, functions can be modified with little, if any, impact on tne 
nardware. 

The firmware for the HP 2o45a Is divided up into five sections: wain code, I/O 
Subsystem, Keyboard, Data Communications (Data Comm), and Alternate 1/u. Ttie 
2645 uses only tne first four sections. Tne alternate I/O section Is intended 
for user-defined I/O devices. Tne I/O Subsystem section is optional witn the 
printer subsystem and/or cartridge tape drives. Additional space Is provided 
for extended functions required in bi-lingual terminals. 

MfeiMOR^ ALLOCATION 

The micro-processor used in the hP 2645A has an addressing range of 64K 
(0-65535). In general, the first 48K tO-4dK) region is allocated to firmware, 
the next 4K (48-52^), for buffers; and the last 12K C52-64K), for display data. 
A 4K area in the firmware region (32-36K) is used tor memory mapped l/u. 

Firmware Allocation 



Each firmware section is allocated a unique region of memory (Fioure l). The 
amount of memory allocation tor eacn section is as follows; 

Section Size of Section (k) 



Main Code 

1/0 Subsystem 

Keyboard 

Data Communications 

Alternate 1/0 

Bi-lingual Code 



10 


8 


I 


4 


2-4 


2-4 
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Display Area Allocation 

The upper portion of tne display area is reserved for variables storage and 
device i/o bufters. The usage ot the variables storage and i/u buffers is 
defined by the firm^^are. Part of the variables storage area Is reserved tor 
common variables (see "Common Area Allocation" section), if no buffer space is 
present, (4B-52K), Data Comm buffers are allocated front the display area. The 
remaining display area is then available for display data (Figure 2). A miniTium 
of 4K (60-64K) of display memory is included in the HP 2b4bA and can be expanded 
to 12K. The actual amount of display memory availaole is determined by tne 
initialization routine in tne Main Code module. The display area must be a 
contiguous region of memory. 



Fast RAM Allocation 



A 2bo-byte PAM area is Included on each Control Memory Printed Circuit Assembly 
(PCA). This memory is accessed over the top plane connector between tne 
Processor (8080A-2) and Control Memory PCA's, as are the Rum's. This eliminates 
the bus protocol and access contention encountered on oottom plane accesses. 
Thus, a nlgher access rate is obtained for memory references over the too plane. 

The HAM on a Control Memory PCA configured for the 0-24K range is accessed with 
addresses in the range 110400-110777 (octal) inclusively, and a Control oiemory 
PCA configured for 24-48K is accessed with addresses in the range 110000-110377 
(octal), only tne Ram of the first Control Memory FCA Is defined (Figure 3). 

Two vectors are defined in the Fast HAM area: Interrupt and Display Scan. Fach 
vector occupies three oytes. Initially, the vectors are set to the return 
operation code (RFT) for the terminals micro-processor. A third vector is 
reservea for special terminal usage. This vector is not normally initialized to 
the return code unless special code is loaded in tiie terminal. 

The "interrupt vector" is called each time an Interrupt occurs, when called, 
the original A-register and program status word (PSW) are already stored on the 
stacK and the A-register is set to the interrupt number (1-7), Tne interrupt 
vector is intially set to a return code (RET), Interrupts may be trapped oy 
storing a jump (JMP) to a trap routine in the interrupt vector. 

The display scan vector is used by bi-lingual terminals to maintain the current 
mode (bi-lingual/normal ) , A call to the locate cursor routine (RCADRA) is 
inserted in this vector to cause the current display enhancement variable 
(LSTDCD) to be updated to correspond to the current cursor location. This 
vector is called periodically by the monitor routine in the wain code module. 
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24 
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30 
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K 
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Figure 1. Memory Allocation Map 
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COMMON VARlABLr:S 


MAIiM CGDE 
VARIABLES 


KElfBOARD VARiABLES 


DATA COHri 
VARIABLt:S 




ALieRNATK I/O VARIABLES 


MESSAGE BUFFER 



DEVICE 

I/O 
BUFFERS 

DISPLAY 
AREA 



177/77 (Octal) 
C4bt ovtes) 

177720 

(176 bytes) 

177440 

(32 bytes) 
177 40U 

(128 bvtes) 

J 77200 

(24 Dytes) 
177150 

(24 Dvtes) 
177120 

i80 Dytes) 
177000 



(512 bytes) 



176000 



(up to 12K bytes) 



t --«--------«- ----«-- — -.-- + 



DSPBGAi 



Figure 2, Display Area Allocation Map 
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1 KEYBOARD 


1 VARIABLES 


1 (64 bytes) 


1 DATA COMM 


i VARIABLES 


1 (64 bytes) 


1 ALTERNATE I/O 
I VARIABLES 
1 (23 bytes) |<<<1»> 
j«<2>>>( UNUSED 


1 STACK 





+ inooo 



110700 



U0600 



t U0540 



r. Display vScan (110550-110552) 
2. Interrupt (110545-110547) 



•I- 110400 



Figure 3. Fast RAM Allocation Map 
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CODE ^^ODUl.fe, DESCRIPTinNS 



The iollowing sections describe the code Intertace for each of tne code mooules 
in tne HP 2645A: wain Code, L/0, KeyDoard, Data Cornm, and Alternate I/O, An 
overall functional description is given tor each code module, followed by a 
specification and a general functional description for eacn entry point. 



GENERAL SPfcXIFICATIO.NS 



Constants 



The firmware is divided into 2K partitions to correspond to the size of the pum 
chips used In the HP 2645A. The first two and last tnree bytes of each 
partition contain pre-defined values. 

The first two oytes are used to identify the Buw version and to verify that tne 
ROrt is loaded in the correct location. The first oyte contains a value from "p" 
to "^" (OlOlOOOO to 01011111). The upper four bits are al^^ays UIOI and tne 
lower four bits represent the version number (O-lb). The secona oyte is set to 
the most significant eight bits of tne i6-bit address corresponding to that 
location. By coinparing the second oyte to the actual aadress usea to reference 
the location, the diagnostic can determine if the kD^5 is properly loaded. 

^Ihe last three bytes contain the Ib-oit CF^C-16 remainder and the checksum for 
the bit pattern of the RDM. The checKsum is contained in tne last oyte. The 
checksum is used by the self-test routine to verify the bit pattern of tne ROM. 
The CRC remainder is used by the terminal diagnostic as anotner chec< on tne bit 
pattern of the ROM. 



Entry Vectors 



Entry into each of the modules is made through vectors stored in the lo^er 
address portion of the module's address space. in general, these vectors 
consist of "jumps" (JMP) into routines within the module. 



Subroutine Specifications 



The subroutihe descriptions will specify tne parameters to be included in the 

registers on entry and the register results on exit. Any registers not 

specified in the exit list retain their entry values. Tne processor flags (S, 

Z, P, and C) are generally altered by the suoroutines. Certain routines use the 

processor flags to signify different return conditions. These conditions are 
specified in the subroutine descriptions. 
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The names given in the subroutine description headers are the actual names used 
within the code module. The names specified within parentheses are the names 
used oy external code PlocKs to reference the subroutine. 

indentation in the subroutine headers are used to indicate values related to a 
specific entry or exit condition (see description for "KCADBA" in Main Code 
description) . 

The subroutine headers contain a list of the parameters to be included when the 
subroutine is called and a list of results when the subroutine returns to tne 
calling routine, various symbols are used to designate the meaning of the items 
in the list. 

The equal sign " = •• signifies that the memory location or register contains the 
associated value (e.g., CHAR = INPUT CHARACTER). 

The symbol "=>" is used to designate an implication. That is, when the value to 

the left of the "=>" is soecified, the condition to the right of the symbol is 

implied (e.g., NC => CHARACTEiR FUUi%D means tnat if the processor carry flag is 
false, the character was found). 

The sympol "->•• designates that a register or memory location contains the 
address of a specified object (e.g., GtTADR -> NtXT DISPLAY BYTE means that the 
memory location GETAUR contains the address of the "NEXT DISPLAY BYTE"). 

The symbol "( )" sianlfies the contents of the address given by the value within 
the parenthesis (e.g., (u,E) = NEW VALUE means that the contents ot the 
location, whose address Is contained in tne D and E register pair, contains the 
"NEW VALUE"). 

The symbols "t3" specify a bit within a byte. For example, ERRFLGCDC^<ERR] 
refers to the bit identified by the label DC^ERB in the byte ERRFLG. The 
symbols "#" ana "<>" are used to indicate the "not equal" condition (e.g., A»0 
means A not equal to zero). A number with the letter "B" appended specifies an 
octal value (e.g., 177B). 

Messages 



Messages returned from the subroutines are returned as pointers to message 
sections. The message sections consist of an ASCII message stored in ascending 
address order (i.e., first character in lowest address and last character in 
highest address). A message can be broken up into as many as eight (8) 
different sections. 
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The oeglnning of each section Is stored in one of eight message pointers 
(msgptI-mSGPTB) in the Coiiinr.on Variables area. On returns Aith iT>essagesr all 
message pointers, except for WSGPTI, are to oe set by tne subroutine. some 
routines return the address to oe stored in HSGPTl in a specitied reaister pair 
C gene rally h and L). 

The message sections will pe displayed in order starting with the section 
pointea to by MSGPTi , The last message section must terminate with an fcnd of 
Page flag (.KUP - 316 octal). All other sections must ce terminated by a zero 
byte (a oyte with all bits set to zero). 
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HP 2645 MAIN CODE INTEHFACE 



INTRODUCTION 




Main code module. 

*«^ *Kia infcT r<inlon from tO lOK (0 to 23777 octal) In 
The Mam code occupies the lUK reqion xrom u uu av^ 



the 



ROM space. 



INTERFACE SPECIFICATIONS 



Entry Vectors 



t location 100 (octal). The 



*.« 4.K«» u^in rndP^ routines begin at location lou iocx:aij. mc 
J2:t:?s"c:rsrsr l° '"AZT- "l%/r\Tlr.e''cor..s.onoin. subroutine starting 



address: 



Location Name 



100 
103 
106 
111 
114 
117 
122 
125 
130 

133 

136 
141 
144 
147 
152 
155 
160 
163 
166 
171 
174 



DSPMSG 

RSTDSP 

DCNUM 

DCPLUS 

DCMNUS 

ESCEND 

CHKLIM 

CLBLXF 

SBLXFO 

SBLXFA 

STPTBL 

CUBPH 

CURPHD 

FRECNT 

PTBLK 

CliEARL 

CLEARS 

FNDTB2 

SDTERM 

SDTRMl 

XPUTDC 



Function 

Display Message 

Restore Normal Display ,«„«« 

Accumulate Digit tor Parameterized Escape Sequence 
Add Plus Sign to Parameter 
Add Minus Sign to Parameter 
Terminate Escape sequence 
Check parameter Limits 

Clear Pending Multi-Character Transfer flag 
set pending Flag tor Escape sequence Initiated 
Multi-Cnaracter Transfer 

Set Pending Flag for Non-Block Mode Keyooara 
Initiated Multi-Character Transfer 

Initialize for Display Transmission 

Home Cursor (exclude Transmit Only fields) 

Home Down Cursor 

Check Number of Free Display Blocks 

Add Display Block to Free List 

Clear Line 

Clear Display 

set Bit in Byte 

send Block Terminator and End Transfer 

send Block Terminator Only 

Transmit Character 
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177 


THMTST 


202 


CHIN TO 


205 


INITDO 


210 


GETUSP 


213 


Li\F£EO 


216 


EXPAND 


221 


MXTCHR 


224 


Gfe.TuCM 


/27 


MLKSCO 


232 


MLKQFO 


235 


HANbUO 


240 


BUFMSG 


242 


OCTKST 


245 


lORMGO 


250 


r:^N2DEC 


253 


8iM20E0 


256 


RCADRA 


261 


GTMODc; 



Perforrn Teririinal Self-Test 

Pertorm Character Function 

Initialize for Display Tear-Apart 

Get Next Display Character for Output 

Perform Line teed 

Expana Disolay Control Byte 

Get Next Display Character in Display Mst 

Process Data Comm Input 

Locate First Unlocked Row 

Turn Uff Hemory locK 

Hang lerminal on Fatal trror 

Pointer to Buffer Overflow Message 

Perform Data Comm Self-Test 

Go To Code in Optional HOM 

Convert 16-Dlt binary to Decimal 

Convert 8-bit Byte Binary to Decimal 

Locate Current Cursor Location 

CnecJc for Page Mode 



Local Variables 



Local variables for the Hain Code routines are stored in the HA.i region 
177440-177717 (octal). The definition of tnis area is at the aisrretlor of tne 
Main code subroutines, 

A message outfer of 80 bytes is located in tne region 1770U0-1 77120 (octal). 
This area is used to display error and information messages- Messaaes storea in 
thijf area may extend into the device I/O buffers (17bOOO-r/b777 (octal)). 

Fast Access HAi^i 



No Fast Access PA?'^ other than the stacK is used by the Main Code routines. 
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FUNCTIONAL DESCRIPTION 
General 



Xne Main Code module can be dlvidea into a number of major sections. the 
Monitor and Function Interpretation, Cursor Control, Display Hemorv Management, 
Editing Features, Format Mode operations, and BIock Mode Operation, 

N-ionitor and Function interpretation 

ThP /noniror receives input from the Keyboard and data comin and initiates the 
eauued operation to interpret the input. Tne I/O code module handles input 
from tne cni ofaUernate 1/0 device and calls tne character interpreter routine 
(ChlNTJ to process the input. 

Normally, the terminal is executlnq a wait loop (Flowchart 1) waitinq for input 

and monuorind the status of the cartridge tapes wnen '^-I'l'^'^^^;^^ ^^^ 

appropriate functions are invoiced to process the input. After the functions are 
performed, tne terminal resumes the vtait loop, 

me terminal is essentially a table driven state n;achlne, Tne ^f^i^^J^/^^'^^IJ ^ 
nrlmarilv derived from the characters entered into the terminal from tne 
'eyooard! data col, or cartridge tapes; out certain Keys (e,Q., ^^^AD and 
HECCmDJ initiate non-table actions. These Keys initiate internal terminal 

functions. 

The address of the currently active state table is maintained in location Rngta. 
ach ?able entry consists of tour action bytes. The first two bytes represent 
{he lower and upper boundary of characters ^PP^li*^^^^^/^^^^^^/?^^^; ,J'i^ .^ be 
two Dvtes are the address of either the action routine or an index table to be 
ised for ?he associated input characters. The least significant byte (LSB) of 
the address is stored in the first byte. If the high oruer bit of tne address 
fs a one the talue (with the high order bit masked out) ^^^'l'^^'^, ^l^%ll^ll[ll 
location Of the action routine to process the input, otherwise, the value 
represents the base address of an index table of action '^^^^^"^^^^^^^f,^^ . ;^f i^^ 
the lower limit as the index oase. Each entry m tne index table consists of 

two eytes. 
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Example- 

B:15 EQU lOOOOOB blT 15 

RTABLE: i:QU *-3 NOBMAL RANGK TABLK 

DEf 4QB,111B ALPHANUMLRlCfc 

DFAD DSPCHRfBlS EXtCUTt DltiPLA^ ROuTlNh, 

UEF 7B,17B BELL^BS^hT^Lf , \/T,FK,CP,Su,SI 

DFAD RTBOIO USfc FUNCTIuM INDEX TABLE 

DEF 3iB,i3B ESCAPE CONTRUL CODE 

OFAD ESCAPE+B15 EXECUTE ESCAPE ROUTINE 

DEF OB, 177B ALL UTHER C0DE6 

DFAD CHKCTL+615 CHECK FdK htUCK TRAMSFER TRIGGER CHAHACTEP 

* INDEX TABLE FuP <BELL> THROUGH <SHJFT IN> 
* 

RTBOIO EQU ♦ 

DFAD ZBELL BELL - SOUf.D KEYBOARD BELL 

DFAD BCKSPC BS - BACKStACF CURSOR 

DFAD HTAB HT - FORWARD TAB CURSOh 

DFAD LwFEFD LF - LINE FEED 

DFAD r^OFNCl VT - NU eiJJvCIION 

DFAD MOFWCT FF - NO FUNCTION 

DFAD CRPET CR - RETURN CURSOR 

DFAD ShFTOT SO - SHIFT OUT 

DFAD SriFTIN SI - SHIFT IN 



BIS is an equate for bit 15, RTABLE Is the dction table. The ctiaracter 
processinq routine requires that the action table address dp three less than tne 
actual start aadress of the table. rtbOIO is an index tabip to the action 
routine for the characters BELL throuqh shifi in. 



Cursor Control 

A number ot routines are contained in the Main Code to pertor^i the various 
cursor control operations. This includes tne cursor up, down, left, riqnt, home 
upf home down, and return. Another routine is included to advance the cursor 
after a character has been entered on the screen, l^one of the above routines 
cause new display lines to be generated. The other cursor control routines, 
tab,, bacK tab, cursor addressinq# ana line feed, cause new display line(s) to oe 
generated as needed, 

Tne current cursor position is maintained in locations CuRCOL and CUrROVj for the 
screen column and row respectively. Location TLINO contains the absolute row 
numoer of the top row on tne screen. Thus, tne absolute row number ol the 
current row is given by CUHRUwtTHNO, 

Location CURflDR contains the Raw address of the last character processed bv the 
Main Code routines, LSTROw and LSTCuL contain tne screen row and column 
location of the character corresponding to CURADR, The address of the character 
at the current row and column may be found by calling the routine RCADDP, 
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Display Memory Management 

The display memory is organized into a linked list of 16-byte blocks of RAM, 
The Display Memory Access (Di^A) Hardware contains enough intelligence to follow* 
the linked list and generate the display. Individual rows are linked with botr 
the next and previous rows, «»hile blocks within a row are linked only in the 
forwara direction into the next Display dIock tor the line. The cnaracters in 
display memory are stored in reverse order (i.e., characters are stored trom 
higher address to lower address) since tne DMA extracts characters from meifiory 
in order of decreasing addresses. All display blocks not currentiv allocated for 
display use are maintained on a tree storage linked list. 

The aisplay memory mdnaaement routines handle the allocation and de-allocation 
of disoiay blocks. Tne gtbi.k routine gets a display block from the free list. 
If the free list Is empty, the PIBLK routine is called to remove a line from tne 
display list and add the blocks to the free list. The GTMwLN routine generates 
another display line and appends it to the end of the display list, A 
combination of these routines and numerous in-line operations are used to 
create, extend, and de-allocate lines. 

Short lines do not require display hlocks to be allocated to fill the eighty 
cnaracter llhe as a special control oyte CLOL - 314 octal) is recognized by tne 
D¥iA as the end of line code. This allows for a more efficient use of tne 
display memory because memory is not wasted in raddlnq out short lines, 

A dispiay position may actually consist of one or moie non-displaying flag 
Characters or enhancement-controls along with the displayable character. 
PJnnancement-controls include codes to enable/disable tne various video 
ennancements (i.e., inverse, blinking, halt bright, and underline) and to switch 
character sets. Flags are used as firmware control codes. Typical uses are to 
mark the beginning of protectee and unprotected fields and to mark fiei^ 
Checking attributes. The location LSTDCD contains the current display 
enhancement code and location LSTFMT contains tne currently active forrrat code. 

baiting Features 



Four editing functions are implemented: cnaracter insert and oelete, and line 
insert and delete. Additionally, character insert and delete may be performed 
with or without wrap-around. 

Line insert and delete are performed by adding or deleting a line in the display 
list, insert line Involves creating a new line from the free list and altering 
the 'next and previous row pointers at the appropriate location in the display 
list to include the new line. A line delete is performed oy adjusting the next 
and previous line pointers in the display list to skip over the line to be 
deleted. The deleted line is adaed to the free list. 

Character insert and delete are performea oy shifting the characters In a line 
through the line's linked list. If a display block becomes empty as a result of 
a cnaracter delete, the block is addeo to the free list. Insert wrap is 
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performed by saving the characters that qet shifted out of the riant margin and 
inserting them at the left margin of the next line. This involves savina tne 
current state of the cursor and estafc>lishJnq a temporary state in Ahicn tne 
cursor is located at the left margin of tne next line and executing a ctiaracter 
insert without ««rap-around, wnen a character is shitted out, all non-alsplaying 
codes associated witn the character are included. Delete with wrap-around 
operates in the converse manner. 

Format Mode operation 



Format Mode involves the arrangement of the display into protected, unprotected, 
and transmit-only fields. The transmit-only and unprotected flelcjs may also pe 
defined with alphabetic or numeric, character type checKing. Tne user can alter 
data in the unprotected and transmit-only fields. Format Mode causes many of 
the terminal functions to pe altered: 

The home up function moves the cursor to the first unprotected field in tne 
display list. 

The tab and oacX tab functions move the cursor to the first character of 
the next and previous unprotected field, respectively. 

The clear line and clear display functions erase only the unprotected 
fields, vSpecif ically, the clear line function will clear only tne current 
field. Remaining fields in a line are not affected uy the clear line 
function, Tne clear display function clears all unprotected fields from 
the current cursor location through tne last field in the display. 

The character insert and delete functions operate within the curret\t 
unprotected or transmit-only field ratner than the current ro>j. Also, tne 
wrap-around option is disabled. 

The line insert and delete functions are dlsaoled. 



in BlocK Mode, only data in tne unprotected and 
transmitted to the computer. 



transmit-only fields are 



Next and Previous 
appropriate page. 



Page position the cursor in the first field in tne 



When the last character of the last field on a page is enterea, a next page 
operation will be performed, if the tleld is the last fJela in tne fonu, 
the cursor will remain positioned after the last character in the field 
after the field is filled, Fntering characters wnen the cursor is past the 
last field will cause an automatic home up and the entered character will 
appear in the first character of the first unprotected tiela. 
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bloci^ i^iode Operation 



/uniie operdtinq in Block Mo-ie, no oata is transrr'it ted to the host coiriputer until 
requested oy tne computer or operator. Data enfered from tne tceyboard siniply 
appears on tne screen and is not sent to tne computer as in character rr'Ode wnere 
characters are sent as tne tceys are nit, fnis allows the user to co-^pose text 
on the display, ealt it, and then senct the data wnen tne user is satisfied with 
tne display. 

The user presses tne EwTbR tcey to send tne display to the comruter. 'ihis 
involves the DPSENO routine to set the display aata pending flag t'-'FLGS 
UShiNTfclRj ) ana to optionally set the non-di splayind terri.inator via csllFhr-^ and/or 
set the starting position tor tne oispiay tear apart routine (GFin^P). un 
invoicinq tne display transmission, IMlPu sets up tr.e mitiai paraiVieters for tne 
tear apart function and successive calls to the G<^iD5P routine are made to 
extract the aisplay aata. 



PAGE lt> 



Ii255-^u003 



Hev AUG-Ol-Zb 



SUBROUTINF. SPEC IFlCA'l lUNo 

Each subroutine wiii use the registers as specitiea below. Anv reoisters not 
specifiea in tae exit list are returned with their contents unaisturDea. xne 
settings of the processor flags CS, Z, P, and C) are oeneraliv not retaineo. 
certain routines use the processor flags to represent exit conditiors. Tnese 
conditions dre listea in the suDroutine headers. The lacuMs specitled for the 
suDroutines are the actual labels used in the source code. 



Display wessaqe 



D3PMSG - DTSPLA)^ !«'KSSAGi:; 
fc:NTHY: 



MSGt^Tl-i^SGPTH -> hESSAGb; i,F:CTIONS 
NC => AUD MESSAGE Tu NOR^'Al, DiSPbAY 
C => HFPLACE UtSFLAX WTTH ?• ESSAGE 



EX If 



ALL REGlvSlErtS DESTnuYbD 



This routine is called to dlsolay intomation or error messdaes. Ihe ?Tiessaye 
sections are extracted via tne lo-olt adaress pointers stored in ^i>GPTl~.^S<..Pl'8 
in the common area. These wessaaes are storeo In -^srendinq oraer, Tne&e 
pointers point to the lett-most character m tne message section. Tne ^lessage 
sections are termiaatea oy eitnei a zero nyte or an Ena ot Paoe code (lOP - 316 
octalJ. A zero byte termination iiuoiies tnat the iiiessaie continues into tne 
/next message section while an EOP, signifies tne end of. tne messaqe. Th^^ 
pointer to the first message section is stored in n^SGPil ^Vi^-^ so tortn, 

When a message is addeo to the normal display, tne message heqms at tne current 
cursor location, when a message replaces the normal display, the nespaoe starts 
at tne upper left corner of the screen, A call to the restore disp]av routine 
IRSTDSP) will restore the screen to the noririal display. 

Messages added to the normal display are usually informational (e.g., bASiC bATA 
COrtM 6ELF-TES1 OK). Messages replacing the disolay are usually error messaqes 
(e.g., ROM EHHOR). 
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Restore Normal Display 

RSTDSP - RESTORE NORMAL DISPLAY 

ENTRY: DON'T CARE 

EXIT : PROCESSOR FLAGS UWCHANGED 
A,H,L DESTROYED 

This routine is called to restore the normal display after a call to dspmsg has 
been made to replace the display with a message. This routine may be called 
even it no message is currently on display. The display will oe restored to 
eitner the operating ox soft Icey display, whicnever is currently active. 

Accumulate Digits for Parameterized Escape Sequences 



DCNUM - ACCUMULATE PARAMETER FOR ESCAPE SEQUENCE 

ENTRY: CHAR = INPUT CHARACTER 

RADIX = RADIX OF NUMBER ACCUMULATED 
lOCSGN = SIGN OF NUMBER 
lODATA = ACCUMULATED VALUE 

EXIT : Z TRUE 

lOCSGN = 200B IF NO SIGN FOR VALUE 

OTHERWISE, UNCHANGED 
lODATA = (ENTRY VALUE * RADIX) + INPUT VALUE 
A,D,E,H,L DESTROYED 

This routine is called when a digit input character has been received for a 
parameterized escape sequence. A 16-bit value is maintained in location lODATA, 
If the digit is received with no preceding sign (lOCSGU = 0), then IQCSGN is set 
to 200B to indicate an unsigned value. 

Add plus Sign to Escape sequence Parameter 

DCPLUS - PLUS SIGN RECEIVED FOR PARAMETER 

entry: DON'T CAPE 

EXIT : A,B,H,L DESTROYED 
lOCSGN = i 

IF A SIGN VALUE IS ALREADY SET CIOCSGN # 0), THEN THE ESCAPE SEQUENCE IS 
ABORTED BY EXITING VIA "ESCEND". 

This subroutine is called when a plus sign is received for a parameter value in 
a parameteriied escape sequence. 
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Add Minus Sign to Escape Sequence Parameter 

DCMNUS - MINUS SIGM RECtIVfi:D FOR PARAmE'TEH 

kntry: dun't CARt: 

EXIT : A,B,H,L DfcSTROYKD 
IQCSGN = -1 

IF A SIGN VALUE IS ALREADX SE.i (lUCSGN #0), THfcN TtlF ESCAPE SFOfJENCF IS 
AbORTED 6/ EXITING vIA "ESCEND". o yjc^NLf. lt> 

This subroutine is called when a minus siqn is received for a parameter value in 
a parameterized escape sequence. h^io ^l r vaiue in 

Terminate Escape Sequence 

ESCEND - END ESCAPE SEQUENCE PROCESSING 
ENTRY: OON'T CARE 

EXIT : RNGTA = RXABLE IF NORMAL MODE 

= DESTBO If SOFT KEi' HflUE 
ESCFLG = 
MFLGS^CESCIfxP) = 
A,H,L DESTRUYED 

This escape sequence at the ena of escape sequence processing to restore normal 
character processlnq, 

Checic Parameter Limits 

CHKLI.M - CHECK PARAMETER BOUNDARY CONDTTiahS 

ENTRY: B = CURREiMT VALUE 

C =: MAXIMUM ALLOWABLE VALUE 
D,E -> PARAMETER TO BE SET 
lODATA = INPUT VALUE C2 BYTESJ 
TOPSGN = -1 r> NEGATIVE AUJUSTMEMT 
=> ABSOLUTE SETTING 
+ 1 => POSITIVE ADJUST;MENT 

EXIT : (D,e) = NEW VALUE 
A,C,H,L DESTRUYED 

This suproutine is called to evaluate a parameter that alters an existina 
variable in the terminal (e.g., cursor address), if idpsgn is fl, the new value 
is the sum of the current value (B) and the input value tlQDATA). if lOPSGN is 
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-1^ tne new value is the current value minus lODATA. Otherwise, the new value 
is set to the input value. The new value must be in the range from zero (0) to 
the maximum as specified in the C-register on entry to this routine. The 
largest maximum value is 256, if the computed value is greater than the maximum 
allowed, the new value is set to the maximum allowed. Similarly, if the 
computed value is less than zero, the new value is zero. 

Clear Pending Multi-Character Transfer Flag 



CLBLXF - CLEAR BLOCK TPANSFfclR PENDING FLAG 

ENTKY: B = 377B-(BITo 10 CLEAR FkOH "MFLGS") 
C = 377fl-(BITS TO CLEAR FROM "MFLGS2") 

EXIT : H = BASEH (377B) 
A,B,L DESTROYED 

This routine is called to clear a multi-character transfer pending flag. It no 
more transfers are pending, the Keyboard is unlocked and the block transfer 
trigger flag is cleared. otherwise, only the blocJc transfer trigger flag is 
cleared and the keyboard remains locked. 

The pending flags are bits stored in locations "MFLGS" and "MFLGsa"; 

Bit Function 

MFLGS DC2 PENDING 

1 TERMINAL STATUS PENDING 

2 ALTERNATE TERMINAL STATUS PENDING 

3 DEVICE STATUS PENDING 

4 CURSOR SENSE PENDING 

5 FUNCTION KEy PENDING 

6 DISPLAY SEND PENDING CFSC d or ENTER KEY) 

7 DEVICE DONE RESPONSE PENDING 

MFLGS2 DEVICE RECORD PENDING 

1 BINARY DATA PENDING 

2 RELATIVE CURSOR SENSE PENDING 
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Set pending Flag for Escape Sequence and Non-Block Mode 
Keyboarci Initiated Multi-Cnaracter Transters 

SBLXFu - SET BLOCK TRANSFiiR FLAG tOK tSCAPE 
SFJQUFiMCfc: iraTlArFU MULTI-CHAftAClFK rRA^'SFfc:RS 

SBLXFA - SET BLUCK TRANSFER FLAG iOn nQn-BLuCa 

(^ODE KFiBUAHD I.niITIATED MUL'11 -CHARACTER TRANSFERS 

ENTRY; B = FLAGS TO tiE SET IN "MFLGS" 
C = FLAGS TO BE SET Iw "MFI*GS2" 

EXIT : ALL REGISTERS DESTROYED 

MULTI-CHARl^CTER TRANSFER TRIGGER (XONFLG) 
AND DC2 PENDING FLAG ARE SEX ACCORDING 
TO OPTION SWITCHFS G AND H 

These routines are called to set the pending flag tor a itaiiti-character transter 
initiated either by an escape sequence (e.g., cursor sense) or froui the keyboard 
while not operating in Block: Mode (e„g,, ENTER key). See tne description for 
tne "Clear Multi-Cnaracter Transter Pending Flag" routine for a Ust ot tne 
flags. 

Initialize for Display Transmission 



STRTBL - SET FIRST DISPLAY OUT CHARACTER FOR 
DISPLAY STORE OR TRANSMIT 

El^TRY: DON'T CARE 

EXIT ; CURCOL, CURROW = STARTING POSITION 
ALL REGISTERS DESTPOYEP 




PAGE 2] 



13255-90003 Kev AUG-01-76 

Home cursor (exclude transmit-only fields) 

CURPH - HOME CURSOR (EXCLUDE TRANSMIT-ONLY FIELDS) 

ENTRY: DON'T CARE 

EXIT : ALL REGISTER DESTROYED 

This routine places the cursor at the "home" location in the display memory. In 
non-Format Mode, the cursor is placed at the left margin of the first unlocked 
line in the display. Then the display Is rolled down until the first unlocked 
line in display memory is the first unlocked line on the screen. 

in Format Mode, the cursor is placed In the first unprotected field in the 
display after the top unlocked line is rolled down to oe the first unlocked line 
on the screen. This may result in the cursor being placed in the locked portion 
of the screen if an unprotected field is included in the locked portion of tne 
screen. 

Home Down Cursor 

CURPHD - HOME DOWN CURSOR 

ENTRY: DON'T CAPE 

EXIT : ALL REGISTERS DESTROYED 

This routine places the cursor at the bottom of display memory. It the last 
line contains any characters, the cursor is placed one line below the last line 
Otherwise, the cursor is located in the last allocated line, m any event, the 
cursor is positioned at the left margin. The display is rolled up as required 
to put the last line on the screen. 

Checfcc Number of Free Display Blocks 

FRECNT - CHECK NUMBER OF FREE BLOCKS 
ENTRY: DON'T CARE 

EXIT : Z => ENOUGH FREE BLOCKS AVAILABLE 
NZ => NOT ENOUGH FREE BLOCKS 
ALL REGISTERS DESTROYED 

This routine is used during Edit Mode to determine if enough free blocks are 
available to display the next input record, a successful return (Z) Is made 
when twenty-five (25) or more display blocks are free. if there are 
insufficient free blocks, a call is made to the de-allocate routine (PTBLK) in 
an attempt to generate more free blocks. A fail return (NZ) occurs if no blocks 
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can be de-aliocated. 



Add Display BlocK to Free List 

PTBLK - RfcuLEASE A LIME TO ThF FRKbi LIST FHO.M 
THF. DISPbAY raST 

F.i^TRY: DON'T CARE 

fc:XIT : Z => LINE NOT RELfcA&ED 
iMC => MEMORY LOCKED 

C => OUIPUT FAILEU FOR EDIT MUDt PUT 
ALL PEGISIFRS DESTROY LD 
NZ => LINK HELEASlD 

D,E -> FIRST DISPLAY CHARACTER 

IN LINE PELEASFO 
A = E 
B,C,ri,L DESTROYED 

This routine removes a line from the display list &nd adds the line to the tree 
list. The top display line is de-aliocr-ited if tne cursor is in the last display 
line, otherwise, the last display line is de-allocated (i.e., t^e^oTV Lock 
occurred or 1/D failure when recording line in Edlt/Lata-Loaginn Mode). 

A tail return of z, C implies that an I/O failure occured when an dtteinot vas 
made to record the de-allocated line onto an l/o device, otherwise, the tail 
.returh is due to a Memory Lock. 

Clear Line 

CLEARL - CLEAR LINE 
entry: DON'T CARE 
EXIT : A = -1 => CURSOR eAST END OF PAGE (EOP), CLEAR NOT DONE 

= => Character fouimD and clear done 
> => cursor past eol, clear not done 
all other registers destroyed 

This routine performs the Clear Line function. in non-Format Mode, the line is 
cleared from the current cursor location to the end of the line. Any cleared 
out blocks are added to the tree list. 

in Format Mode, clearing terminates at the end of the unprotected or 
transmit-only field. BlanKs are written Into tne field starting from the 
current cursor location to the end of the field. If the cursor is in a 
protected region of the display, the clear line function is not performed. 
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Clear Ulsplay 



CLEARS - CLEAR DISPLAY FROM CURSOR POSITION 

entry: DON'T CARE 

EXIT : ALL REGISTERS DESTROYED 

This routine performs the clear display function. The display Is cleared from 
the current cursor location to the end of display memory. In non-Format Mode, 
all lines below the current line and any cleared out blocics in the current line 
are 'added to the free blocks list. 

in Format Mode, only unprotected fields are cleared. If the cursor is in a 
transmit-only field, the transmit-only field will also be cleared from the 
current cursor location to the end ot the field, no other transmit only fielas 
are cleared. If the cursor Is in a protected region of the display, all 
unprotected fields starting with the next unprotected field, are cleared. 
Blanlcs are written into each field to clear the field. No display pIocks are 
de-allocated unless display enhancements are removed. 

Set Bit in Byte 



FNDTB2 - SET BIT H 

entry: B = BIT NUMBER (N) TO BE SET (1-8) 

EXIT : A = BYTE WITH BIT N SET 
B = 

This routine generates a byte with the nth bit set. The least significant bit 
is bit 1 and the most significant, bit 8. 

send BlocK End Character(s) and End Transfer 



SDTERM - SEND BLOCK END CHARACTERCS) AND END TRANSFER 
ENTRY: DON'T CARE 
EXIT : A DESTROYED 



This routine causes transmission of the block: end character(s) and makes a call 
to the Data Comm Code module to signal the end of a block transmission. 

If the terminal is operating in Block-Page Mode (BLOCK MODE key down and 
keyboard option switch D open), only the block terminator character (BLKTRM from 
the Data Comm module) is sent. Otherwise, a Return and an optional Line Feed 
(if the AUTO LF key is down), are sent without a block terminator character. 
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Send BlocJ^ e;nd Character is) Unly 

SDTRMl - 3FN0 BLOCK FND CHAhACTfcRlS) 
ENTRY: DG-'y'T CARc: 
ex IT : A DESIRUYbD 

This routine causes only tne block end cbardctPr(s) to be transtnit tea as 
described above for the 6DTEhNi routine. But tne Data Coairti n.odule is not called 
to si:jnai the end of the transmission dIock. 

Trans;T>it Character 



aPUTDC - I'RANSMIT CriAHACTfciP 

fcNTRY: A = CHARACTtft TU bF. THAi^JSHTTTED 

EXIT : c^C => TRANSMIT SUCCESSFUL 

C => CHARACTER NOT TRANSWITIFD 
A DESTRUYED 

This routine is called to transmit a character out tron^ tne Data Comni monuJe. 
The Character is transnsitted only if tne terminal is in Remote Mode. It tne 
terminal is not in Pemote ^.ode , the routine returns as if tne character had 
oeen successfully transmitted, 

FertoriTi Terminal Self-test 



THMTST - PEHFURM TERMINAI- SELF-TEST 

ENTRY: DON'T CARE 

EXIT : ALL PEGISIERS DESTROYED 

This routine performs the terminal self-test operation. A return is made only 
if the self-test is successful, if the self-test command is initiated from tne 
data comm (DFLGSLSDACOMJ = Oj, a full terminal reset will be executed it a 
seif-test error occurs, otherwise, tne terminal will lock up dump to routine 
HANGUP J vvith aa error messaoe displayed on tne screen. 
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Perform character Function 

CHINTO - PERFORM CHARACTER FUNCTION 

entry: C = INPUT CHARACTER 

EXIT : Z => FAST STORE ROUTINE USED 
NZ => FULL PROCESSING USED 
ALL REGISTERS DESTROYED 

This routine (Flowchart 2) performs the character function according to tne 
action table pointed to by PNGTA, Fast processing adds the input character 
directly to the display list without scanning tne action table. Normal 
processing searches the action table for the character function. Fast 
processing is used only if the previous character was a display character added 
to an existing display block (CRAFLG > 0) and the current cnaracter is 
dispiayable (406 <= input character < 200B), 

Initialize for Display Tear-Apart 



INITDO - INITIALIZE FOR DISPLAY GET 

ENTRY: DON'T CARE 

EXIT : Z => STARTING CHARACTER FOUND 
GETADR -> FIRST CHAHACTER 
NZ => CHARACTER NOT FOUND 

GETADR UNCHANGED 
ALL REGISTERS DESTROYED 

If Format Mode is off, CURCOL is set to zero, otherwise, CURCOL ana CURROW are 
set to the next unprotected character. 

This routine locates and sets the tear apart pointer (GETADR) to the initial 
character for the "GETDSP" routine. If the terminal is in Format Mode 
(MDFLGl (FORMAT] =1), GETADR is set to the address of the character at tne 
current cursor location, otherwise, the cursor and start address are set to the 
first Character in the current line. 

A "no Character found" return (NZ) occurs if the cursor is below the last 
display line. 



PAGE 26 



132bS-90003 



Hev flUG-01-76 



Get Next Character for nutput 



btroSP - GKT A CHARACTER FPUM ThE DISPLAY 

KNThY; GETADH -> NEXT DISPLAi BYiE 

CURCOL = CHlUMN iMUMbKR OF NEXT Dl5PLAi bYTF 



FOR NEXT CriAHAClEP 



EXIT : NC => CHAHACTEP FUUND 

A = CHARACTER 

CUPCOL, GETADH UPDATED 
C => NO CHARACTER 

M => END OF DISPLAY 

Z => END OF FIELD 

P, NZ => END OF LINE 

A DESTROYED 
B-L DESTROYED 

This routine qets the next display character wnen tearing apart the display. 
The Character returned may be either a 7~bit ASCII ciiaracter or an B-bit display 
enhancement/flag character. The expand routine (EXPAND) iray oe cailen to 
generate the escape sequence for the enhancement/flay character. 



Perform Lihe Feed 

LNFEFD - EXECUTE LINE FEED 

ENTRY: DON'T CARE 

EXIT : ALL REGISTERS DESTROYED 
SPQWL = 3/7B 

This routine performs the line feed function, A new line is generated it tne 
cursor is moved beiow the last display line. The space overwrite (SPOw) latch 
is cleared by setting location SPGWL to all ones. 
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Espand Display Control Byte 

EXPAND - EXPAND DISPLAY CONTROL/FLAG BYTE 
TO ESCAPE SEQUENCE 

ENTRY: A,C = DISPLAY CUNTROL/FLAG BYTE 

EXIT : B20BFL = ESCAPE SEQUENCE TO GENERATE 

DISPLAY CONTHOL/FLAG BYTE 
B2DPTR -> B2DBFL-1 (LSB OF ADDRESS ONLY) 
B2DEND -> LAST CHARACTER OF ESCAPE SEQUENCE 
IN B2DBFL (LSB OF ADDRESS ONLY) 

This routine accepts a display enhancement or £laq character and generates the 
escape sequenceCs) necessary to reproduce the character. The result is placed 
into a 9-byte oufter stored in Increasing address order. Locations B2DPTR and 
B2DEND contain the LSB portion of the "first - l" and last character address of 
the escape sequence, respectively. The MSB part of the addresses is BASEH 
(377B). 

Get Next Character in Display List 



NXTCHR - GET NEXT CHARACTER IN DISPLAY LIST 

ENTRYS D,E -> CURRENT CHARACTER 

EXIT S Z => CHARACTER IS NOT AN EOL LINK 
A = DISPLAY CHARACTER 
D,E -> CHARACTEh 
NZ => NEXT CHARACTER 15 AM EOL LINK 
A DESTROYED 
D,E -> NEXT LINE LINK (MSB) 

This routine gets the next character In the display list. Display links at the 
end of a display block are automatically skipped over to get the first character 
in the next display olock. 
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Process Data Comm input 

GETDCM - PROCHiSS DATA COMM irvpUi IF ANY 

t.;NlHY: OUivi'T CARb: 

fc:XTT : CAPRY FLAG = (NC) 

H'6 => NO MflHE DATA IN DATA COMM Bu''""rFH 
Z => FULL PKOCh^SSING UStil) => DATA CUKM 

BUFFER MAi NOT BE EMPTY 
ALL RtLGISXEr^S OESXPOYtLD 

This routine (Flowchart 3) gets any input trom tne Data Corr-TT^ and processes the 
input. The data comm is accessed only if the terminal is in Hemote node, it 
tast processing is used (see description of CHINT), data continues to be fetched 
until either tne data comm buffer is eriipty or tull processing is renulred for 
the input. 

Locate First UnlocK;ed Ho* 

MLKSCO " LOCATF FIRST UNLOCKED HOW 

tiNTHY: DUM'T CARe 

EXIT : Z => NO UNLOCKED HOWS ON 6CRKfe.N 
A,C,H,L DtSTRUYLO 
HZ => FIRST UNLOCK ROW FOUND 
H,L -> FIRST UNLOCKtD ROW 

(POINIS TU LSb OF NfclXT LINE POTiJTtR) 
A,C DLSTROYtD 

This routine locates tne first unlocKed line on the screen, if display lock is 
not enabled, the address of the top line on the screen is returned, Otnerwise, 
tne address of the first line oelo* the display lock boundary is returnea. A 
tail return CZ) occurs if tne display lock bounaary is peio* the last line on 
the screen. 



PAGE 29 



13255-90003 Rev AUG-01-76 

Turn Ott Memory Lock 

MLkOFO - TURN OFF MEMORY LOCK 

ENTRY: DON'T CARE 

EXIT ; MLKFLG = 

A,B,H,L DESTROYED 

This routine clears the display loclcout condition, if the memory lock function 
is set for display lock, then the memory lock function remains enabled and only 
the lockout condition and LED blinking are turned off. Otherwise, the memory 
lock function is turned oft also (MDFLGl LMEmlokj = 0). 

Hang Terminal on Fatal Error 



HANGUO - DISPLAY FAIL MESSAGE AND HANG TERMINAL 

ENTRY: H,L -> FIRST MESSAGE SECTION 

MSGPT2-rtSGPT8 = POINTERS TO REMAINING 
MESSAGE SECTIONS 

This routine is called to display an error message and hang the terminal. The 
contents of the H and L registers are stored in MSGPTl and the message is 
displayed via the DSPM3G routine. Then the terminal Is "hung" by executing an 
endless loop. The terminal can be restored to normal operation only by pressing 
the RESET TERMINAL button or by powering the terminal off, then on. 

Pointer to Buffer Overflow Message 

6UFMSG - ADDRESS OF BUFFER OVERFLOW MESSAGE 

This 2«byte location contains a pointer to the message "BUFFER OVERFLOW" in the 
Main code module. The pointer points to the first character (B) and the message 
is stored from low address to high address. The message is terminated by an EOP 
code (il6B), The address value may used as a parameter to the DSPMSG routine. 
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Perform Data Comni Self-test 

DCT£ST - eXbCUTE DATA COMN SELF-TbSX 
tiNTRY: DOM'T CARfc 



EXIT 



ALL Pfc.GlSTF:HS DtSIRUYtn 



This routine Invokes the data cop.m selt-test routine of the data coirm cooe 
module (ZDCToT). The data comm selt-t«?st routine Is executed only it the 
terminal is in Remote wode. A return is m.^6e only tt the self-test executed 
successfully or if the terminal is in Local Mooe. 



Go To Code in Optional Rum 



lORMGO - PFRFORM FUNCTTUN It OPTION ROM IS PREStNl 

ENTRY: \\,l -> SECTOR TO tiF, E,NTt.RbD 

EXIT : NC => FUNCTION t,XECUXED 

REGISTERS SET ACCORulNG TO FUNCTTUN 
C => FUWCXTON NOT EXECUTEU 
A DESTROYED 

This routine is called to enter cooe in an optional ROM, 
determines the presence of a ROi^ by inspecting the first two bytes 
space to be entered. The first two bytes are accessed by setting 
of the address to zero (0) and one (1), The upper four bits of the 



must contain 
the address. 



This routine 
m the POM 
the LSrt part 
first oyte 
the pattern "0101" and the second byte must T-atch tne »^SB part of 



Convert i6-bit Binary to Decimal 



BN2DFC - CONVEf^T DOUPLE V'JQRU BINARY TO DECIMAL 

ENTRY: D,E = BINARY VALUE TO BE CONVERTED 
H,L -> FIRST BYTE Hi OUTPUT BUFFER 

EXIT ; H,L -> NEXT BVTE iH OUTPUT BUFFER 
A-E DESTROYED 
LNKSAV, CNTFAD DESTROYED 

This routine converts a 16-bit binary value to its decimal ASCII equivalent. 
The conversion can result in as many as five ib) ASCII characters. The output 
Duffer is filled from the low address to a hiqner address. On the return trom 
this routine, the h ano l registers *ill contain the next available byte In tne 
output buffer, which will be set to null (all zeroes) by tne conversion routine. 
LNKSAV and CNTFAD are used as work: areas by this routine. 
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Convert 8-bit Binary to Decimal 

BN2DE0 - CONVERT SIHGLE BYTE TO ASCII DECIMAL 

ENTRY: A = BYTE TO BE CONVERTED 
H,L -> OUTPUT BUFFER 

EXIT ; NZ 

H,L -> NEXT BYTE IN OUTPUT BUFFER 

A-E DESTROYED 

LNKSAV, CNTFAD DESTROYED 

Vl^l K^?*^^^?® performs the same operation as BN2DEC atoove, but operates only on 
an »-Dit value. , 

Locate Current Cursor Location 

RCADRA - LOCATE CURRENT CURSOR LOCATION 

ENTRY! CURROW,CUHCOL = DESIRED ROW/COLUMN POSITION 
LSTROW,LSTCOL = LAST HOW/COLUMN PROCESSED 
CURADR = ADDRESS CORRESPONDING TO LSTROw , LSTCOL 
LSTLIN -> LINE CORRESPONDING TO LSTROiw 

EXIT : Z => CHARACTER FOUND 

D,E -> CHARACTER AT CURSOR LOCATION 
A,B,C,L DESTROYED 
NZ => CHARACTER NOT FOUND 
M => NEED ADDITIONAL ROWS 

E = NUMBER UF ROWS NEEDED 
P => ROW LOCATED 

A = COLUMN NUMBER FOUND 
B = ROW NUMBER FOUND 
C = NUMBER OF CHARACTERS NEEDED 
D,E -> LAST CHARACTER FOUND 
LSTROW, LSTCOL, LSTLIN,CUHADP,LSTDCD ARE UPDATED 

TO REFLECT THE LAST CHARACTER FOUND 
NROwS^BLKFIL = 



This routine locates the address ot the character corresponding to the 
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ChecK for Page Mode 

GIMODL - CHECK FflR PAbE HOnt UPERATION 

b,NTHY: DON'T CARt; 

KXIT : NZ => TERMTJ\.AL IN PAGE I^DDE 

Z => TKHMINAL WUT IiM PAC^F MODE 

This routine determines whetner or not tne ter*pinai is in Paae Mode. Tne 
terminal is In Page Mode if the BLOCK MUOt; Key is down (MDFLGi tbL^NiDE i = 1) and 
the Page/Line option switch CD) on the keyboard interface is open 
CKBJMPR[PAGS1RJ =1). 
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HP 2645 I/O CODt; INTKBFACE 

1^!TR0DUCTIU^^ 

The I/O code module contains tne loaicai and phystcai drivers to operate tne l/n 
devices in the HP 2645a. The i/u devices include the two cartriaqe tape units 
(CTUJ and the printer (R6 232, paraliei or video output) . Aiso included in this 
module is code to process the peripheral escape sequence (fcSC 6, p) and the i/n 
iunction Key sequences. 

The I/O code occupies the hk region from lOK to IbK C240OO to 43777 octaU in 
tne ROM space, 

iNXtlRFACE SPfClFlCATlONS 
Kntry Vectors 



The entry vectors to the L/u routines beqin at location 24002 (octal). Ine 
vectors generally consist of "jumps" (Jmp) to the correspondlna snoroutlne 
starting locations: 

kuDRKSS lihh\E FUNCTION 

24002 lOCKgY Execute GRtFN Key Functions 

24005 RE-uKbY Handle RhAO Key 

24010 CTLRt-D Handle CONTROL READ 

24013 RECKEY Handle RECORD Key 

24016 SELKEY Handle Device oelect (GOLD Key) 

2402i TSXCTU Execute Tape Test 

24024 CONDXiv' Condition lape 

24027 RSTCTU Soft Reset Tapes 

24032 XGCNTL, Set Up for r/0 Control Escape sequence 

(ESC 6,p) 

24035 lOSTGO Send I/O Device status to Data Coir,m 

iJ4040 IGOfJGD Send I/O Control Completion Code to 

uata Co mm 

24043 lORDGO Send I/O Record(s) to Data Comni 

24046 RCRDGQ Enter Record Mode 

24051 B^IRYGO Send Binary 1/0 uata to Data Comin 

24054 CTDCDP Fast Binary Read fESC e) 

24057 CTMON Monitor Cartridge Tapes 

24062 PTTPLN Record Top Line of Display 

24065 riDHO Initial Tape Interrupt vector Address 

24067 RDABRT Abort File Read 

24072 BSYCHK Check tor Busy Tape Drives 

24075 CTINTR Cartridge Tape interrupt Routine 
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Local Variables 



Local variables tor the I/O subroutines are stereo in two reaions ot haki: 71 
oytes at 177440-177546 (octal) and 24 bytes at 177150-177177 (octal). Many of 
the variables used oy the I/O module are also accessed oy the Main Coae module. 
Any changes in tne definition of tne I/O variables snoula be coordinated with 
corresponding changes m tne Wain code module as required. 



Fast Access HAM 



No fast access PAf-5 is allocated for the 1/0 subroutines other than trie stack. 
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FUNCTIONAL DESCRIPTION 



The I/O code is responsible for handling all commands Involvinq the tapes and 
printer (and alternate I/O device, it installed). The code may be roughly 
divided into the command interpreters, the logical (i.e., device independent) 
drivers, and the hardware drivers for each device. 

Location lOCEHR is used to flag the return condition for various routines. The 
flag consists of either an ASCII S (123B), F (106B), or U (125B). The letter S 
represents a successful return; F represents a fail return; and U, a return due 
to a user interrupt (user pressing RETURN tcey on keyboard to abort operation). 

Command interpreters 



I/O control Escape Sequence (ESC & p): lOCNTL 

Characters sent to the display are interpreted in the main code routine CHINTO 
by table looicup (see main code functional description). A pointer Indicates 
which table is to be used. Receipt of the character string escape, ampersand 
(».>, lower-case p, causes control to be passed to the I/O routine, wnich changes 
the table pointer so that subsequent characters will be interpreted according to 
the table lOCTAB in the I/O code. 

Plus (t), minus (-), and numeric characters cause control to be passed to the 
main code routines DCPLuS, DCMNUS, and DCNOM, respectively. Other characters 
that are valid in an I/O control escape sequence (B, b, C, c, D, d, F, f, iVJ, m, 
P# 9t R» r, S, s, U, u, w, w, *, "*, ana space) are interpreted by the routines 
lOCOlO through IOCi20. Other characters terminate the escape sequence. 

IOC020 through IUC120 all exit to lOCEXO, which checks whether the character 
lust received was capitalized (^ is treated as capital *"). If so, control is 
passed to the logical driver which implements the required command. (Control is 
passed via the transfer table lOCMTB). If the character is not capitalized, 
control is returned to the main code to await receipt of the next character. 

Green Key: lOCKEY 

Whenever the green Key is pressed, control passes to the lOCKEY routine. This 
routine monitors the keyboard until a valid command key or RETURN is pressed. 
Control is tnen passed (via an address from GRNTBL) to another routine. 

If the command does not require further keyboard input (e.g., the copy commands 
or read beyond end of data) control is passed directly to the logical or 
hardware driver that implements the required function. 

Commands requiring only a device specification (rewind and mark file) pass 
control to USRNPM. This routine monitors the keyboard for a device key, and 
when one is pressed,, passes control to logical driver CTRLIO, 
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Commands requiring a parameter (skrip lines and fina file) cause control to 
transfer to USSOIO, whicn accumulates the parameter ana clierks for a device Key, 
when a device jcey is pressed, control is passea to tne logical driver CTHl.in. 

Condition (Control TEST); CONDTN 

CONDTN is called from the main code whenever control TKSl is pressed. cnr.DlN 
Jumps to liSPiNiPM, which monitors the Keyboard for a device selection, wnen a 
device Key Is pressed, control is passed to the logical ariver CTRLTu. 

Gold Key: SKLKKY 

SELKeY implements the gold key (device selection) function, ic is described in 
the section on entries to the 1/0 code, below. 

Logical Drivers 



Copy, Compare: Xt'RD2D 



Data transfers to and from devices are record-oriented. input from devices xs 
accomplished" via calls to GETIU, wnich passes control to tne driver for tne 
selected device via transfer table u2t:iFrB. Similarly, output to oevices is 
accomplished via calls to punu, which transfers via Bi<2DTH to drivers tor ail 
selected output devices. A description of buffer handling is included in tne 
section on Alternate 1/n. 

XFHD2D performs all copy and compare operations, whether requested from tne 
Keyboard or via escape sequence. For copy operations, XFRD20 alternates calls 
to GETIO and PUTXO until the transfer limit (line, file, or end ot data) is 
reached. For compare operations, XFPD2D calls GETIO once for each of tne 
devices, and then calls CMPBFS to compare the records, if the recoras matcn, 
the process is repeated until the compare limit is reached. 

Control: CTRL 10 

CTRLIO handles ail 1/n control operations that do not involve data transter, 
(There are a tevi exceptions; e.g,, the tape monitor CTmu.% rewinds newly-inserted 
tapes without mvoKinq CTRLIO, and tne read- beyona-end-of-data routine r:vuPfc:D 
is called directly from mcKEY.) 

The calling routine passes three pieces ot information to CIHLIO: flags for the 
device(s) on wnich the operation is to be performed (stored in loCDFV), a number 
identifying the operation to be performed (lOCTYP), and a parameter, if required 
(sign in lOPSGiM, magnitude in IOCCnT). CTHLIO calls the driver for each device 
specified in lOCDFV oy transferring through table CTLTAB. The , hardware driver 
for each device interprets tne operation type and parameter. 
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Escape Sequence Read (ESC & p R): lOREAD, lORDGO, BNRYGO 

This routine Is called by the escape sequence routine (see lOCNTL, above) only 
if the escape sequence came from the data comm. lOREAD sets a flag (SDVREC) in 
MFLGS and returns to the main cooe. This bit informs the main code that the I/O 
routine lORDGO should be called when a data comm handshake has been completed. 

lORDGO reads a record by calling GfeTIO, If an ASCII read was requested, the 
record is output by calls to EXPBUf . This utility routine expands display codes 
to escape sequences and calls the main code routine XPUTDC to output each 
character. 

If a binary read is requested, lORDGO reads the record and passes control to 
SDBltCT. This routine sends the byte count to the data comm, sets the SBINRY bit 
in MFLGs and returns to the main code. The SBINRY bit causes the main code to 
call tne I/O routine bnrygo when a second handshaKe is completed. BNRYGO sends 
the binary data to the data comm via calls to XPUTDC. 

If a file read is requested, lOREAD sets tne FILRFlD flag in lOFLGS. IORDGO and 
BNRYGO checK this flag after sending a data record; if it is set, the routines 
set SDVREC before exiting to trigger the next record transfer after a handshake. 

Read Key: REDKEY, CTLRED 

REDKEY and CTLRED implement the READ key and control READ functions, 
respectively. These functions request a local reaa to display, read to data 
comm with handshake, or read to data comm without handshake, depending on the 
terminal mode and strapping (see Reference Manual and descriptions of redkex, 
CTLRED, below for complete description). In each case, one file is read from 
the current •*FROM" device. 

Local read is implemented by a call to XFRD2D. 

Read to data comm is implemented by repeated calls to IORDGO. Two flags, both 
in lOFLGS, control the read. RDWOWT is set for a read without handshake, and 
causes lOPDGQ to loop until a file mark is read. USREAD causes IORDGO to set 
the SDVREC bit in mflgs after sending each data record. SDVREC causes the main 
code to call IORDGO after a handshake has been completed. 

Escape Sequence Write (ESC & p W): lOWRiT 

This routine is called by the escape sequence routine (see lOCMTL, above) only 
if the escape sequence came from data comm. 

This routine implements both ASCII and binary write commands, ASCII records are 
read from the data comm by the DC2BUF routine; binary records are read in a loop 
in lOWRiT (address IOW025), The record is sent to all "TO" devices by a call to 
PUTIO, 
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Record Key: RFXKEi , RCHDGO 



RBICKt^ decides wnat to do when the RLCQRO Key is Dressed. it the terminal is in 
Record or fidit Mode, Rfc:CKE.)f lumps to USRCDA csee below). Otherwise, if the 
terinindi is in Local Mode, RecKEY copies the display to ali "TO" devices via a 
call to XFRD21). 

If the terminal is in Remote Mode land not doinq Data Logcjing), RBCKtY enaoles 
Record Mode oy setting the RECORD flag in MDFLGU when Record i^ode is trigaered 
(Character other than CR or LF received from data coinir), the main coae calis 
RCRDGO. RCROGQ reads records from the data comm (via DC^BUF) and copies them to 
ali "TO" devices (via PUTiO) until an error occurs or the RECOFb Key is pressed 
again. in this case, the RECORD key is nandlea by RCRDGu instead of RKCKEY. 

Status Request (ESC i. P *): lOSTAT, XOSTGO 

lOSTAT sets the SDVST flag in MF'LGS to signal the main code that device status 
should oe sent after a data comm handshake. lOvSlAj puts tne device number of 
the device for which status is being ootained in JUSIAU. ihen lusiAl jumps (via 
transfer table SXAXTB) to the routine whicn generates status tor the selected 
device. ihe device routines put the status in ram locations lOSlAi to iusrA3. 
After a handshake, the. main code calls lOSTGO to output the status. 

Edit, Data Logging: USRTeD, PTTPLN, UwSREUA 

lOCKfcX jumps to USRXED whenever the f4 function is pressed after the GREEN key. 
USRTED turns Edit Moae (or Data Logging Mode) on or oft by settina or clearing 
the EDIT flag in mofLGI. 

'*ihen the terminal is in Edit or Data Logging Mode, and a line of text is aoout 
to roll off the top ot tne screen, the main code calls pitrln. PTTFln reads the 
top line from the display and writes it on ail "lo" devices oy calling PUTio. 

USREDA implements the RECORD key function for Edit and Data Logging Moaes. Ihis 
routine copies tne display to all "TO" devices by calling PTl'PLN throuan tne 
main code routine PTbLFO, if the terminal is in Data Logging Mode, USPlDa then 
exits. If in Edit .^ode, USREDA copies the last line to the "ID" aevices oy 
calling PTTPLN directly, then copies the rest ot the input file to the "Tu" 
devices by calling XFRU2D, and finally exits Edit Mode by clearing tne EDIT 
flag. 

Fast Binary Read (ESC e): CTDCOP 

CTDCOP reads records from the "FROM" device oy calling GETin, The records are 
output via calls to bnrxgo. 
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Hardware Drivers 



CTU General 



The cartridge tape hardware Is multiplexed — only the selected unit may move or 
generate Interrupts. The hardware drivers for the left and right tape units 
select the required unit (via SELLCT or 5ELRCT) oy appropriately settinq the 
unit select bit in the CTU command word and copying the information for that 
unit into the RAM locations between UNITO and 5FTCNT, inclusive (Information for 
the unit not selected is saved in the RAM area OTHER}, These hardware drivers 
then branch to the unit-independent drivers discussed below. 

CTU interrupt Routine: CTINTR 

Four conditions cause tape interrupts: (1) tach edge (TAK bit in tape status 
goes high), (2) hole detected (HOL bit goes high), (3) byte read from tape (PDY 
bit goes high while reading), (4) unit ready to write byte on tape (RDY bit goes 
high While recording). The interrupt routines determine the causeCs) of tne 
interrupt by examining the tape status. 

The CTU interrupts to location 50 octal in the main code. Tne main code 
determines whether the I/O code is installed; if so, it jumps to CTINTR. CTINTR 
is responsible for monitoring holes and setting UNITO accordingly, and for 
maintaining an absolute tach counter for the selected unit (used by the GREEN, 
SFACE routine). After handling these, CIINTR jumps through CTIVEC to a 
subroutine for the particular tape function being performed. (Note: for easy 
identification, these subroutines all begin with the letters "TI", as TIDOO, 
TIEBK, etc.) It is the responsibility of the hardware drivers to correctly set 
up CTIVEC before moving the tape. 

CTU input: CT2SUF 

CT2BUF causes a record to be read from the selected tape and returns a pointer 
to the buffer containing the record. Basically, CT2BUF sets up CTIVEC, starts 
the tape moving, and monitors the two I/O buffers until the interrupt routine 
marJcs one as ready, see the section on alternate I/O for a description of use 
of the I/O buffers. 

To improve throughput by keeping the tape running, the tape reading interrupt 
routine TIGCTl may initiate another read after a record has been read. In this 
case, the tape will be moving when CT2BUF is called. CT2BUF will just monitor 
the buffers until one is ready. 

CTU output; BUF2CT 

BUF2CT causes a record to be written on the selected unit. In the process of 
initiating a write, BUF2CT clears the buffer status bit for the selected tape 
and sets the high-order status bit to hold the buffer until the recording is 
finished. Once the recording operation has been initiated, BUF2CT returns. 
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,allowing the interrupt routines to complete the operation. 

Upon completing a record, the recording interrupt routine TiPCil chf»cks the 
status of the other buffer to see whether it is designated for output to the 
selected tape. If so, llPCil initiates recordina of that butfer. bUt'iCT 
aetects this situation by checking the buffer status wnen called, 

CTU control: CTLCT 

CTLCT taxes as a parameter a number identifying the required operation in HAM 
location lOCTifP (see CTRLIU, above), CTLCT then uses this number to branch to 
the correct tape driver through transfer table CICTLT. 

Printer output: BF2PHT 

The 2b45 firmware supports three printer Interfaces: parallel, HS-232 serial, 
and video output. The type of Interface cara (if any) Installed In the terminal 
is deter^ihed by the main code on power-UD and reset. This information is 
stored in the RA,^ location PIPFLG, 

BF2PRT calls PfHCHH to output each character, PTPCHH checics FTRt rG to determine 
which driver to call: PKCriHl for the parallel interface and video output, 
PI^CHR2 for the serial RS-232. 

BF2PRT is also responsible tor interpreting spacinQ information encoded in 
records read from a formatted displav. Each physical record reaa from a 
formatted display corresponds to one line of tne display containing at least one 
unprotected field, tvery such record begins with an octal 3o4 byte (ioentifying 
it as a Format iMode record), followed by a byte givlnq the number of lines in 
the display between that line and tne last previous line containtna unprotected 
fielas. in addition, every field in the record is preceded oy a 304 oyte 
followed by the number of spaces between that field and the previous field (or 
beginning of the line, if it is the first field), bF2PRT translates this 
information into an appropriate nuniber of line feeds ana spaces so that the 
prlntea fields will be spaced the same as the formatted alsplay. 

Printer Control: CTLPRT 

only two printer control commands are implemented: sKlp lines and form feed (any 
unrecognized control request is translated into a form feed), CTLPRT executes 
both commands oy calling PIRCHR. 

Display input: 0SP2BF, pttpln 

DSP2BF is called by GETIU, and thus is involved in all copy ana read operations 
which use tne display as input. Characters are reaa from tne display via calls 
to tne maih code routine GETDSP, i)SP2BF is responsxDle for inserting the 
spacing ihformation in Format Mode records mentioned above. 
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PTTPLN Is called in Edit Mode to output lines as they roll off the top of 
display memory. This routine gets characters from the display via the main code 
routine nxTCHH. NXTCHR differs from GtTDSP In that the former does not Involve 
the cursor. Since Edit Mode and Format Mode are Incompatible, PTTPt-N is not 
concerned with Format Mode records. 

Display output: BF2DSP 

BF2DSP sends characters to the display via the main code routine CHINT. 

Alternate 1/0: BF2ALX, ALT2BF, CTLALT, STALT 

Each of these routines passes the address of an alternate 1/0 vector to the main 
code routine iqpmgO. IORMGO determines wnether an alternate I/O ROM is 
installed, and if so, jumps to the vector, see the section on Alternate I/O for 
more details. 
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^ubrqutinf: specifications 

Each subroutine will use the registers as specified below. Any registers not 
specified in tne exit list are returned ^ith tneir contents undisturbed. The 
settings of the processor flaqs CS, Z, P* and C) are generally not retained, 
certain routines use tne processor flags to represent exit conditions, Tnese 
conditions are listed in the subroutine headers. 

Execute GPEE-^ Key Functions 



lOCKEY - PROCESS KEYBOAPU 1/0 CONTROL SEQUKNCES 

ENTRY! DOIvi'T CARE 

EXIT : ALL REGISTERS DESTROYED 
aC s> fyfl ERROR 

lOCERR = S 
C => ERROR 

lOCERR = U => USER INTERRUPT 
IOCEkR 5 F => FAILURE 

This routine receives control whenever the GREE^ key Is pressed. it processes 
all suDsenuent keyboard input until: 

CU The user aborts the iceyooard sequence oy pressing REThRH. 

U) Ah unattended operation is specified and successfully started. 

Ci) An attended operation is specified and successfully completed. 

(4) The user aborts an attenaed operation by pressing kf.imrn, 

C5) AH attended operation is Interrupted by an error and the user responds 
to the error message, 

iLb) Ah error prevents the successful start of a specified unattended 
operation, and the user responds to the error messaqe. 
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Handle READ Key 

REDKEY - USER PRESSED "READ" KEY 

ENTRX: DON'T CARE 

EXIT ; LOCAL OR BLOCK MODE - LOCAL READ FINiShED 

REMOTE, CHARACTER MODE - MFLGS2 tSDVREC] = 1 
ALL REGISTERS DESTROYED 

The operation of tnis subroutine depends on the REMOTE and BLOCK MODE latching 
iceys. 

Local Read CHEMOTE up or BLOCK MODE down) - the subroutine executes a local read 
to the display until: 

(1) Successful completion of the read (end of file). 

(2) interruption by the user (RETURN). 

(3) An error is detected and the user responds to the error message. 

Remote Read (REMOTE down ana BLOCK f-^ODE up) - the subroutine sets up a remote 
read by setting lOFLGS (USREADJ and HFLGS2 tSDVREC] , 

Handle CONTROL READ 



CTLRED - USER PRESSED CONTROL READ 

ENTRif: DON'T CARE 

EXIT : LOCAL - LOCAL READ FINISHED 

REMOTE, BLOCK, LINE - MFLGS2 CSDVRECJ = 1 
OTHER - REMOTE FILE READ FINISHED 
ALL REGISTERS DESTROYED 



This subroutine handles the Control-Read function. in Local Mode, CTLRED 
performs a local read in the same manner as REDKEY (q.v.). In Remote, Bloclc, 
Line Mode, CTLRED performs the same function as REDKEY in Remote, Character 
Mode, In Remote, Character Mode or Remote, Blocjc, Page Mode, CTLRED calls 
lORDGO (q.v.) until a file is read or an error detected. 
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Handle RECORD Key 

HKCKEY - USKH PRLSiiED RECOi%D KEY 

ENTRY: DON'T CAae: 

EXIT : RECDi^D MODE ENABLED => RECURU MODE EX 11 ED 
EDIT MODE => EDIT NiOljE TERi'.IiM A iED 
LOGGIMG (MODE => DISPLAY COPIED TO "TU" DEVICES 
LOCAL => DISPLAY COPIED TO "TO" DEVICEi) 
REMOIE => RECORD MuDE ENABLED 
ALL REGISTERS DESThOYED 

This subroutine handles all of the functions ot the kECORC Key except for 
turning off Record Mode once it is trigqered, 

Note that Record Mode is only enabieu oy this routine. Ihe wain Code detects 
the triggering condition (character other than CP or U receiveo from data comm) 
and enters Record Mode by calling kCrogo (q,v.). 

Handle Device select (GOLD Key) 



SELKEY - SELECT "FROM" AI^D "10" DEVICES 

ENTRY: DOfv'T CARE 

EXIT : ERROR => WO CHANGE Ih DEVICE ASSiGwf^ENXS 
WO ERROR => DEVICES RESELECTED 
ALL REGISTERS DESTROYED 

This subroutine nandles suosequent Keyboard input as follows: 

(1) GOLD Key: Abort aevice selection. no change In "from" ana "to" 
devices. 

(2) fl - f8: Accumulates the selected device(s). Key f4 is Invalid, and is 
ianoreg, 

(3) Other: 

Ca) Valia selection tat most one "from" device): ihe "from" and 
"to" devices are changed, if any *ere selectea. A call is made 
to the keyboard code module to cause the last Key hit to oe 
reissued on the next call to "zGTKEY". 

(D) Invalid selection Cmore than one "froui" device): An error 
message is displayed. SELKEY returns when the user presses 
RETURN, The last key is not executea. Device selections are 
not changed. 
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Tape Test 

TSTCTU - DO COMPLETE TEST UF TERMINAL INCLUDING 
TEST Of BOTH TAPE UNITS. 

entry: DON'T CARE 

EXIT : SUCCESSFUL TEST => RETURN AFTER LAST SELF-TEST 

ERROR => DISPLAY ERROR MESSAGE Ai>*D HANG TERMINAL 
ALL REGISTERS l)ESTR05(ED 

This routine performs the keyboard Initiated tape test procedure: 

(1) A tape test is pertorn^ed on the iett drive, 

C2) Two terrnlnal self-tests ITRMIST) are performed, 

(3) A tape test is performed on the right drive. 

(4) Anotner terminal self-test is performeo. 

This procedure provides the proper duty cycle on the tape drives for the 
"purn-xn" process during manuf acturinq of the terminal. 

If any errors occur # an error ntessaqe is displayed ana the terminal is made to 
"hang" oy going to "riAivGUO" in the main code module. Control is returned to tne 
calling routine only it the entire procedure is completed successfully. 

Condition Tape 



CONDTN - PROCESS CONDITION TAPE COMMAND FROM KEYBOARD 

ENTRY: DON'T CARE 

EXIT : ALL REGISTERS DESTROYED 

This routine processes the condition tape command from the keyboard. The 
keyboard is monitored tor another Key hit. If a device specifier Key is hit 
(fl-t8), the control function - ESC ^ p 4 C - is executed on the selected 
device. If the device is a cartridge tape, a tape condition operation is 
performed on the specified drive. Control is returned to the calilnq routine 
after the control operation is completed. If the RETURN Key is hit, a return is 
made immediately without any control operation being performed. Any other key 
nit causes the bell to be sounded. 
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Soft Reset Tapes 



RSTCTLl - CiU SOFT HKSKT 

ENTPt: INTFiRRUPTS DISABLED 

EXIT : InTF.RRUPTS ENABLED 

AliL REGISTERS DESTROYED 

This routine is called wnenever a sott reset is executed, it a tape is moving 
When this routine is called, the tape is rewound to the Load Point (It a record 
operation is in progress, a File MarK ana End of Data haiK are written oefore 
the rewind), no action is taken for tapes that are not luovina, i/p buffers are 
freed. 

Set Up for r/O Control Escape Sequence 

lOCNTL - <ESC><&><LnwER CASE P> RFCEIVED 

ENTRY: OOM'T CAKE 

EXIT : RNGTA = lOCTAB 
ESCFLG = 2 

i/U CONTROL VARIABLES CLEARED 
A,C,H,L DESTROYED 

This routine Is called whenever the terminal receives the l/G control escape 
sequence header (ESC & p) from any source. This routine sets up the terminal to 
interpret the parameters of the escape sequence by clearing the i/n control 
variables and setting the character interpretation table (rngta) to the tauie of 
I/O control routine vectors CIUCTAB). Setting ESCFLG to two prevents the mam 
code from resetting rngta. 

Send Device Status to Data Comin 



lostgo - sehd device status 

entry: iostao = device code 

i0sta1-i0sta3 = device sxaius 
handshake conipleted 

exit ! status sent 

a,b,c,h,l destroyed 

This routine transmits the information requested by a device status escape 
sequence (ESC «»p*). The status information will have already oeen gathered by 
an 1/0 control routine entered from the main code via lUCTAb (see lOCiMTD. Tae 
control routine sets a bit (MFLGS tSDVSTJ ) that signals the main code to call 
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lOSTGO when a data comm handshake has been completed. lOSTGO sends the status 
information out the data comm as an escape sequence: ESC \ p <device code> 
<status byte 0> <status byte 1> <status byte 2>. The device status pending tlag 
(MFLGS [SDVST3) is cleared after the device status is transmitted. 

Send I/O control Completion Code to Data Comm 



lODNGO - SEND OPERATION COMPLETED RESPONSE 

ENIRi: lOCDPT = COMPLETION TYPE (S, F, OR U) 
HANDSHAKE COMPLETED 



EXIT : COMPLETION CODE SENT 
A,B,C,H,L DESTROYED 

Most I/O control escape sequences return completion codes when received from the 
data comm, Ihe routines which execute these control functions put the 
completion code (S = success, F = fail, U = user interrupted) Into lOCDfT and 
set the device completion code transfer pending bit (MFLGS [SDVDUM). when a 
data comm handshaice is completed, this routine is called to transmit the 
completion code. After the completion code has been transmitted, the transfer 
pending pit is cleared. 
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Send I/O Record(s) to Data Comm 

lUHDGO - TRANSFKR hECOHD TU DATA COMM 

ENIRY: HANDSHAKii: COMPI.EIP'D 

lOCTYP = THAwSMTSSlON TYPE 

= A6CII, NEXT BLOCK 

1 = ASCJl, LAST BLOCK 

2 s BINARY, r^tXl BLOCK 

3 = BINARY, LAST BLOCK 

4 = ASCil FILL HEAD 
6 = BINARY FILE READ 

iOFLGS [USBEAD OK FILRFDJ = I => REAL FILE 
lOFLGS [RDwOwTJ = 1 => READ FILE w/0 HANDSHAKE 
LSTRED -> START OF LAST BLOCK 

(0 => NU LAST BLOCK) 
NXTRED -> START OF MEXT BLOCK 

(LSB=0 => GET NEW BUFFER FULL) 
NOTE: ASCTI TPA^^SFER IS i FIELD (FORMAT 
RECORD) OK 1 NORMAL RECORD. 
BInAKY TRANSFER IS ALl^AYS 1 RECORD 

EXIT : ALL REGISTERS DESTROY FD 

LSI RED, NXTRED UPDATED IF NEXT BLK 

WAS REQUESTED 
ASCII TRANSFER - BLOCK SENT 
BINARY TRANSFER - BYTE COUNT SEN I, 

MFLGS2 tSBIiSiRY) = 1 
FILE READ, READ w/O WAIT - FILE SE1^.T 
FILE READ, READ VvIIH HANDSHAKE - RlCOPD SENT, 

MFLGS2 tSDVRECJ = 1 

in any read requiring a data comm nandshake Ce.q,, READ Key or ESC & d <read 
byte controI> R), the initial Handling routine sets the device record transfer 
pending flag MFLGS CSDVREC] (see RFDKEY), After a aata comm handshake is 
coiTipleted, this routine is called to perforin the required transfer operation. 

If an ASCII transfer is specified, lORDGO transmits tne data directly. 
Otherwise, tor a binary read, lORDGO senas the oyte couiit and sets i*iFLGS2 
[SBINRYJ, which signals the main code to call BMRYGO (g,v.) to send the binary 
record when the next data comm handshake is complete. In either case, the 
transfer pending flag MFLGS tSDVRECl is cleared. 
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Enter Record Mode 

HCRDGO - ENTtR RECORD MODE 

ENTRY! RECORD MODE ENABLED (VIA "RECORD" KEY) 

RECORD MODE XRIGGERFD (VIA RECEIPT OF CHARACTER 
FROM DATA COMy. OTHER THAN CR OR LF) 

EXIT : ALL REGISTERS DESTROYED 

RECORD MODE EXITED BECAUSE OF ERROR OR USER INTERRUPT 

The user enables Record i^ode by pressing tne RECORD Key (see RECKEY). When the 
main code detects a character from the data comm that is not a CR or LF, it 
calls HCRDGO to enter Record Mode. RCRDGO copies data from the data comm to the 
"to" device(s) until there is an error or until the user terminates Record Mode 
by pressing the RECORD key again. If terminated by an error, RCRDGO does not 
return control until the user responds to the error message. 



Send Binary 1/0 Data to Data Comm 



BnRYGO - SEND BINARY RECORD 

ENTRY! LSTPED -> FIRSl BYTE OF RECORD 

EXIT ! ALL REGISTERS DESTROYED 
RECORD SENT 
BUFFER RELEASED 

BNRYGO is called to do a binary record transmit after lORDGO (q.v.) has sent tne 
byte count and a second data comm handshatce is completed. 
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Fast Binary Head CESC e) 



CTDCUP - FAST BINARY RtAD 

ENTRY: OONT CARE 

KXIT : ALL RFGXSTtR6 DEiSTRD/FO 

This routine is caliea whenever the termlhal receives an ESC e trom any source. 
This routine transmits a tile of binary aata to tne data comm, ihe routine 
returns after the file Is transniitted or -^tien an error occurs. 

Monitor cartridge Tapes 



CTMON - MONITOR CARTRIDGE TAPF UNITS 

ENTRif: OON'l CARF 

EXIT : A,ri,L OFSTROYFO 

This Subroutine looKs for tapes tfiat have just Deen inserted or removed. Newly 
inserted tapes are rewound to the load point if ana only it the tape units are 
not busy (i.e., tne RUN bit Is off in tne last command issued j. utherwise, tne 
new tape Is ignored until the next call to CTMUN, Fject Hants are turned otf 
for tapes that hciwe oeen removed, 

CTMON is called by all wait loops to Insure that tapes cannot be reiioved without 
the terminal knowing about it. 

Record Top Line of Display 



PTTPLN - OUTPUT TOP LINE OF DISPLAY MEMORY 

ENTRY! D,e -> (IvST CHAR In LIi^EJ + 1 

EXIT : C => ERROR, LINE NUT OUTPUT 

NC => HO ERROR, LlHE SENT TO ALL "TO" DEVICES 
A,B,H,L DESTROYED 

This subroutine is called to roll a line otf the top of display memory in Edit 
and Data Loaging Modes, 

m the event of an error, PTTPLN returns (with Carry set) after the user 
responds to the error message. 
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Initial Tape Interrupt Vector 

TIDOO - "DO NOTHING" TAPE INTERRUPT HANDLER 

Abort User Read 

ROABRT • ABORT USER READ OPERATION 

ENTR5fJ USER READ IN PROGRESS 

(lOFLGS [USPEAD] = 1 OR IQFLGS CFILREDJ = 1) 

EXIT : READ ABORTED 
BUFFERS FREED 
A,B,C,ri,L DESTROiED 

CnecK tor Busy Tape Drives 

BSYCHK - CHECK IF CTU BUSY 

BUS^.'"MESsLr"fpEr'lNSER^ DURIN^'xI^f ^ INTERRUPT. DISPLAYS "CXU 
RETURNS. INSERTED DURING THE WAIT ARE REWOUND BEFORE 6SYCHK 

ENTRY! DON'T CARE 

EXIT : UC => CTU NOT BUSY 

C => USER INTERRUPTED 
A,H,L DESTROYED 

This subroutine is called before terminal c«i* ♦.* ^ . 

user interrupts the operation by pressing return" ' ""^^ ""^ """^ ^^"^ 
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:Cartridge Tape interrupt Routine 

CTINTR - PHOCCSS CARTRIDGE TAPfe: INTERRUPTS 

ENTRif; RETURN ADDRESS , PSW ,H ,L PUSHED ONTO SIACK 
INTERRUPTS DISABLED 

EXIT : RETURN EROM INTERRUPT 

FLAGS, PtIGISTERS RESTORED 
INTERRUPTS ENABLED 

This routine handles all cartridge tape interrupts. The niain coae saves the PSw 
and ri and L registers, and does a poll to determine which device Interrupted. 

CTINTR re-enaples interrupts oefore returninq. If an interrupt requires much 
processind (e.q,, to start writing anotner record atter one reroro is 
completed), CTINTR re-enabies interrupts before returning Cintermpts should not 
06 disabled tor more than 300 microseconds). Iheretore, nrore Chan one call to 
CTINTR may be on the stack: concurrently. Note that CTINTR starts imnieaiatel y at 
location 240758 rather than having a vector. This helps to stredmline interrupt 
handling. 
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HP 2b45A KEYBOARD CODE INTERFACE 

INTRODUCTION 




The Keyboard code occupies the 2k region from 18K to 20K (44000 to 47777 octal) 
in the ROM space, 

INTERFACE SPECIFICATIONS 

Entry Vectors 

The entrv vectors to the keyboard routines begin at location 44002 (octal). The 

vectors consist of "jumps" (JMP) to the correspondinq subroutine starting 
locations: 

Location waine Function 

044002 INITKB Initialization Routine 

U44005 GTKEY Get Keyboard input 

044010 KBCTL Keyboara Control 

044013 KBMON Monitor Keyboard 

044016 SETWDl Set Terminal Moae 1 Flags 

U44021 CliRMDl Clear Terminal Mode 1 Flags 

044024 BELL Sound the Keyboard Bell 

044027 SETXMT Set the rransmit Light 

044032 CLRXMT Clear the Transmit Light 

044035 STJMPR Set vJumper Escape sequence processor 

044040 STLKYS Set Latching Keys Escape sequence Processor 

044043 ALPCHK Alpha Field Check Routine 

044046 NUMCHK Numeric Field Check Routine 

Local Variables 



Local variables tor the Keyboard subroutines are stored in the RA^ region 
177400-177437 (octal). The definition of this area Is at the discretion of the 
particular keyboard module used. 
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Fast Access RAM 

The Keyboard subroutines may use sixty-four (64} bytes in tne fast access RA^ 
region at locations 110700-110777 toctal). 

Keyboard Constants 

The following constants are to be included in the Keyboard code address space: 
Location Usage 



044051 Initial alternate character set 

044052 [nitial aiternate character set for output 

Locations 44051-44052 may be set to either 0, 20, 40, or 60 octal correspondlno 
to the base character set and alternate character sets 1, z, or j. 

Location 44051 contains the alternate character set code to oe used if a sniit 
Out (SO) control code is received by the terminal when no aiternate character 
set defining escape sequence has been received before. 



Location 44052 contains the initial active alternate character set to oe used 
when tearing apart the screen for transmission to the host computer or 
storage on an i/ij device, formally, this value is zero, but 
foreign language set in foreign terminals to inhibit the 
alternate character set defining escape sequence (£sc J) 
4.nto the foreign character set. 



for 
is set to tne 
generation of an 
When the olSDiay shifts 
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FUNCTIONAL DESCRIPTION 
General 



The iceyboard module is organized to provide a flexible structure to facilitate 
the development of foreign or alternate Keyboards. The Keyboard module may be 
divided into tne following sections: monitor. Keyboard input processor, and 
utilities. 

Monitor 



The Keyboard monitor routine scans the Keyboard for changes in the states of the 
Keys on the Keyboard. The Keys on the Keyooard are organized in a matrix of 14 
columns of eight Keys. The current state of the Keyboard is maintaJned by the 
monitor routine in a 14-byte bit table. Eacn Key on tne Keyboara corresponds to 
one bit in the bit table. A scan of two columns in tne Keyboard matrix Is made 
on each call to the monitor routine. If any Key transitions are detected, an 
entry is made into a transition buffer and the current Keyboard state table is 
updated. Then the monitor routine is terminated. 

Each entry in the transition buffer consist of two bytes: the column number ir. 
which the transition occurred and the new state for the column. These entries 
are later interpreted by the Keyboard input processor. An entry in the ouffer 
may actually contain multiple Key transitions for a Key column. The transition 
buffer contains space for up to 20 transitions. 

The monitor routine is called each time the processor's timer interrupts (about 
every 10 milliseconds). This results in a minimum interval of 70 milliseconds 
for a full Keyboard scan when no Key transitions occur. Additional scans are 
made on calls to the Keyboard input processor to provide a higher scan rate. 

Keyboard Input Processor 



The Keyboard input processor (GTKEY) taKes the input from the transition buffer 
and performs the proper action for the Key transition(s) . Tne action may be fo 
return a character code to the calling routine or to perform an internal 
operation. 

Another state table, identical to the state table maintained by the monitor, is 
maintained by the Keyboard input processor. The alternate state table reflects 
the transitions that have been processed by the Keyboard input processor. 

When a Key is pressed down, the action taKen is derived from an index table, 
separate tables are defined for actions to be taKen when tne shift Keys are up 
and when either shift Key is down. This corresponds to the lower and upper case 
sets. The table index is computed by multiplying the column number of the Key 
by 8 and adding the number of the bit that corresponds to the Key. 
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Each entry in the index table consist of one byte. It the hiqn order bit of the 
%ntry is zero cO), the entry represents an ASCII character to be returned to the 
calling routine. These types of entries are used for the cnaracter set and 
numeric parts of the keyboard. Entries in the range 200-207 (octal) represent 
actions to be performed internal to the keyboard module. These types of entries 
are used for tne latching keys and keys which switch functions on and off (e.g., 
MEMORY LOCK). The action may result in no data returned to the calling routine 
or a value in the range 260-377 (octal) returned. Entries in the range 230-237 
(octal) represent keys tnat perform internal terminal functions (e.g., READ and 
HECoHO). Entries in the range 260-377 (octal) represent keys that generate 
escape seauences (e.g., ROLL UP). In general, the escape seguences are 
t\fco-character escape sequences where tne second character of tne escape sequence 
is derived by masking out the high order bit of the entry. Some codes are used 
to generate three or more character escape sequences, in particular, tne 377 
(octal) code is used to signify the display enhancement code (ESC <k d). The 
last code returned from a call to GTKEY is stored in location KBCHAH. 

All keys, except the latching and internal terminal function keys, repeat if the 
key is held down. Repeating is accomplished oy setting a repeat counter, 
KBIJIMR* to the number of 10 millisecond intervals plus one before tne key is to 
be repeated. The monitor routine decrements the repeat counter to the value of 
one. If no nesv keys are pressed down when tne input processor is called and the 
repeat counter contains a value of one, the last key hit is repeated. The code 
for the last key hit is reissuea from location KBCHAR and the repeat counter is 
reset tor another repeat Interval, Three repeat intervals are useo: a start 
repeat delay for the cursor control keys, a start repeat delay for all other 
keys, and a repeat delay after repeating has begun. The repeat counter is set 
to itero (0) when no key is repeating. 

Generally, the only action taken when a key is released is to update tne 
alternate state table and to clear the repeat counter if the itey released was 
repeating. Only the latching keys require additional action when the key is 
releasee. The action consist of clearing a corresponding bit in location 
MDFi,G2. 

utilities 



A number of utility routines are included in the keyboard module. These involve 
the setting and clearing of the lights on the Keyboard, processing the escape 
sequences to set and clear the latching keys and keyboard option switches, 
sounding the hell, and performing the type checks for alphabetic and numeric 
Characters. 
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The subroutine descriptions will specify the parameters to be included in tb^ 
registers on entry and the register results on exit. Any registers no 
specified in the exit list retain their entry values. The processor flags CS 
Z, P, and C) are generally altered by the subroutines. Certain routines use the 
processor flags to signify ditferent return conditions. These conditions are 
specified in the subroutine descriptions. 

The names of the subroutines to be used within the keyboard code blocic are 
included in the following specifications. The names within parentheses are the 
names that will be used by the external code blocks to reference the associated 
subroutines. 

Initialisation Routine 



INITKB CZINIKB) - INITIALIZE KEYBOARD 

entry: DON'T CARE 

EXIT : A DESTROlfED 

NC => NO ERRORS 
C => ERROR DETECTED 
B,C -> ERROR MESSAGE 

This subroutine is called whenever power is turned on or a complete terminal 
reset is being performed. The Interrupt system must be disabled by the calling 
routine when this subroutine is called. 

This subroutine initializes the option switch flags CKBJMPR, KBJMP2, and KBJMP3) 
to the settings of the option switches on the Keyboard interface, clears the 
keyboard state tables (KBBUF and KBBUF2), and turns off all the lights on the 
keyboard (KBLEDS » 0). 
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Set Keyboard input 

GTKEY (ZGETKY) - GET KEYBOARD IWPUT 
ENTf^Y: DOM'T CARE 

EXii ; Z => KEiBUARD IWPUT PRESENT 
A = KEYbOARD INPUT CODE 
NZ => NO KEYBUAHD IlsiPOT 

A = => NO KEY HIT (OR NULb CHARACTER) 
A # => KEitBOARD LOCKED (VALUE 16 KEYBOARD 
INPUT CODE) 
B,C,D,E DESTRuiED 

Tfiis routine Is called to get Input, if any, from the keyooard. The Keyboard 
Input code ranges from to 377 (octal). The values from o to 177 (octal) 
represent an ASCII character corresponding to the key that was hit. The values 
from 2b0 to 377 (octal) correspond to keys that translate to two-character 
escape sequences (e.g., roll UP, roll DOVa^i, INSERT LINE, etc.). The second 
character of the escape sequence is extracted by masking out tne hign order bit 
of the value (e.g., 301 -> loi (A)). The values from 360 to 367 (octal) 
represent the function keys fl to fb respectively. Tne values 230 
(octal) are associated with the following keys: 

value Key 

2 30 ENTER 

231 BREAK 

232 DISPLAY FUNCTIONS OFF 

233 I/O CONTROL (GREEN) 

234 READ 
2 35 RECORD 
2 36 SELECT (GOLD) 
237 CONDITION TAPE (Control-TAPE TRMTST) 

Monitor Keyboard 



to 237 



KBMON (ZKBMON) - MONITOR KEYBOARD 
entry: DON'T CARE 



EXIT 



ALL FLAGS AND REGISTERS DESTROYED 



This subroutine will be called approximately once every 10 milliseconds on a 
timer interrupt. Each time this subroutine is called, two columns of tne 
keyboard are scanned for any changes in key state. By beinq called on a timer 
interrupt, a minimum scan rate of 70 milliseconds for tne keyboard is provided 
The current state of the keyboard lights are also set by the monitoring routine. 
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Control Routine 

KbCTL (ZKdCTI.) - KEYBOARD CUNTROL 

KNTHY: A = CUNTBUL CUnt 

EXIT : DbTERMINKU BY INDIVIDUAL CHNTHOL HHU'lINhS 
Ge:Nr:hALLy, D'b Ke.CiISrtR6 Ai<t, oA^/FL' AWU 
A-C DtSTPUYtD 

This routine Is cailea to nerform various control tunctions on the fceyt^oard 
subsystem, ihe control parameters and registers us^o are as follows; 

Control 
Parameter Function and Comnients 

1 LUKKfAD - Lock Keyooaro 

This routine Is cailen to mnioit the b)KF,t' routine trom returning a 
Key hit status CZ). This etfectlvely locKs out tne ^'-eyocara tror- tne 
teri'ninal. ^ote that Key values are still returned on calls to r/iKKY 
if any Keys are hit (see description to GTKh.Y). Any Keys nit .vfUie 
tne Keyooard is locKeu are not retained, 

2 Uijf.KKb "• UnlocK KeyLoara 

rnis routine restores the GTKtY rontlne to norria] operation aiter a 
control call to Iock the Keyboard has oeen .naae. 



trie GTKFi^ routine 



PPTKEY - Kepeat Last hey nit 

Tnis routine causes ttte last Key code returned oy 
to be returned again on thf* next call to bTKFi, 

STRLMD - 6et Permanent blocK -loae 

This routine is called ^t power on or full terminal reset 
initialization to put the tenvlnal into permanent BiocK rtOde. ihis 
forces tne BLOCK MODI Key m the gown state and KeyDoard option 
switches o and H into tne "open" position. i'ne BLOCK tMWE. Key and 
option switches are nelo in these states regardless of their physical 
state and cannot De altered by any escape seguence. 

Tnis control function ii mvoKed tor data comm protocols v»hicn are 
strictly BlocK Mode orlentea (e.g., multipoint). 

STPTST - Set Self-test start Mode 

This routine is called at the beginning of a terminal self-test. 
This causes all tne lights on the Keyooard to be lit, sounds tne 
bell, ana sets tne force full reset tlag (CMf LGS(FhCHSI3 ) to cause a 
full reset if the RtStT KfcY is pressea while the selt-test is in 
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progress, 

6 ENDTST - Knd Self-test 

Tnis routine is called at the completion ot a terminal self-test. 
The true state of the Keyboard lights is restored and the force full 
reset flag is cleared, 

7 PSETKB - Reset Keyboard 

This routine is called when a Soft Reset has been initiated. The 
keyboard state table and buffer are set to indicate no new keys nit, 
the current state of the SELFCT, RECORD, and DISPLAY FUNCTIONS lights 
and flags are cleared, all the keyboard lights are lit and the 
keyboard oeil is soundea. 

8 CKIOKY - Checjc for l/u Key Down 

This routine returns the state ot the I/O key (GREEN key) as follows: 

Z => I/O Control Key Up 
iMZ => 1/u Control Key Down 
A-E Destroyea 

9 STPRPT - Stop Key Peoeat 

This routine inhibits the last key hit trorr; repeating. One use of 
this routine is from the I/a module to inhibit the RETURN key from 
repeating when the key is used to abort an 1/0 operation. 

10 CKBRKY - Check for Break Key 

Tnis routine checks the physical state of the BREAK key. If the 
BREAK key is down, the keyboard Input buffer is flushed until no more 
keys are pending. The register and condition flags are returned as 
follows: 

Z => Break Key Not Down 

A Destroyed 
NZ => break Key Down 

A-E Destroyed 

U SWCHAH - Switch Character Set 

This routine is called whenever a Shift In (si). or Shift Out tso) 
control code Is executed by the terminal. This routine is primarily 
used in bi-llngual terminals to select either the Normal or Foreign 
Mode of operation. 
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12 SETFRN - Set Foreign Mode 

This routine is called to set the proper operating Mode for 
bi*lingual terminals (foreign or normal) when a Clear Line operation 
Is performed. The operating Mode is set to the last defined setting 
for the line. This is important when a Clear Line operation is 
performed at the display border between a foreign and normal field to 
insure the proper operating Mode for the next input character. 

13 STCHST - Set 6i-lingual Output Mode 

This routine is called to send an optional SI or SO control code for 
bi-lingual terminals when the screen is torn apart for transmission 
or storage on an I/O device. The flags and registers are returned as 
follows: 

NC => No Character to Output 

A Destroyed 
C => SI/SO Character to Output 

A = Character to Output 

14,15 FRNMDl, FHNMD2 - Set Foreign Mode 1 and 2 

These routines are called when either an ESC < or ESC >, 
respectively, is received by the terminal. The actions taJcen by the 
routines are defined by the language being implemented by tne 
vceyboard module. 

Set Terminal Mode 1 Flags 



SCTMDl (ZSTMDl) - SET TERMINAL MODE 1 FLAGS 

entry; a = FLAG BIT TO BE SET 

B = 377B => BLINK ASSOCIATED LED 
= => DON'T BLINK ASSOCIATED LED 

EXIT : A,C DESTROYED 

ASSOCIATED LED,. IF ANY IS SET ON 

The bits in location mdflGI are associated with operating modes of the terminal 
(see Common Area Allocation), In addition, some of these modes are associated 
with a light on the iceyooard to indicate whether the mode is on or off. This 
routine is called to set a bit in MDFLGI and consequently, to set the 
corresponding light, if any. 
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7lear Terminal Mode 1 Flag 



CLRMDl (ZCLMDl) - CLEAR TtlRMIKAL MODE 1 FLAGS 

entry: a = FLAG BIT TO Bfc CLCAKKD 

EXIT : A,C DESTROYED 

ASSOCIATED LED, IF ANY, IS TURNED OFF 

This routine performs the converse operation of SETMDl, The specified bit and 
the corresponding keyboard light, it any, are cleared. 

Sound the Keyboard Bell 



BELL CZBELL) - SOUND THE KEYBOARD BELL 

£NTH^; DUN'T CARE 

EXIT : A DESTROYED 
Z FALSE 

This routine is called to sound the bell on the Keyboard 
Set/Clear the Transmit Light 



setxmt (zstxmt) • set transmit led 

entry: don't care 

exit : a,h,l destroyed 
clrxmt (zclxmt) - clear transmit led 

Entry: ddn't care 

exit : a,h,l destroyed 

These routines set and clear the transmit light in the Keyboard 
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Set Jumper Escape sequence Processor 

STJMPR (ZSTJPR) - SET KEYBOARD JUMPER ESCAPE SEQUENCE 
entry; DON'T CARE 

EXIT : A,H,L DESTROYED 

RNGTA •> FUNCTION TABLE FOP JUMPER SEQUENCE 

ESCFLG = I 

RADIX s 10 (DECIMAL) 

lODATA = 

This routine Is called after the parameterized escape sequence head (ESC & 1) to 
set ^eypoard jumpers has been received by tne terminal. The function table 
pointer (RNGTA) and associated variables are set by this routine to handle the 
setting of the keyboard option switches as specfied by the escape sequence. 

Set Latching Keys Escape Sequence Processor 

STLKYS (ZSTLKY) - SET LATCHING KEYS ESCAPE SEQUENCE 

entry: DON'T CARE 

EXIT : A,H,L OESIROYED 

RNGTA -> FUNCIIUN TABLE FOP LATCHING KEYS SEQUENCE 

ESCFLG = 2 

RADIX = 10 (DECIMAL) 

lODATE = 

This routine Is called after the parameterized escape sequence head (ESC & tc) to 
set the latching Keys has been received oy the terminal. The function table 
pointer (RNGTA) and associated variables are set by this routine to handle the 
setting of the latching Keys as specified by the escape sequence. 

Alphabetic and Numeric Character ChecK Routines 

ALPCHK (ZALPCK) - CHECK FOR ALPHA TYPE CHARACTER 

NUMCHK (ZNUMCK) - CHECK FOR NUMERIC TYPE CHARACTER 

ENTRY: A = CHARACTER TO BE CHECKED 

EXIT : Z => CHARACTER TYPE IS CORRECT 

NZ => CHARACTER TYPE IS NOT CORRECT 

These routines are used by the field checking processor to verify that a 
character belongs in either the alphaoetic or numeric class of characters. 
Normally, alphabetic characters are defined as the letters a-z, A-Z, and the 
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^ace Character? and numeric cnaracters as the digits 0-9, period (.), comma 
i,}, pius (+)r and minus (-)• 
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HP 2645A DATA COMMUNICATIONS/MAIN CODE INTERFACE 

INTRODUCTION 

The Data coram module provides the access from the terminal to an external host. 
This module contains tne necessary drivers to transmit and receive data on the 
data comm Interfaces. 

The data comm code will occupy the 4K region from 20 to 24K (50000 to 57777 
octal) in the ROM space. In many cases, the code will require only 2K of the 
space. 

INTERFACE SPECIFICATIONS 

Entry Vectors 



The entry vectors to the data comm routines will begin at location 50010 

(octal). The entry vectors will consist of "jumps" (JMP) to their associated 
suoroutines. The vectors will be ordered as follows: 

Location Name Function 

050010 INITDC Initialization Routine 

050013 INI2DC Initialization Continuator 

050016 DCMON Monitoring Routine 

050021 DCCIL Contrql Routine 

050024 DCTST Self-Test Routine 

050027 GETDC Character Input Routine 

050032 PUTDC Character Output Routine 

050035 GETBIN Binary Input Routine 

050040 STBIN Start Binary Output Routine 

050043 ENDBIN End Binary Output Routine 

050046 DCINTR Data Comm Interrupt Handler 

Local Variables 



Local variables for the data comm subroutines will be stored in the RAH region 
177200-177377 (octal). The definition of this area is at the discretion of the 
particular data comm routines used. 
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rast Access RAM 

The data camm subroutines may use sixty-four bytes (54) in tne fast access RAM 
region at locations 110600-110677 (octal). 

Communications Protocol Constants 



The constants used for a particular comtnunications protocol occupy the area in 
the Data Comm ROM space beginning at 050000 (octal). The constants to be stored 
there are as follows; 

Location Usage 

050002 Character to be used as block trigger (e.g., DCl) 

050003 Record separator Character (e.g., US) 

050004 BlocK Terminator Character (e.g., PS) 

050005 Data Comm Jumpers MasK (set bit to 1 to 

Inhibit alteration of jumper setting by 
escape sequence) 

050006 Data Comm Jumpers Mas< for Keyboard jumper R 

(Set high order bxt only) 

Returns 

in general, a non-error return is signified by setting the C-tlaq to false, and 
an error return, by setting the C-flag to true. Whenever a data comm error is 
returned, tne data comm error flag (cRRFLG [DCMfc'KPJ ) must be set to one (1). 
This flag will be cleared by the main code after a status request is made uy tne 
computer. 
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FUNCTIONAL DESCRIPTION 
General 



The Data Coinm module can be separated into a number of functional sections: 
initialization, interrupt process, monitor, input process, output process, and 
controls. Two Data comm modules are available for tne HP 2645a: Basic Data 
Comm and Multi-Point Data Comm, 

BASIC DATA COMM 



The Basic Data Comm module uses the data comm buffer for storlnq input 

characters only. The buffer is set up as a circular buffer with a load pointer 
(DCSPIH) and an unload pointer (DCBPTR). 

Initialization s 



The initialization acquires the data comm buffer from the main code module and 
initializes tne various buffer pointers, Tne Keyboard option switches are 
checiced to configure the data comm for normal or main channel protocol. 

Interrupt Process 



The interrupt process is called to retrieve input from the data comm interface 
PCA, Input is stored in the data comm buffer and the ouffer load pointer is 
updated, if a buffer overflow occurs, the data comm error flag (CRRFLG 
roCMERRJ ) is set and an all ones (377 octal) entry is made into the buffer. The 
error flag is also set if a parity or overrun error occurs on the data comm 
intertace. 

The interrupt process strips out any nulls (OB) or rubout (i77Bj from tne input 
stream unless the Transparent Mode (DCFLGS ITHNMODl) or Binary Mode (DCFLGS 
tBINMODl) flags are set. 

Monitor 



The monitor routine checics the various data communications control signals for 
any changes to reflect a change in mode (receive/transmit). The monitor routine 
is also used for timing various operations (e,g,, breaK), 
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riput Process 

The input process gets characters from the data comm butfer and returns the 
Character to the calling routine. If the data comm butfer is empty, tne data 
comm PCA is checked tor a character ready condition. when the hardware 
nandshajce option is selected, the aata comm Interface Is inhibited from 
interrupting. So, no characters are read by the interrupt routine, Insteaa, 
the input routine must explicitly poll the PCA for input characters. 

The input process responds to an knO from the input with an ACK unless the 
transparent or Binary Mode flags are set. The ENQ character is not returned to 
the calling routine. 

Additional checks are made for line turn around characters If the teririnal is 
configured for the main channel protocol option. 

Output Process 



Ine output process transmits characters out the data comm PCA. If the terminal 
is in Receive MOde, a fail return occurs and the character is not transmitted. 
Additional checKs are made for line turn around characters if the terminal is 
operating with the main channel protocol option. 

Controls 



A number of control routines are provided to set various terminal modes (e.g., 
binary or normal) and other data communications control functions (e.g., breaK, 
and modem disconnect). 

HULTI-POINT DATA CUM>1 



The Multi-Point Data Comm module uses the data comm buffer both for input and 
output. The particular protocol implemented operates in a Half Duplex vode only 
Ci.e,,, the terminal can either send or receive, but not simultaneously J , 
Normally, the data comm is set for Receive Mode and cannot go into Transmit Mode 
unless the proper control sequence is received from the nost computer. in this 
manner, the terminal is the slave of the computer. 

The Muiti-Point module drives both the Asynchronous and Synchronous Multi-Point 
PCA's. The module can receive and transmit data in either ASCII or EBCDIC, but 
all data bet*^een the Multi-Point module and the otner terminal modules are 
passed as ASCII characters. Binary data is passed without any translation. 
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Initialization 

The data comm and keyboard option switches are used to confcigure tne operating 
conditions for the Multi-Point module. The size oi the data comm buffer 
acquired from the Main Code module is determined from the data comm option 
switches. 

Interrupt Process 



The interrupt process is called to handle ooth input and output. Data is 
exchanged between the data comm outfer and tne data comm interface PCA. Tne 
interrupt routine communicates witn the input ana output routines via the data 
comm context block. The context blocK identifies tne mode of operation 
ireceive/transmlt) and the state of the data comiu suffer. 

The interrupt process recognizes when the terminal is beinq addressed by the 
computer and oerforms the necessary handshake protocol. The terminal Is set 
either to Receive or Trausmit Mode according to *hetner a select or poll 
sequence is received from the computer. 

Ine interrupt process handles all aspects of the data transfer between tne 
terminal and the computer. Un Input, the clock check character is computed and 
compared against the received value. A positive acknowledgement is made if tne 
values are equal. Otherwise, a request tor retransmission of ttie last data 
blocjf is made. On output, the block check character is computed and appended to 
the data. The data blocic is saved in the data comm buffer, for a possible 
retransmission, until a positive acknowledgment is received. Translation 
between ASCII and EBCDIC occurs in the interrupt routine. 

Monitor 

The monitor routine is used only to set the transmit light on the keyboard. 

Input Process 

The input process extracts characters from the input buffer and returns them to 
the calling routine. 

Output Process 

The output routine adds characters to the data comm buffer. If the terminal is 
in Receive Node, an error return occurs and the character is not loaded into the 
<3«ta coram buffer. If the data comm buffer is full, the output routine waits 
until space becomes available before returning. That is, the output process 
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does not return until the character has been placed into the data comm buffer or 
an error has occurred. 

Controls 



Control routines are available to perform functions similar to the control 
functions for the Basic Data Comm nioduie« Additionally, there are some control 
functions which perform unique functions for the Multi-Point module (i,e.. 
Program Attention (PA) and Program Function (PF) similar to the IBM 3270). 
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SUBROUTINE SPECIFICATIONS 

The subroutine descriptions will specify the parameters to be Included in the 
registers on entry and the register results on exit. Any registers not 
specified in the exit list retain their entry values. The processor flags (S, 
Z, Pp and C) are generally altered by the subroutines. Certain routines use the 
processor flags to signify different return conditions, jihese conditions are 
specified in the subroutine descriptions. 

The names of the subroutines to be used within tne data comm code blocK are 
included in the following specifications. The names within parentheses are the 
names that will be used by the external code blocKs to reference the associated 
subroutines. 

Initialization Routine 



INITDC (ZINIDC) - TNIIIAMZt: DATA COMM 

ENTRY: DON'T CARE 

EXIT : A DESTROYED 

8,C = NUMBER OF CONTINGUOUS BYTES NEEDED 
FOR DATA COMM BUFFER 

This subroutine is called whenever power is Initially turned on or a complete 
terminal reset is being performed, interrupts will be disablea by the calling 
routine when this subroutine is called. 

Initialization of the data comm will be continued by calling the initialization 
continuator routine. The buffer returned then will always start at a 256-byte 
boundary. 

Any errors on initialization should be inaicated on return from the 
initialization continuator. 



PAGE 12 



13255-90003 Hev AUG-01-76 
nitilizatlon Continuator 



IN12DC CZIN2DC) - CUMINUE DATA COMM INITIALIZATION 

ENTRY: D,E: = STAHTING ADDRfcSS OF DATA COMM BUFFER 

EXIT : A DESTROYED 

NC => INITIALIZATION SUCCESSFUL 
C => DATA COMM ERROH DETECTED 

F:RRFLG(DCf^.ERR) = I 

H,L -> FIR51 ERROR HESSAGE SECTION 

This routine is called atter a call to ZlNiDC is made. Interrupts will be 
disataled when this routine is called. 

The Dutfer starting address returned will always have the buffer start at a 
256-toyte boundary tl.e,, E = 0). 

On error returns, the main code of the terminal virill display the message and 
"hang" the terminal until the user presses the RESET TERMINAL fcey. 

Monitoring Routine 



DCMON (ZDCMON) - MONITORING ROUTINE 

ENTRY: DON'T CARE 

EXIT : ALL REGISTERS DESTROYED 

This subroutine will be called approximately once every 10 mililseconds. The 
purpose of the subroutine is to provide tor necessary periodic scanning of the 
data cotnm interface. If scanning of tne data cornm interface is not needed, then 
the subroutine should simply return without aoing anything. 
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Control Routine 

DCCTL (ZDCCTL) - DATA COMM CONTROL 

entry: a = CONTROL PARAMfcTER (see below) 

B-L, CONTROL VARIABLES (as required) 

EXIT : A DESTROYED 

NC => NO DATA COMM ERRORS DETECTED 
Z => CONTROL PERFORMED SUCCESSFULLY 
NZ => IMVALID CONTROL REQUEST 
C => DATA COMM ERROR DETECTED 
ERRFLG(DCMERR) = 1 
Z => NO ERROR MESSAGE 
NZ s> DISPLAY ERROR MESSAGE 

H,L -> FIRST ERROR MESSAGE SECTION 

This routine is used to perform various control functions on the data comm 
interface. interrupts may be disabled tor no more than 300 microseconds oy any 
control routine. The control parameters and variables used are as follows: 

Control 
Parameter Function and Comments 

CLRTRG - Clear Block Transfer Trigger t lag 

Registers B-L are not used and should not be altered, 

X 5ETTRG - Set Block Transfer Trigger Flag 

Registers B-L are not used and should not be altered. 

2 RSETDC - Reset Data Comm 

This call is used to cause the data comm routines to reset 
themselves to their initial condition. This control will be 
invoked when a soft terminal reset is performed. Registers B-L 
are not used and need not be saved, 

3 SETREM - Set Remote Mode 

This control is used when the user presses the REMOTE key to 
cause the terminal to go on-line. Registers B-L are not used 
and need not be saved. 

4 SETLCL - Set Local Mode 

This control is used when the user presses the REMOTE key to 
cause the terminal to go off-line. Registers B-L are not used 
and need not be saved. 
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5 PUTBHK - Output Break Sigfnal 

This control is used when the BREAK Key is pressed by the user. 
If, the break tunction is meaningless for the particular data 
comm protocol, a successful return will be given and the call 
ignored. Registers B-L are not used and need not be saved, 

6 DlSCNT - Modem Disconnect 

This control is used to disconnect (nang up) the terminal from a 
dial-up connection by signalling the modem to turn off. If this 
function is meaningless tor the particular data comm protocol, a 
successful return will be given and the call ignored, 

7 tNDBLK - Terminal output Message 

This control is used to inform the data communications output 
routine that the last character of the current output message 
(block) nas been sent. Note: An ENDBLK control is implied when 
a. call is made to the terminate binary output routine (hiNDBiN). 

8 SETMON - Enter P^onitor Mode 

This control causes the oata comm input and interrupt routine to 
pass ail codes entered from the data comm. no handsnakina on 
codes (e.g., ENQ/aCK) should be done by the data comm routines. 
As a result, some data comm protocols will disable tne terminal 
from communicating with the CPU when In Monitor hode (e.g., 
multipoint). 

9 SETNRM - Enter Normal Mode 

This control causes the uata comm input ana interrupt routine to 
resume normal operation. For example, resume ignoring nulls and 
rubouts, and resume ENQ/ACK handshake. 

10 FSTBIN - Enter Fast Binary Transmit Mode 

This control is called when a binary tile is to be transmitted 
to the host computer. Its primary use is tor the loading of 
Dinary code into the HP 21XX Series computers. Generally, this 
control is applicable only for the standard asynchronous data 
communications module. When the control is recelvea and strap F 
on the keyboard interface is out (i.e., KBJMPR(FSTSnd) =1), the 
data comm interface should be switched to operate at 9600 baud. 
The board resumes normal operation when the ENDBIn (entry at 
050043B) routine is invoKed on the Data Comm module. 

U SNDATN - Transmit Attention Code 

This control is called to cause a single character to be sent to 
the host computer. Its principal use is to emulate the "PAn" 
keys of the IBM 3270 terminal. 
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The B-register contains the character that is to be sent out. 
If this control is meaninqless for a protocol, the routine 
should return with the flags set to indicate invalid control 
request (NC, NZJ. 

12 SNDFCT - send Function Data 

This control is used to emulate the "PFn" keys on the IBM 3270, 
The B-register contains the character to be used as the header 
for the data to be sent to the CPU, 

If this control is meaningless for a protocol, the routine 
should return with the flags set to indicate an invalid control 
request CNC, NZ), 

13 PROMPT - send Prompt Code 

This routine is called wnenever a "DC2" prompt or its equivalent 
is to be sent to the CPU. The sending of the "DC!" is 
controlled dv straps D, G, ana H, and by the setting of the 
BLOCK MODE key. In the standard data comm protocol, a CRCLF) is 
added if the terminal is operating in Line Mode (strap o in). 
Refer to the "HP 2645A Programmer's Reference Manual" tor the 
specific details on when a "DC2" is transmitted and its format. 

If this function is meaningless to a protocol, an invalid 
control request return (nc, NZ) should be made oy the control 
routine. 

Self-Test Routine 

DCTEST (ZDCTST) - PERFORM DATA COHM SELF-TEST 

ENTRY: DON'T CARE 

EXIT : A,D-L DESTROYED 

H,L -> FIRST MESSAGE SECTION 
NC => SELF-TEST SUCCESSFUL 
C => SELF-TEST FAILED 
ERRFLG(DCMERR) = 1 

This subroutine is called to perform a self-test on the data communications 
interface in tne terminal. After returning to the main code, the message 
pointed to by registers H and L is displayed, if the self-test failed, the 
terminal will "hang" until the user presses the RESET TERMINAL key. 
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laracter Input Routine 



GKTDC (ZGETDC) - GET ONE DAl'A COMH CHARACTER 

entry: DON'T CARE 

EXIT : MC => NO ERRORS DETECTED 

Z => CHARACTER AVAILABLE 

A = CHARACTER FROM DATA COMM 
NZ => NO CHARACTER AVAILABLE 
A » 0, WAIT 

= 0, END OF IwPUT BLOCK 
C => DATA COMM ERROR DETECTED 
A DESTROYED 
ERRELG(DCMERP) = 1 
Z => NO ERROR MESSAGE 
NZ => DISPLAY ERROR MESSAGE 

H,L -> FIRST ERROR MESSAGE SECTION 

This subroutine is calied whenever a character Is needed from the data comni. 
The routine will return oniy seven (7) bit characters. If the data comm 
protocol indicates that the data is binary, the GETDC routine will rrask: out the 
high order bit of the byte and return the remaining bits as a nornial character, 
interrupts may not be disabled by the sucroutine. 

When the "wAiT" condition is returned, the calling routine will continue normal 
-operation and retry, at a later time, to get a data comm character. 

When an error message is to be displayed for an error return, the main code of 
the terminal will display the message anci "hang" the terminal until the user 
presses the RESET TERMINAL Jcey. Messages should be stored in ascending order. 
If no error message is indicated, the terminal will abort the current operation 
and return to the preset level. 
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Character output Routine 

PUTDC (ZPUTDC) - OUTPUT CHARACTER TO DATA COMM 

ENTRY: A = CHARACTER TO BE OUTPUT 
NC => NORMAL CHARACTER 
C => LAST CHARACTER IN BLOCK 

EXIT : A DESTROYED 

NC => NO ERRORS DETECTED 
Z => CHARACTER ACCEPTED 
NZ => WAIT 
C => DATA COMM ERROR DETECTED 
ERRFLGCDCMERR) = i 
Z => NO ERROR MESSAGE 
NZ => DISPLAY ERROR MESSAGE 

B,C -> FIRST ERROR MESSAGE SECTION 

This subroutine is called whenever a character is to be sent out the data comm. 

The routine will be given seven (7) bit characters to output. The PUTDC routine 

is responsible for adding any necessary parity bits, interrupts may be disabled 
by the subroutine tor no more than 300 microseconds. 

When the "WAIT" condition is returned, the calling routine will retry, at a 
later time, to send the same character until the character is accepted or a data 
comm error is detected. If an error condition is returned, data transmission 
vill De terminated. When an error message is to be displayed, the main code of 
the terminal will display the message and "hang" the terminal until the user 
presses the RFSeT TERMINAL <ey. Otherwise, the terminal will return to the 
preset level. 

Binary Input Routine 

GETBIN (ZGTBIN) - GET ONE BINARY DATA COMM CHARACTER 
entry; DON'T CARE 

EXIT : NC => NO ERRORS DETECTED 

Z => CHARACTER AVAILABLE 

A = CHARACTER FROM DATA COMM 
NZ => NO CHARACTER AVAILABLE 

A # 0, WAIT 

A = 0, END OF INPUT BLOCK 
C => DATA COMM ERROR DETECTED 
A DESTROYED 
ERRFLGCDCMERR) = 1 
Z => NO ERROR MESSAGE 
NZ => DISPLAY ERROR MESSAGE 

H,L -> FIRST ERROR MESSAGE SECTION 
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^Thls suDroutine is called whenever a binary character is needed from the data 
comm. The routine will return the entire eight bits received for each 
Character. Interrupts may not be disabled by the subroutine. 

If the previous character fetch from the data comm was via the GETDC routine, 
the initial call to GETBIN will perform any necessary handshake to prepare the 
communications line for binary data. 

When the "WAIT" condition is returned, the calllnq routine will continue normal 
operation and retry, at a later time, to get a data comm character. 

when an error message is to be displayed for an error return, the main code of 
the terminal will display the message and "hang" the terminal until the user 
presses the RKStT TEHwilWAL key. Messages should be stored in ascending order, 
if no error message is indicated, the terminal will abort the current operation 
and return to the base level. 

Start binary Output 



STBIM (ZSTBIN) - START BIwAHY OUTPUT 

tMTRy: ANY STATE 

EXIT : A DeSXRUYED 
NC AND Z 

This subroutine is called when succeeding output bytes are to be transmitted in 
the binary format. 

End Binary Output 



ENOBIN CZND8IN) - END BINARY OUTPUT 

ENTHY: ANY STATE 

EXIT : A-E DESTROYED 
NC AND Z 

This subroutine is called to terminate the Binary Transmit Mode and to restore 
normal character transmission. This subroutine will also execute the proper 
ENDBLK control for the binary output string. 
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Data Comm Interrupt Handier 

DCINTR (ZOCINT) - DATA,* COMM INTERRUPT HANDLER 

• -^ ■ 

ENTRY: ANY STATE 

EXIT ! ALL FLAGS AND REGISTERS RESTORED TO 
STATE WHEN ROUTINE WAS ENTERED 

This subroutine will be called whenever an interrupt Is caused by the data comm 
interface. wnen the subroutine is called, tne Interrupt system will be 
disabled. The subroutine must re-enable Interrupts within 300 microseconds. 
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HP 2645 A AtiTEBMATE I/O CODE INTERFACE SPECIFICATION 



INTRODUCTION 

Tne alternate I/O code provides access to devices other than the normally 
avaiiaDie devices on tne HP 2645A. The alternate I/O allows for custom devices 
to be connected to tne terminal. The device driver must conform to the 
specifications below, but the functional aspects of the driver are defined and 
written by tne user. 

The alternate I/O code is allocated a 4K space within the ROM space. The 4K 
region is split into two 2K areas: 24K to 26K (6000U-63/77 octal) and 3BK to 
40K (114000-117/77 octal). If only 2K of space is required, the 2K region from 
24K to 26K must be used. Since all addresses in an action table used by the 
Main Code module must be less than 32K (lOOOOu octal), the above allocation 
allows for tne definition of an action table to be used by the Main Code module 
if tne addresses lie within the 24K to 26K area of the alternate 1/0 code space 
(see functional Description tor fdain Code module), 

INTERFACE SPECIFICATIONS 
Entry Vectors 



The entry vectors to the alternate I/O code routines are to be located starting 
at 60002 (octal), Tne entry vectors will generally consist of "jumps" (JMP) to 
their associated subroutines: 

Location Name Function 

060002 TNllAliT Initialization Routine 

060005 INI2ALT Initialization Continuator 

U60010 ALTINT Interrupt Processor 

060013 ALTMQN Monitoring Routine 

0O0016 ALT2BF Input Routine 

060021 BF2ALT Output Routine 

060024 ALTCTL Control Routine 

060027 SIAALT Status Routine 

060032 MSGALT Device Name Message . 

Returns 

In general, a non-error return is signified by setting the C-flag to false, an 
error return, by setting the C-fiag to true. Whenever an error or user 
interrupt is returned, the I/O error flag (lOCERR) in the I/O variables space 
(177517 octal) must oe set to the ASCII code for the letter "F" or "U" 
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i 

respectively. All "F" returns require an error message to be returned as 
described in the individual subroutine specifications. This flag will oe 
cleared by tne main code's I/O processor. 

Local Variables 



Local variables for the alternate I/O subroutines may be in the PAM region 
177120-177147 (octal). fhe definition of these twenty-four bytes (24) is at the 
discretion of the particular alternate l/n routine used. 

Fast Access RAM 

The alternate I/O subroutines may use twenty-one bytes (21) in the fast access 
BAM region at locations 110553-110577 (octal). 

I/O Buffers 



Data is transferred between 1/0 arivers one record at a time. Each record is 
passed in one of the two I/O buffers, fcach buffer is 256 bytes long and has a 
status, type, and length (described in detail below), the locations of the 
buffers and associated variables are given in the following taple. 

Location Name Description 

176000 lOBUFl Start of First l/n Buffer 

176377 -- tnd of First I/n Buffer 

177472 BISTAT Status for First I/O Buffer 

177471 BlTYPt Type for First I/O Buffer 

177470 BILCN Length for First I/O Buffer 

176400 I0BUF2 Start of Second 1/0 Buffer 

176777 -- Ena of Second I/O Buffer 

177467 B2STAT Status for Second 1/0 Buffer 

177466 B2TypE lype for Second 1/0 Buffer 

177465 B2LE.N Length for Second I/O Buffer 

Data (lOBUFn) 

One to 256 bytes of data are placed in the buffer beginning with address lOBUFn. 
There is no restriction on the data. 
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Status (BnSTAT) f 

^ihe six low order bits (1-40 octal) are assigned 'to^» individual devices; olt 4 
C2U octal) Is assigned to tne alternate l/o ^evice. Bit fa (too octal) is 
reserved for use by Edit Mode routines. Bit 7 (i?90 .»octai) Is reserved tor use 
by the cartridge tape driver to hold a buffer while the cartridge tape Interrupt 
routine enipties the buffer. \ 

A buffer is free it its status is zero. Otherwise, the buffer is owned by ail 
devices whose bits are on (non-zero). 

Type (BnTYPK) 

There are three types of records; aata records, end of file records, and end of 
data records. 

A data record has type minus one (-1 = 3/7 octal). 

An end of file record has type zero (0). Tne first data byte Is reserved for 
the file number, wnich is filled in oy the output routine. An end of tile 
record may contain additional bytes, but these bytes will not be displayed, 
printed, or sent to the data comm. 

An end of data record has type one (l). No data bytes are associated with an 
end of data record (i.e., the buffer lengtn and contents are "don't cares"). 

Length (BnLEN) 

The length gives the number of valid data bytes in the buffer. If the length is 
aero, all 256 bytes contain valid data Cl,e,, there are no "zero-lengtn" 
records) , 
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FUNCTIOIJAL DESCRIPTION 
General 

The Alternate I/O Code module is primarily driven by the Device I/O Code module 
of tne HP 2645A, The alternate I/O device is accessed as device number tlve (5) 
in the I/O control escape sequence. The INSERT LINE and INSERT Chah Keys are 
used to specify the alternate I/O device as "from" and "to" devices respectively 
for device selection from the Keyboard, 

Tne Alternate I/O Code module consist of six functional sections: 
initialization, monitor. Interrupt process, input, output, and control. 

Initialization 



The initialization r'outine acquires a private buffer, if required, from the Main 
code module and initializes the operating state of the alternate I/O device. 

Monitor 

The monitor routine is called every 10 milliseconds when a processor timer 
interrupt occurs. This routine allows the device driver to perform any 
necessary monitoring of the device control lines. 

interrupt Process 



This routine is called when an interrupt is detected from the alternate I/O 
device. To be recognized as such, the alternate I/O interface PCA must 
interrupt on tne cartridge tape interrupt line on the bus (ATN2) and respond 
with poll bit 6 (100 octal) set wnen a poll request is made by the processor, 
(see description of 2645A microprocessor PCA: "Processor C8080A-2) Module - 
13255-91093".) 

Input 



On input, a device driver must find a free buffer (status = 0) and set its bit 
in the corresponding buffer status byte (BnSTAT) to claim the buffer. The 
device driver should return the buffer with the device's bit in "enSTAT" still 
set so that the buffer will not be considered empty before the I/O transfer 
routine sets the status oyte to the destination device(s). 
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Output 

On output, a device driver turns off its bit in the buffer status when it is 
finished recording the buffer. The driver must not maice any other chanae in the 
Dutfer, buffer type, or length. (Exceptions - in the event of an error, a 
driver may free the buffer by setting the buffer status to zero. Also, the 
first data byte of an end of file record may be overwritten with the fixe 
number. ) 

Control 



ine control module is called to perform various control functions on the I/O 
devices. The function performed for a given control code is at the discretion 
of the particular alternate i/u device driver. 
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smbrouxine specifications 

me subroutine descrlctlons will specify the parameters to be Included in the 

registers on entry and tne register results on exit. Any registers nc^ 

specitied in the exit list retain their entry values. The processor flags tS 

Z, P, and C) are qenerally altered by the subroutines. Certain routines use trve 

processor flags to signify ditlerent return conditions, ihese conditions are 
sp«citied in the subroutine descriptions, 

ine names of tne subroutines to be usea within the Alternate l/u module at*. 

included in the following specifications. The names within parentheses are the 
names that will be used oy the external code bloc»cs to reference the associated 
subroutines . 

initialization Routine 



INIALT tZlNIAL) - iNlXIALlZt ALTEHNATK 1/0 DEVICF 

siNTHY: DON'T CAPt; 

vXll : A DESTRUYLD 

B,C = NUMBER UF CUNTIGUOUii BYTES NRLDbD 

FUR ALThRNATE I/O BUFFKH 
0-L DON'T CARt 

itiis subroutine is called whenever power is turned on or a complete terminal 
reset is performed. Interrupts will be disabled by the calling routine when 
this subroutine is called. 

inititiilEatlon of the alternate I/u device will be continued oy cailin.j tL 
initialization continuator routine. The buffer returned may not necessarily 
start on a 256-byte boundary- Any errors on initialization should be Indicat^u 
on return from the Initialization continuator. 

jLnitiallzation Continuator 



XN2ALT CZIN2AL) - CONTINlIt ALIEHWATE I/O INITIALIZATION 

tNTHY: 0,.E = STARTING ADDRESS OF ALTERNATE I/O 
BUFFER 

EXIT ; A DESTROYED 

NC => IMXIALIZATIOM SUCCESSFUL 

B-L DON'T CARE 

C => INITIALIZATION FAILED 

H,L -> FIRST ERROR MESSAGE SECTION 
B-E DON'T CARE 
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this routine Is called after a call to ZINIAL is made, interrupts are disabled 
jnen ttiis routine is callea. The butter starts at the address given in 
registers D and t, and extends in ascending addresses tor the number of bytes 
specitied on return from INIALT. 

un error returns, registers H and L contain the value to be stored In location 
"/vS(;prX" The contents of the H and I. registers will be stored in "msgpti- oy 
the main coae. All other message pointers (i.e., f/SGPT2-MSGPr8 J must be set oy 
the routine. The main code will display the error message anu hang the 
terminal until the user presses the KKSEi' terminal Key, 

interrupt Processor 

INTALT CZIiMTAL) - ALTERNATE I/O INT&RHUPT PHOCf^SSOR 

ENTRY: PSW, H ANU L PUSHED ONTO TOP OF STACK 

EXIT : ALL FLAGS km REGISTERS RESTORED TO 
STATE WHEM INTERRUPT OCCUHREn 

This subroutine is called whenever an interrupt is caused by the alternate I/O 
aevice, when the subroutine Is called, the interrupt will oe aisat^led. The 
subroutine must re-enable interupts within 300 microseconds. 

Monitoring Routine 



MONALT (Zt^lOMAL) - MONITOR ALTERNATE I/O DEVICE 
ENTRY: DON'T CARE 
EXIT : ALL REGISTERS DESTROYED 

This subroutine is called approximately once every 10 milliseconds. The purpose 
of the subroutine is to provide for necessary periodic scanning of the alternate 
1/0 interface, if scanning of the interface is not needed, tnen the subroutine 
Should simply return without doing anything. 
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Control Routine 

CTLAliT (ZCTLAL) - ALTERNATE I/O CONTROL 

ENTFY: lOCTifP = CONTROL TYPE CODE NUMBER 

lOCCNT = CONTP.nL PARAMEXEK (2 BYTES) 
TOPSGN = SIGN OF CONTKGL PARAMETER 

= +1 => POSUIVfc 

= 200 => NO 51GN 

= -1 => NEGATIVE 

EXIT : NC => CONTROL PEPFOHMED SUCCESSFULLi 

lOCERR = "S" => SUCCESSFUL COMPLETION 
C => CONTROL FUNCTION AbOHTtD 

lOCERR = "F" => ABOhTED ON CAILURE 

»^SGPT1-MSGPIP = EFFUF MESSAGE STPINGCS) 
lOCERR = "U" => USEh 1 ^' I'EHHUP 1 Eu UPERATinN 
ALL REGISTERS DLSiPOYED 

This routine is used to perform various control tunctiors on tiie alternate ;/t 
device. interrupts may be disabled tor no more than 300 microseconds oy any 
control routine. The actual function performed tor a given control code ls 
defined by tne specific alternate I/o driver Installed In the terminal, Tne 
functions perfornied for the cartridge Tape Units (CTU's) are as tollows: 

control Function 
Code 

Hewlnd 

1 Space "p" records 

2 Space "p" tiles 

3 Locate end-ot-data mark 

4 Condition tape 

5 Record file mark: 

6 Record end-of-data mark 

7 Test cartridge tane unit 

8 SJcip "p" records in.mediately without recording 

end-of-data marK 

9 Enter write-Backspace-Head Mode 
10 Exit Write-Rackspace-Reaa Moae 

where "p" is the comDineo value of IOPSGn and IOCCnT 

Functions implemented tor the alternate i/u device should attempt to perto •; 
similar functions tor corresponding control codes. 
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}tatus Routine 



STAALT (ZSTAAL) - GKT ALTERiSiATE I/O STATUS 

entry: DON'T CARE 

EXIT : ^!C 

I0STA1,10STA2,I(JSTA3 = CURRENT DEVICE 

STATUS 
ALL REGISTERS DESTROYED 



rnis routine is called to extract the current device status to be sent to tne 
host computer. The status is returned in the lower tour (4) bits of each status 
byte (iasTAl-I0STA3). The definition of each oit is left to the specific 
alternate I/O device. An attempt should be made to use the same status oit as 
used in existing devices for common status conditions (e.g., read error status). 



Input Routine 



ALT2BF (ZGETAL) - ALTERNATE 1/0 INPUT ROUTINE 

ENTRY: D,E -> STATUS OF LAST BUFFER RETURNED 
(DON'T CARE FUR FIRST READ) 

EXIT : A,B,C,H,L DESTROYED 

MC => SUCCESSFUL HEAD 

0,E -> SUFFER STATUS 
C — > ERROR 

lOCERR = U => USER INTERRUPTED 
lOCERR = F => FAILURE 

MSGPTX -> ERROR MESSAGE 
D,E DESTROYED 



It is the responsibility of the input routine to find a free buffer (status = 
0>. For a successful return, the alternate I/O bit (bit 4 -20 octal) should be 
turned on in the buffer status (bhSTAT). The buffer type and lenoth must also 



be correctly set (see "I/O Buffers", above) 



The input routine 



is also responsible for checicing tor user interrupt (RETURN 
>cey) by'^calling ZGETKY (see keyboard code interface). To avoid loss of data, 
this checK should be done before each record is read from the alternate I/O 
device. Note that no message is returned for user interrupts. 

An error message must be supplied for all failure returns. It is not necessary 
to free puffers claimed before tne error is detected as all buffers are freed by 
the main code on any error returns. 
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Output Routine 



Bt2ALT (ZPUTAL) - ALTERNATE I/O OUTPUT ROUTINE 

ENTRY: D,E -> BUFFER STATUS 

ALTERNATE I/O BIT SET IN BUFFER STATUS 

EXIT : A,B,C,H,L DESXRUYEO 
NC => SUCCESS 

D,E -> BUFFER STATUS 
C => FAILURE 

lOCERR = F 

MSGPTX -> ERROR MESSAGE 
D,E DESTROYED 

For a successful return, this routine must not alter the buffer, buffer type, or 
DUffer length at any time, wnen the alternate 1/0 driver is finished with the 
buffer, the driver should release the buffer by turning off the alternate I/O 
bit (bit 4 ' 20 octal) in the buffer status. 

BF2ALT may alter the buffer and its associated variables In any way in the event 
of an error- CAll buffers are freed by the main code on any error return.) A 
message must be supplied with every error return. 

TO avoid loss of data, BF2ALT shoula not abort on user interrupts (RETURN Jcey). 
Device Name Message 



MSGALT (ZMSGAL) - DEVICE NAME 

A string representing the name of the alternate 1/0 device is stored starting at 
location 60032 (octal). The string is stored in order of ascending addresses 
The device name message is used by the compare routine to report a data 
terminator (end of file or end of data) on the alternate I/O device during a 
compare operation. The message is optional if ALT2BF can only return data 
records and not an end of file or end of data or if the alternate I/O device i$ 
an output only device. The message should have the following format: 

' MSGALT DEF ' ON <device name>',0 

Note the preceding blanjc and trailing null are required as part of the message. 
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CUMmON APtA ALLOCATiOlM 



The common area is located in the region 177 720-1777/7 (octai). 
stored there are as follows: 



The variables 



Location 

1777/e» 

17 7 7 7 5 

17 7 7 7 4 

17 77 7 J 

177772 

1 7 7 7 7 1 

1777 70 

1 / 7 7 6 7 

17 7 7 6b 

1 7 7 765 

177764 

177763 

177761 

17775/ 

177755 

1 /775i 

177751 

177 7 47 

17 7745 

177743 

177741 

17774U 

177736 

177735 

177734 

177733 

177732 

177731 

177730 

177727 

177725 

177724 

177722 

177721 

17 77 20 



l^ianne 

DISPST 
TRMTYP 
KBDCSW 
KBJMFP 
KBJMP2 
KBJMP3 
CMi-'LGS 
ERRFLG 
INTFLC, 
PRCCIL 
WDFLGl 
MDFLG2 
MSGPTl 
r4SGPT2 
MSGPT3 
iMSGP14 
mSGPTS 
MSGPT6 
HSGPT7 
iHSGPTS 

CTivec 

CTIJMP 

lOUATA 

inCSG?^ 

IGPSGN 

PAHMl 

PARM2 

PARM3 

PARM4 

PAHM5 

PARM6 

RADIX 

RNGTA 

eSCFLG 

hSTTMP 



Usage 

Display Refresh Starting Pointer (2 bytes) 
Terminal Type Nuffoer 

Data Comm Switch settings 



A-B-C-D-E-F-G-tt 
J-K-L-M-N-P-Q-R 
S-T-U-V-w-X-i-Z 



Keyooard 

Keyboard Jumpers 

Keyboard jumpers 

Keyboard Jumpers 

Common Flags 

E:rror Flags 

Interrupt Flag 

Processor Control Flags 

Terminal Mode Flags 1 

Terniinal Moae Flags 2 

First Message Block: Pointer (2 bytes) 

Second fviessage block. Pointer t2 bytes) 

Third Message Block Pointer C2 bytes) 

Fourth Hessage Block Pointer (2 bytes) 

Fifth Message Block Pointer (2 bytes) 

Sixth Message Block Pointer C2 bytes) 

Seventh Message Block Pointer (2 bytes) 

Eighth f'lessage Block Pointer C2 hytes) 

CTU Interrupt vector C? bytes) 

"JMp" Instruction for vector 

FSC Sequence Parameter Accumulator (2 bytes) 

Sign tor Parameter 

Sign for Assigned Parameter 

Assigned Parameter 1 

Assiqnea Parameter 2 

Assigned Parameter 3 

Assigned Parameter 4 

Assigned Parameter 5 

Assigned Parameter 6 (2 bytes) 

Radix for Accumulating Parameters 

Character Function Table Address C2 bytes) 

Escape sequence in Progress Flag 

soft Reset Timer 
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DEFINITION 



DISPST contains the two byte link: address pointing to the top line to be 
displayed. 

TRMTifP contains the terminal type code number: <= TRi*iTYP < 16 
Bit Meaning 

I/O Firmware installed 

= Not installed 

1 = installed 

1 Bi-lingual Terminal 

= Terminal is Roman type only 

1 = Terminal has bi-llngual functions 

2 Reserved 

3 Unused 

4-7 Always zero (0) 

KBDCSW contains the settings of the Duplex, Parity, and Baud Kate switches on 
the keyboard. 

Bit Meaning 






Undefined 


1-3 


Baud Rate 




= Ext 




1 = no 




2 = 150 




3 = 300 




4 = 1200 




5 = 2400 




6 = 4800 




7 = 9600 


4-5 


Parity 




= Even 




1 = Odd 




2 = Mone 




3 = Undefined 


6 


Undefined 


7 


Duplex 




= Half 




1 = Full 
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KBJMPH, KBJMP2, KBJMP3 

contains the settings of the jumpers on the iceyboarci interface PCA, In 
all cases, the bit is set to one when the jumper is out, and zero, when 
the jumper is in. 

Bit Meaning 

KBJMPR 

CO.MDIS - Transmit All Function Keys 

= Disabled 

1 = Enabled 

1 SPLDIS - Space Overwrite Latch 

= Disabled 

1 = linaoled 

2 LINwRP - Cursor End-ot-Line Wrap Around 

= Enabled 

1 = Disabled 

3 PAGSTR - Line/Page Mode 

= Line 

1 = Page 

4 LFPOS - Location of Line i-eed tor Remote HEAD 

= Line Feed at beginning of record 

1 = Line Feed at end of record 

5 FSTSND - Fast Binary Head 

= Disabled 

1 = Enabled 

6 HND5HK - tiandshake 

= Disabled 

1 s Enabled 

7 DC2SMD - Inhibit DC2 

= Disabled 

1 = Enabled 

KBJMP2 

AUTtND - Add Terminator on "ENTER" 

= Disabled 

1 = Enabled 

1 CLRTRM - Clear Terminator After Display Sent 

= Disabled 

1 = Enabled 

2 NOTEST - inhibit Terminal Self-Test 

= Self-Test enabled 

1 = self-lest disabled 

3 EDTwRP - Invert Edit wrap Around Control 

= Disabled 

1 = Enabled 

4 PRNTAL - send All Enhancement Codes to Printer 

= Disabled 

1 = Enabled 
5-6 Undefined 

7 DCJMPO - Reserved for Data Comm Usage 
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\ 



DCJMPl - Reserved for Data Comm usage 
DCJMP2 - Reserved for Data Comm Usage 
ncjwP3 - Reserved for Data Comm Usage 
DCJMP4 - Reserved for Data Comm usage 
NODCST - inhibit Data Comm Self-Test 
= Data comm self-test enabled 
t = Data comm self-test disabled 
SETCH - Turn on "CH" Control Line 

= CH off 

1 = CH on 

CHEKCC - Monitor "CC" Control Line 

= Monitor normal transmit Indicator 

1 = Set transmit indicator according to CC 
FRCPTif - Force Parity/No input Parity Checlc 

= Use normal parity 

1 = Knable special parity 



CMFLGS moiviaual bits represent various modes ot tne terminal. 
Bit Meaning 

BLKTRG - Block Transfer Trigger 

= Clear 

1 = Set 

1 INSWPP - Insert witn wrap Around 

= wrap around disabled 

1 = Wrap around enabled 

2 FRCRSI - torce Full Terminal Reset if Reset 

= Do soft reset only 

1 = Perform full reset 

3 DEFSKlf - Define Soft Key Mode 

= ^formal Terminal Mode enabled 

1 = Soft icey menu enaoled 

4 PEMSET - Remote/Local Mode 

= Terminal in Local y^o6e 

1 = Terminal in Remote Mode 

5 RCVMDE - Data Comm Mode 

= Transmit 

1 = Receive 

6 HITXRCV - End of Input 

= End Of text input flag not received 

1 = End Of text input flag received 

7 UNUSED 
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tRRFLG f:ach bit represents an error condition to be displayed as part of tne 
terininal status. 

Bit Meaning 

DCMtRR - Data Comm Error 

= No Data Coinm Errors 

1 = Data Comm r.rror(s) l-ietected 

1 TESTOK - Terminal Sel£-lest 

X Malfunction Detected 

1 = No Malfunctions 

2 LDPCHK - Loader Cnecksum 

= cnecksum Error in Loadina sequence 

1 = No Error 
3-7 Undefined 

INTtLG indicates if tne timer caused an interrupt. INfFLG is set to 3 for a 
timer interrupt. All otner Interrupts do not change the value of 
INTFLG, 

PRCCTL contains the current state of the processor poard. 
Bit Meaning 

Undefined 

1 TmRUN - 10 Millisecond limer un 

= Timer off 

1 = Timer on 

2 TMIEN - Timer Interrupt Ac^cnowledge/Reset 

= Acknowledge timer interrupt 
X = Re-enable timer interrupt 

3 DCIOFF - Data Comm Interrupt 

= FnaPled 

1 = Disabled 

4 TIMUFF - Timer Interrupt 

= Enabled 

1 = Disabled 

5 POLL - ATN2 Poll 

= Disabiea 

1 = Enabled 

6 undefined 

7 SETnOH - ROM/RAM Enabled 

= Rui^ enabled, RAi^ disabled 

1 = RAM enabled, ROM disabled 
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MDFLGl contains the first set of Terminal Mode flags. Tne flaqs qeneraXly 
refer to modes tnat are electronically latched. 

Bit Meaning (0=>OISABLED, l=>fcNABLED) 

DSPFNC - Display Functions Enabled 

1 INSCHR - Insert Character Enabled 
2- MEMLOK - Memory Lock tinableo 

3 FORMAT - Format Mode tnabiea 

4 EDIT - Edit Mode Enabled 

5 SELECT - Device Select Moae 

6 RECORD - Record Mode Enabled 

7 FOPGN - Foreign Moae Enaoled 

MDFLG2 contains the second set of Terminal Moge flags. The flags generally 
refer to modes that are set by latching iceys. 

Bit Meaining 

CAPSLK - Caps LOCK Enabled 

1 BLKMDE - Block: Moae Enabled 

2 AUTOLF - Automatic Line Feed Enabled 

3 REMOTE - Remote Enabled 

4 waSR - wRITE-BACK6PACE-hEAD MODE ENABLED 
5-7 Ui^USED 

MSGPTl, MSGPT2, M5GPT3, MSGPT4, MSGPTS, MSGPT6, MSGPT7, MSGP'IB 

These two byte values are used to store pointers to message bloclcs for 
the message display routine (DSPMSG), 

CTIVEC contains the start address for the current cartridge tape Interrupt 
routine. 

CTIJMP contains the operation code for the "ji^iP" instruction C303 octal), 

lODATA Accumulator for parameters specified in parameterized escape sequences. 
AS the numbers for the parameters are received, the accumulated value is 
maintained in this two-byte location. The base of the value is 
specified in location "RADIX". 
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lOCSGN contains the sign of the parameter currently being received tor a 
parameterized escape sequence. 

Value Meaning 

+1 Sign is positive 

No value specified for parameter 

2001^ NO sign specified for parameter value 

-1 Sign is negative 

lOPSGN contains the sign ot the parameter that has been received. Before a 
parameter is to oe evaluated by the "CHKLIM" routine, the sign of the 
parameter must be placed m this location. The values assigned are the 
saiTie as "IPCSGw". 

PARMl, PARM2, PARM3, PARM4, PARM5, PARM6 

These locations are used as worK areas to store the parameters for the 
various parameterized escape sequences. Tne usage for each location is 
defined oy the particular escape sequence handler. 

RADIX This value is set to the radix of the numbers to be entered as values 
for a parameterized escaped sequence. 

RNGTA contains the pointer to the currently active "action table" defining tne 
function of characters entered into the terrrinal. 

ESCFLG This location is set to all I's if an escape sequence is currently being 
processed from the data comni while operating in Block Mode. Otherwise, 
the value is zero, when the value Is all I's, tne Keyboard is locKed 
out • 

RSTTmR When a soft reset is executed, this location Is set to the number of 10 
millisecond Intervals during which a full reset will occur if the RtSCT 
button is pressed. If the value is zero, a soft reset will occur 
(unless CMfLGS(FRCRSX) Is set to t ) , 
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i-JM 


LUC 08JKCT C 


i 


OOUO 


I 


0000 






j 


0000 






4 


OOUO 






5 


OObO 






6 


0051 






7 


0000 






B 


OOUO 






9 


0000 






10 


OOuO 






n 


0000 






12 


0000 






li 


0000 






14 


9100 






lb 


0000 






lib 


0000 






17 


0000 






lib 


0080 






119 


0000 






20 


OOuO 






21 


oouo 






22 


0000 






23 


0000 






24 


0000 






25 


0000 






26 


0000 






27 


0001 






2B 


0000 






29 


0002 






JO 


0000 






•u 


0OU4 






32 


0000 






33 


0008 






34 


OOuO 






35 


0010 






:\t> 


0000 






37 


0000 






38 


OOuO 






39 


0000 






40 


0000 






41 


0020 






42 


0000 






43 


0040 






44 


0000 






45 


0000 






46 


0080 






47 


0000 






48 


0000 






49 


0000 






50 


0000 






51 


0000 
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out; SOURCE' STATfclMENTS PAGE 1 



ASB,HEX ;PT7 74 
*%i(.lf%i(i^%ii(.%)$i.iil.^i(.i(.%i(.-if.i(.i^i(.t^ 

; VERSION le:vel code: ♦ 

VEHSN EQU 120Q ;P 



11/10/76 - U30 HOURS 



= > 



VERSWJ EgU 1210 



;Q => 



VERSION 
VF.HSiOH 



NOTE; THE SECOND ROM WAS PE-ORUEKED 10 FIX 
A BUG, SO ONLV THAT RUM HAS VERSION NUMBER 1. 



COMMON EOUATES - CM35 - 6/27/76 - 1830 HOURS 

SXRAM EyU il0400Q ;EAS1 HAM LOv*ER LlMll 

KBDCSW - KEYBOARD DATA COMM SWITCHES * 

ULDUP EQO 2000 ; HALF/FULL DUPLEX 

♦ * ♦♦♦>•'** ♦*i**sr***;*********»**i;* + + *; ♦■♦■♦ + 

KBJMFR - KEYBOARD INTERFACE JUMPERS "(• 

JUMPERS SENSED AS 0' wHE^ INSERTED 
ALL JUMPERS APE NURmALLY INSERTED 
ONDIS EyU 00 1 Q 
SPLDIS EQU 0u2y 



INWRP EwU Cu4y 

AGSTR Egn oiog 

LFPOS EQll 200 



STSND EgU 4UQ 
HNDSHK EvU lOOQ 

DC2SND EQU 200g 



;COMTRQL CODE DISABLE 

C0=OISABLED) 
;SPOw LATCH DISABLE 

COsDlSABLED) 
; COLUMN bO AUTO CR,LF 

C0=ENABLEnj 
;PAGE MODE STRAP 

(0=L1NE-FIELD MODE) 
;L1NE FFtD POSITION 

CO = POSITION LINE FEED 
AT START OF »^<EXT I/O 
HEAD 
1 = PUT LINE FEED AT END 
OF RECORD) 
;9600 BAUD DATACOM SHIFT 

C 0=9600 BAUD FOR ESC,E) 
; BLOCK TRANSFER HANDSHAKE 
10 = FOLLOW DC2SND SETTING 
1 = SEND DC 2 BEFORE DATA) 

(0 = SEND DC2 01' ENTER 

AND FUNCTION KEY IN 
BLOCK MODE 
1 = INHIBIT ALL DC2 
HANUSHAKE) 



ITEM 

53 
54 
55 
5b 
5? 
58 
59 
60 
61 
62 
63 
64 
6b 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
7 7 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 



LOC 

0000 
0000 
0000 
0001 
0002 
0004 
0008 
0010 
0080 
0000 
0000 
0000 

oooi 

0002 
0004 
0008 
0010 
0000 
0020 
0000 
0040 
0000 
0080 
0000 
0000 
0000 
0000 
0001 
0002 
0004 
0008 
0010 
0020 
0000 
0000 
0000 
0001 
0002 
0004 
0000 
0000 

oouo 

0003 
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T CODE SOUPCE STATEMENTS t»AGE 2 

; KBJK^P2 - SECUNO SET UF KEYBOARD JUMPERS * 

AUTTRM EQU IQ ;AUTO TERMINATE ON "ENTER" 

CLRTRM EQU 20 ;CLEAR TERMINATOR ON TRANSMI 

NOTEST EgU 4Q ; INHIBIT TERMINAL SELF-TESI 

EDTWRP EQU lOQ ; INVERT SENSE OF EDIT WRAP 

PRNTAL EQU 20Q ;SENU ALL CODES TO PRINTER 

DCJMPO EQU 2000 ;DATA COmM JUMPER 

; KBJMP3 - THIRD SET OF KEYBOARD JUMPERS * 

;DATA COMM JUMPERS 



; INHIBIT DATA COMM SELF-TEST 
(0 = DISABLED) 

;TURN ON "CH" CONTROL LINE 
(0 = OFF, 1 = UN) 

;M0NIT0R CC CONTROL LINE 
(1 = ENABLED) 

;FORCE PAKITX ON/NO IN CHECK 
; CI = ENABLED) 

; CMFLGS - COMMON FLAGS ♦ 

BLKTRG EQU 10 ; BLOCK TRANSFER TRIGGER 

20 ; INSERT WITH WRAP AROUND 

^0 ; FORCE FULL TERMINAL BESET 

lOQ ;DEFINE SOFT KEY MODE ENABLE 

20Q ; REMOTE MODE ENABLED 

40Q ; TERMINAL IN RECEIVE MODE 



DCJMPl 


EQU 


10 


DCJMP2 


EQU 


20 


DCJMP3 


EQU 


40 


DCJMP4 


EQU 


lOQ 


NODCST 


EQU 


20Q 



SETCH EQU 40Q 
CHEKCC EQU 1000 



FRCPTY EQU 2000 



INSWRP EQU 
FRCRST EQU 
DEFSKY EQU 
REMSET EQU 
RCVMDE EQU 

; ERRFLG - ERROR FLAGS * 

DCMERR EQU 10 ;DATACOM (1 = ERROR) 
TESTUK EQU 20 ; SELF-TEST (0 = ERROR) 
LDRCHK EQU 4Q ;LUADER CHECKSUM (0 = ERROR) 

; INTFLG - INTERRUPT FLAG * 

TMRINT EQU 3 ? TIMER INTERRUPT 
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ITEM 



LOC OBJfciCT CODE SOURCE STATEMENTS 



97 


oooo 


9B 


0000 


99 


0000 


100 


0000 


101 


0000 


102 


0001 


lOi 


0002 


104 


0010 


105 


0020 


106 


0040 


107 


0080 


108 


0000 


109 


0000 


110 


0000 


111 


oooi 


112 


0002 


Hi 


0004 


114 


0008 


U5 


0010 


lib 


0020 


1117 


0040 


11 IB 


0080 


]119 


0000 


1L20 


0000 


121 


0000 


122 


0001 


i2i 


0002 


124 


0004 


125 


0008 


126 


0020 


127 


0000 


128 


0000 


129 


0000 


130 


OOOA 


131 


0008 



; PRCCTL - 
TMIACK EQU 

« 

TMRON h.QU 

TMIFN EUl) 

DCinFF EyU 

TMIOFF EQU 

POLL t:QU 

SETROM EQU 

. :^ :»: f ♦ ♦ ♦ ♦ 3H :»[ :f 

; MDFLGl - 

DSPFwC EQU 
INSCHR EyU 
MEMLUK EyU 
FORMAT EyU 
EDIT EyU 
SELECT EQU 
RECORD EQU 
FORGN EQU 

; MDFLG2 - 

CAPSLK F,yU 

BLKMOE EQU 

AUtOLF EyU 

REMOTE EQU 

WBSR EQU 

; RADIX - B 

DECRDX EQU 
OCTRUX Eyu 



PROCESSOR 

00 

10 

20 

20Q 

40Q 

lOOQ 

200Q 

:*l 4 * * ♦ Jf! ♦ ♦ # 

TERMI^^AL 

s(c 4: t 4" t; 3ti ♦ # « 

10 

20 

40 

lOQ 

20Q 

40Q 

1000 

2000 

TERMINAL 

10 

20 

40 

100 

40Q 

ASE OF IN 

j»: ♦ * ;<L ♦ ♦ f ♦ ♦ 
10 
8 



INTERRUPT 



PAGE 

CUr^TPOL FLAGS ♦ 

; ACKNOWLEDGE TIMER 

(BIT 1 OFF) 
;SET TIMER ON 

;PE-tNABLE TIMER INTERRUPT 
; DISABLE DATA COMN^ INTERRUPT 
;DiSABLE TIMER INTERRUPTS 
;PQLL CTU INIERRUPXS 
;D1SABLE (1)/FNABLE tO) ROM 

MODE FLAGS 1 * 

; DISPLAY FUNCTIONS ENABLED 
; INSERT CHARACTER ENABLED 
; MEMORY LOCK ENABLED 
; FORMAT MODE ENABLED 
;EDIX MODE ENABLED 
/SELECT MODE ENABLED 
; RECORD MODE ENABLED 
; FOREIGN MODE ENABLED 
^♦^^♦♦♦^(^♦♦♦♦♦» 

MODE FLAGS 2 * 

;CAPS LOCK ENABLED 
; BLOCK MODE ENABLED 
;AUTO LF ENABLED 
; REMOTE ENABLED 
;WRITE-BACKSPACE-READ MODE 

^ f 4; * ;». * *. f ♦ ♦ 4: ♦ ♦ ♦ ♦ ♦ ♦ ♦ J»- ♦ ♦ * ♦ 4 ♦ ♦ ♦ 

PUT PARAMETER FOR ESC SFQ ♦ 

; DECIMAL NUMBERS 
/OCTAL NUMBERS 
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SiZSSSZ 


ssssssssssssss 


ITEM 


LOC OBJEC 






13i 


0000 


134 


0000 




135 


0000 




13b 


9165 




137 


9168 




138 


0000 




139 


FFFF 




140 


OOFF 




141 


FFOO 




142 


0000 




143 


FFFE 




144 


FFFD 




145 


FFFC 




146 


FFFB 




147 


FFFA 




148 


FFF9 




149 


FFF8 




150 


FFF7 




151 


FFF6 




1S2 


FFfS 




153 


FFF4 




154 


FFF3 




155 


FFFl 




156 


FFEF 




157 


FFED 




158 


FFEB 




159 


FFE9 




160 


FFE7 




161 


FFE5 




162 


FFE3 




163 


FFEl 




164 


FFEO 




165 


FFDE 




166 


FFUD 




167 


FFDC 




168 


FFDB 




169 


FFDA 




170 


FFD9 




171 


FFD8 




172 


FFU7 




173 


FFD5 




174 


FFD4 




175 


FFD2 




176 


FFOl 




177 


0000 




178 


0000 




179 


FFDO 




180 


0000 




181 


0000 




182 


0000 





AUG-01-76 

T CODE SOUPCE STATEMENTS PAGE 4 

; COMMON VARIABLES ♦ 

INTVEC EQU FSTRAM+145g ;CENTRAL INTERRUPT VECTOR 
SCNVEC EQU INTVEC+3 /FOREIGN TERMINAL OTSPLY SCA 



COMMON EQU 
CMBASE EyU 
CMSTOR EQU 



DISPST 

TRMT^P 

KBDCSW 

KBJMPR 

KBJMP2 

KBJMP3 

CMFLGS 

ERRFLG 

INTFLG 

PRCCTL 

MDFLGl 

MDFLG2 

MSGPTl 

MSGPT2 

MSGPT3 

MSGPT4 

MSGPT5 

MSGPT6 

MSGPT7 

MSGPT8 

CTiVfcC 

CTIJMP 

lOUATA 

lOCSGN 

lOPSGN 

PARMl 

PARM2 

PARM3 

PARM4 

PAFM5 

PARM6 

RADIX 

RNGTA 

ESCFLG 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
FQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



177777Q ; UPPER LIMIT OF COMMON AREA 
COMMON/256 ;MSB OF COMMON ADDRESSES 
CMBASE»256 ?MSB ADJUSTMENT FACTOR 



COMMON-1 

DISPST-1 

lPMTicP-1 

KBDCSW-1 

KBJMPR-1 

KBJMP2-'l 

K.BJMP3-1 

CMFLGS-1 

ERRFLG-1 

INXFLG-1 

PRCCTL-1 

MDFLGl-l 

MDFLG2-2 

MSGPTl-2 

MSGPI2-2 

MSGPT3-2 

MSGPT4-2 

MSGPT5-2 

MSGPT6-2 

MSGPT7-2 

MSGPl'8-2 

CTIVEC-1 

CTIvJMP-2 

IODATA-1 

IOCSGN-1 

lOPSGN-l 

PARMl-1 

PARM2-1 

PARM3-1 

PARM4-1 

PARM5-2 

PAaM6-l 

RADIX-2 

RNGTA-1 



; DISPLAY REFRESH START PTP 
/TERMINAL TYPE NUMBER 
/KEYBOARD DATACOM SWITCHES 
/KEYBOARD STRAPS 

/SET 2 

/SET 3 
/COMMON FLAGS 
/ERROR FLAGS 
/INTERRUPT FLAG 
/PROCESSOR CONTROL FLAGS 
/TERMINAL MODE FLAGS 1 

/AND 2 
/MESSAGE POINTERS 



/CTU INTERRUPT VECTOR 
/JUMP CODE FOR VECTOR 
/ESQ SEO PARM ACCUMULATOR 
/SIGN FOR PARAMETER 
/PARAMETER SIGN 
/ESCAPE SEQUENCE PARAMETERS 



RSTTMR EQU ESCFLG-l 
/ END OF COMMON EQU 



/RADIX OF PARAMETERS 

/CHAR FUNCTION TABLE ADDRESS 

/ESCAPE SEQUENCE FLAG 
s 0, NOT IN ESCAPE SEQ 
# 0, ESC SEQ IN PROGRESS 

/SOFT RESET TIMER 

ATES ♦ 



ITEM 

:184 
;185 
186 
187 
188 
Jl89 
1190 
191 
]L92 
193 
Ii94 
195 
196 
J197 
Ji9B 
3L99 
iJOO 
201 
-<J02 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 



LOC 

0000 

OOUO 

0000 

48U0 

4802 

4805 

4808 

480B 

480C 

4811 

4814 

4817 

481A 

481D 

4820 

4823 

4826 

0000 

0000 

0000 

4829 

482A 

0000 

0000 

0000 

OOOJ 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

00O9 

OOOA 

OOOB 

OOOC 

OOOD 

OOOE 

OOOF 



OBJECT code; source STAT 

; KEYBOARD 

ZKBBAS EQU 

ZINI^B EQU 

ZGJiTKY EQV 

ZKBCll Egu 

ZK6M0N Eyll 

ZSTMUl Egu 

ZCLMUl EQU 

ZBlLL EQU 

ZSTXMT EyU 

zclxmt Egu 

ZSTJrP EQU 

ZSTLKY EQU 

ZALPCK egu 

ZNUMCK EQU 



13255-90003 Rev AUG-01-76 
EMEWTS PAGE 5 

ENTRY VECTOR POINTERS * 

44000Q /KEYBOARD START ADDRESS 

ZKBBAS + 2 flNlTlAHZt KEYBOARD 

ZINIKB+3 ;GET KEYBOARD KEX 

ZGETKYt3 ; PERFORM KEYBOARD CONTROL 

ZKBCXLt3 /MONIIQF KbYBOARD 

ZKBMON+3 ;SET MODE 1 FLAGS 

ZSTMDl+3 ;CLEAR MODE 1 FLAGS 

ZCLMDl+3 ; SOUND THE BELL 

ZBELLt3 ;TURN UN TRANSMIT LFD 

ZSXX.^T + 3 ;TURN OFF TRANSMIT LED 

ZCLXMTt3 ;SlT Ju.^PERS ESC SEO ROUTINE 

ZSTJPR+3 ;SLT LATCHING KEiS ROUTINE 

ZSTLKYt3 ; ALPHA KEY ENTRY CHECK 

ZALPCK+3 /NUMERIC KEY ENTRY CHECK 



KEYBOARL CONSTANTS 



FRSALT 
ALXOUT 



Egu 
Egu 



ZNUMCK+3 
FRSALT+1 



/INITIAL ALTERNATE CHAR SET 
/INITIAL ALTERNATE CHAR OUT 



KEYBOARL CONTROL CALLS 



LOCKKB 


Egu 


1 


UNLKKB 


Egu 


2 


RPTKEY 


Egu 


3 


STBLHD 


Egu 


4 


STRTST 


Egu 


5 


ENDTST 


Egu 


b 


RSETKB 


Egu 


7 


CKIOKY 


Egu 


8 


STPRPT 


Egu 


9 


CKBRKY 


Egu 


10 


SWCHAR 


Egu 


U 


SETFRN 


Egu 


12 


STCH6T 


EQU 


13 


FRNMDl 


EQU 


14 


FRNMD2 


Egu 


15 



/LOCK KEiBUARO 
/UNLOCK KE INBOARD 
;Rt.PEAI LAST KEY HIT 
/SET PERMANENT BLOCK MODE 
/START SELF-TEST 
/END SELt-lEST 
/RESET KEYBOARD 
/CHECK FOR I/O CUNTROI 
/STOP KEY REPEAT 
/CHECK FOR BREAK KEY DOWt^ 
/SWITCH CHARACTER SET 
/UPDATE FOREIGN MODE 
/SET FOREIGN OUTPUT MODE 
/SET FOREIGN MODE 1 
/SET FOREIGN MODE 2 



KEY 



13255-90003 
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225 


0000 


226 


0000 


227 


0000 


228 


0000 


229 


0000 


230 


5000 


231 


5002 


232 


5003 


233 


5004 


234 


5005 


235 


5006 


236 


0000 


237 


0000 


238 


0000 


239 


0000 


240 


0000 


241 


5008 


242 


500B 


243 


500E 


244 


5011 


245 


5014 


246 


5017 


247 


501A 


248 


501D 


249 


5020 


250 


5023 


251 


5026 


252 


0000 


253 


0000 


254 


0000 


255 


0000 


256 


0000 


257 


0000 


258 


0001 


259 


0002 


260 


0003 


261 


0004 


262 


0005 


263 


0006 


264 


0007 


265 


0008 


266 


0009 


267 


OOOA 


268 


OOOB 


269 


OOOC 


270 


OOOD 
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OBJECT CODE SOURCE STATEMENTS !^^E— -.- 

T^JiJ^^*;^*** ♦♦♦*♦♦*♦*♦*♦* ♦*********4'* **»♦'»'*♦*♦»♦♦♦* 

; DATACOM CONSTANTS 

• 

ZDCBAS EQU 50000Q ;DATACUM START ADDRESS 

TRIGGR EyU ZDCBASt2 ;BLOCK TRANSFER TRIGGER 

RECSfe;P EyU XRlGGRtl ;Rt;CORD SEPARATOR CHARACTER 

BLKTHM EQU RECStP+1 ; BLOCK TERMINATOR CHARACTER 

DCJNSK EQU BLKTRM+1 ;DATA COI*^P- JUMPER MASK 

DCJMS2 EgU DCJMSK+1 ;DATA COMM JUMPER MASK #2 



DATACOM ENTRY VECTOR POINTERS 



ZIMDC EQU 
ZIN2DC EQU 
ZDCMON EQU 
ZDCCTL EQU 
ZDCTST EQU 
ZGETDC EQU 
ZPUTDC EQU 
ZGTBIN EQU 
ZSTBIN EQU 
ZNDBIN EQU 
ZDCINT EQU 



ZDCBAS+ 
ZINIDC+ 
ZIN2DC+ 
ZDCMON+ 
ZDCCTL+ 
ZDCTST+ 
ZGETDC+ 
ZPUTDC+ 
ZGTBIN -1- 
ZSTBIN+ 
ZNDBIN+ 



♦ ♦t + ^^^^i^s^^^'* *♦*♦♦♦*=♦'♦* '•'**♦♦♦♦♦ 

lOQ ; INITIALIZE DATACOM 

3 ; INITIALIZATION CONTINUATOR 

3 pMONITURING ROUTINE 

3 ;MISC CONTROL FUNCTIONS 

3 ; SELF-TEST 

3 ;G£T DC CHARACTER 

3 ;PUT DC CHARACTER 

3 ;GET BINARY DC CHARACTER 

3 ; START BINARY OUTPUT 

3 ;END BINARJ( OUIPUT 

3 /DATACOM INTERRUPTS 



^^♦^♦♦♦♦♦♦♦♦♦♦♦^'♦♦♦♦♦♦♦♦♦♦***** 



DATACOM CONTROL CALL CODES 



;♦♦♦♦♦♦ 

CLRTRG 

SETTRG 

RSETDC 

SETRfc.M 

SETLCL 

PUTBRK 

DISCNT 

ENDBLK 

SETMON 

SETNRM 

FSTBIN 

SNDATN 

SNDFCT 

PROMPT 



EQU 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 



CLEAR BLOCK TRANSFER XRIGGE 

SET BLOCK TRANSFER TRIGGER 

RESET DATACOM 

SET REMOTE MODE 

SET LOCAL MODE 

OUTPUT BREAK SIGNAL 

MODEM DISCONNECT 

TERMINATE OUTPUT MESSAGE 

ENTER MONITOR MODE 

ENTER NORMAL MODE 

ENTER FAST BINARY OUT MODE 

SEND ATTENTION CODE 

SEND FUNCTION DATA 

SEND PROMPT CODE 
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ITtM 



LOC 



272 


0000 


273 


0000 


274 


0000 


27b 


6000 


lib 


6002 


27 7 


6005 


278 


6008 


279 


6 0uB 


2 80 


600G 


28i 


601 1 


2B2 


6014 


Z%i 


6017 


284 


t)01A 



OBJECT CODE SOURCF: STATEMENTS 

; ALTERNATE i/0 KNTR^f 



ALTORG 


EQU 


600000 


ZINIAL 


EQU 


ALTORGf? 


ZlH2kh 


Egu 


ZlMAL + 3 


ZInTAL 


E^U 


ZIN2AL+3 


ZMOWAl 


Egu 


ZINTALt3 


ZGfcTAL 


EQU 


ZMUMALt3 


ZFUTAL 


Eyu 


ZGETALt3 


ZCTLAL 


egu 


ZPUTALt3 


ZSTAAL 


E(^l) 


ZCTLAL +3 


ZMSGAL 


Egu 


ZSTAAL f 3 



PAGE 7 

VECTURS ♦ 

ALTERNATE I/O START ADDRESS 
INITIALIZATION ROUTINE 
INITIAL! ZATinN CnNTlNUAIOR 
TivTtRHUFT PROCESSOR 
MONITORING ROUTINE 
INPUT ROUTINE 
OUTPUT ROUTINE 
CONTROL ROUTINE 
STATUS ROUTINE 
ALTERNATE DEVICE NAME 



U255- 


90003 Rev 


AUG- 


01-76 








:s=ssss:= =============== =====5=5 


ITfciM 


~LOC OBJECT coot; SOURCE STATEMtNTS 


PAGE 




ssss = s = ss===s=: = = s = = = sr==s=ss:s==ss:==s=:s3S 


:============================' 


286 


"oooo . . . •♦♦♦♦♦♦♦*************!tf»**** 


287 


0000 






; ASCII CHARACTER 


EQUATES * 


288 


0000 






.:»:^ ♦ + *♦*♦♦!».»♦*♦ ♦♦*♦♦'!'♦♦♦♦♦♦ 


289 


0000 






NULL EQU 00 


;NULL 


290 


OOOA 






LF EyU 12Q 


;LINE FEED 


291 


OOOC 






FF EQU I4g 


;FORM FEED 


292 


OOOD 






CR EQU 15Q 


;R£TURN 


293 


OOOE 






SO EQU 016Q 




294 


OOOF 






SI Eyu 017g 




295 


0012 






UC2 EQU 22y 


;DEVICE CONTROL 2 


296 


0013 






DC3 EQU 23Q 


; DEVICE CONTROL 3 


297 


OOIB 






ESC EQU 33Q 


; ESCAPE 


298 


0020 






CTLLIM EQU 40Q 


; CONTROL CODE UPPER LI Ml 


299 


0020 






ABLNK EQU 040Q 


?ASCII BLANK 


iOO 


0026 






AMPSND EQU 460 


;(&) - AMPERSAND 


301 


0027 






QUOTE EQU 47Q 


; (•) - SINGLE QUOTE 


302 


0029 






ARPAHN EQU 51Q 


;[)) - RIGHT PARENTHESIS 


303 


002B 






PLUS EQU 53Q 


;PLUS SIGN 


304 


002C 






COMMA EqU 54Q 


; COMMA 


305 


002D 






MINUS EQU 55Q 


;MINUS SIGN 


306 


002E 






PEf^IOD EQU 56Q 


;C.) - PERIOD 


307 


002F 






SLANT EQU 57Q 


;(/) - SLANT 


308 


0030 






^ ZERO EQU 60Q 


; ASCI I ZERO 


309 


0032 






TWO EQU 62y 


; ASCI I Two 


310 


0033 






THREE EQU 6 3Q 


; ASCII THREE 


311 


0034 






FOUR EQU 64Q 


; ASCI I FOUR 


312 


0035 






FIVE EQU 65Q 


; ASCI I FIVE 


313 


0036 






SIX EQU 66Q 


;ASCII SIX 


314 


0037 






SEVEN EQU 67Q 


; ASCI I SEVEN 


315 


0000 






• 
» 1 




316 


0040 






ATSIGN EQU lOOQ 


;"AT" SIGN ((a) 


317 


0041 






A EQU 1010 


; UPPER CASE A 


318 


0043 






C EQU 103Q 


; UPPER CASE C 


319 


0044 






D EQU 104Q 


;UPP£R CASE 


320 


0046 






F EQU 1060 


; UPPER CASE F 


321 


0048 






H EQU 1100 


; UPPER CASE H 


322 


004C 






L EQU 11 40 


?UPPtR CASE L 


323 


004E 






N EQU 1160 


; UPPER CASE N 


324 


0050 






P EQU 1200 


; UPPER CASE P 


325 


0052 






R EQU 1220 


; UPPER CASE R 


326 


0053 






S EQU 123Q 


; UPPER CASE S 


327 


0054 






T EQU 1240 


; UPPER CASE T 


328 


0055 






U EQU 1250 


;UPPEP CASE U 


329 


0059 






t EQU 1310 


; UPPER CASE Y 


330 


005A 






Z EQU 1320 


; UPPER CASE Z 


331 


005B 






LFTBKT EQU 1330 


;LEFT BRACKET 


332 


005C 






ABCKSL EQU 1340 


;(\) - BACK SLANT 
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====ss;s=s======r===ssr==s:srrs=re=s:sss= ====.s===s:===== ============= 


lEH 


LOC OBJECT CODE SOUPCK STATEMENTS PAGE 9 


r==5: ==s=rs=ss=s!=ss==s=sss=arxss===s=s:s= = s==x=s == ============ = ======!== = = 


334 


0000 • . . ;f**4t*f**]»:f«|c*f$**1f**** 


33b 


0000 






; LOWEH CASE EQUATES * 


33t> 


oouo 






;»3(t*4i^ + *^**|!**f :<s**#*4'* 


337 


0061 






SMALL A EgU 1410 ; LOWER CASE A 


338 


0063 






ALCC egU 143Q ; ASCI I LOWER CASE C 


339 


0064 






SMALLD EQli 1440 


LOWER CASE D 


340 


0066 






SMALLF EQU 1460 


SLOWER CASE r 


341 


00o9 






SMALLI EQU 151Q 


fLOWLR CASE 1 


342 


OObB 






SMALLK EQU 153Q 


r LOWER CASE K 


343 


0070 






SMALLP EQU 160Q 


?L0VjER CASE P 


344 


00 7 8 






SMALLX EQU 170Q 


f LOWER CASE X 


34b 


007B 






LFTBHC KQU 17 3Q , 


fLEFT BRACE 


34b 


007C 






VRTBAR EQU 17 40 


f VERTICAL BAR 


347 


007F 






ADEL EQU 17 70 


f DELETE CRuBOUT) 



13255-90003 



ITEM 

349 
350 
351 
352 
353 
354 
35b 
356 
357 
358 
359 
360 
361 
36 2 

36 3 
364 
365 
366 
367 
368 
369 
370 
371 

37 2 
373 
374 
375 
376 
37 7 
378 
379 
380 
381 
382 
383 
384 



LOC 

0000 
0000 
0000 
OOBF 
OOCO 
OOCl 
0OC2 
00C3 
00C4 
00C5 
00C6 
00C7 
00C8 
0000 
00C4 
OOCC 
OOCE 
OODO 
0800 
8000 
00C3 
00C9 
0000 
0000 
0000 
0017 
004F 
0010 
0008 
OOOF 
0010 
0008 
0001 
0002 
0032 
0080 



Rev AUG-01-76 
OBJECT CODE SOURCE 

• # :K f :|c f 4l 

; DISPL 

;♦♦♦♦** 

ENHLIM 

STPR 

ENDPH 

XMONLY 

FILL 

STPFLG 

ALPHA 

NUMBER 

ALPHWM 

SFkYAT 



S» SC «■■ S> «£ iS SS «H> 3» ^SSt 35 S* •■► 

STATEMENTS 

AY FLAGS EQUAT 

EQU 2770 

EQU 300Q 

EQU 301Q 

EQU 3020 

EgU 303Q 

EQU 3040 

EQU 305Q 

EQU 306Q 

EQU 3070 

EQU 3100 



FLDSEP EQU 



EQU 
EQU 



EQU 
EQU 
FQU 



EOL 

eop 

LNKLIM EQU 

NUM2K EQU 

615 

JMP 

RET 

; MISCELLAN 

MAXROW EQU 
MAXCUL EQU 
SFTEND EQU 
BELLIM EQU 
BLKSM 
BLKSZ 
lOEPHB EQU 
HEXMIT EQU 
BINXMT EQU 
SFXDLY EQU 
NOSIGN EQU 



EQU 
EQU 



304Q 
314Q 
316Q 
320Q 

4000Q 

lOOOOOQ 

303Q 

3110 

EOUS EQUA 
♦♦##♦♦♦♦♦ 

23 

/9 

16 

8 

17Q 

16 

lOQ 

IQ 

2 

50 

2000 



PAGE 10 

ES ♦ 

;MAXIMUM ENHANCEMENT CODE 
; START PROTECTED FIELD 
;END PROTECTED FIELD 
;START TRANSMIT-ONLY FIELD 
;E0L fill CHARACTER 
;N0N-DISPLAYING TERMINATOR 
; ALPHABETIC ONLY 
/NUMERIC OHhi 
; ALPHANUMERIC FIELD 
;SUF1 KEY ATTRIBUTE FIELD 

;FIFLD SEPARATOR FOR I/O BUF 



; LOWEST VALUE FOR A LINK 
;NUMBEH 2048 (2K) 
?Bn 15 

;JUMP INSTRUCTION CODE 
; RETURN INSTRUCTION CODE 

♦ ♦♦*♦ 
TES * 

♦ ♦♦♦♦ 
MAXIMUM ROW NUMBFR 
MAXIMUM COLUMN NUMBER 
LAST SOFT KEY DEFINITION RO 
SPACE FROM RHTMGN FOR BELL 
BLOCK SIZE MASK 
BLOCK SIZE 
I/O ERROR STATUS BIT 
RE-TRANSMIT I/O FLAG 
SEND BINARY DATA 
SOFT RESET PEKIuD - ,50 SEC 
NO SIGN FLAG FOR INPUT DATA 



TfcM 

IMt M» «■> ■* Jl" 


LOG OBJECT C 


386 


0000 


387 


0000 






38B 


0000 






389 


0000 






390 


0001 






391 


0070 






392 


0080 






393 


oooo 






394 


0000 






39b 


0000 






396 


8300 






39 7 


8380 






398 


0002 






399 


0004 






400 


00U8 






401 


0000 






402 


0000 






403 


0000 






404 


87u0 






40b 


8700 






40b 


8720 






407 


0020 






40B 


0040 






409 


0060 






410 


0080 






4U 


0082 






412 


0080 






413 


0000 






414 


oooo 






4lb 


0000 






416 


8B00 






417 


8600 






418 


8B00 






419 


8B20 






420 


8B20 







l32b5-90003 Hev AUG-01-76 

:ODE SOURCE STATEMENTS .^^^..^l.- 

.^^♦♦♦♦^♦♦♦♦♦^♦♦♦♦♦♦*»* 
; I/U MODULE EQUATES * 

RESET ECU 00 ;HLSET TERMINAL VECTOR 

HSTJMP EgU 10 ; VECTOR ^"^^J^START -PCHL" 

PROCSP EQU 1600 ; PROCESSOR "OUT" POP! 

lOBASE E^U 200g ;I/0 ADDRESS MSB'S 



; KEYBOARD 

• 

lOKB EQU 
lOKBCO EQU 
RSION Egu 
RSXOFF EQU 
NMFCTK EQU 



(3Q+IOBASE)*256;mODULE 11 BASE ADDRESS 
IOKBt200g ;RESET KEi( CONTROL 

OFF 

OF FUNCTION KEYS 



20 
40 
8 



? RESET 
;RFSFT 
NUMBER 



CURSOR CONTROL 



IODISP 

lOCRCL 

lOCPRW 

MA)fEOP 

MAYEOL 

DMAOFF 

CRTOFE 

INVRS 

NORMAL 



EOU 
EOU 
EOU 
EOU 
EQU 

Egu 

EQU 
EQU 
EQU 



C7U-l-IOBASE)*2'Sb;. MODULE 13 BASE ADDRESS 

lODISP+0 ;CURS0R COLUMN ADDRESS 

inDISPt4oO ;CUPSOR RO^ ADDRESS 

400 ?OMA ON, EOP IF DMA ROW = RO 

1000 ;DMA UFF, SKIP EOP IF ROiMS = 

1400 ?t)MA OFF 

2000 ; DISPLAY OFF 

2020 ; INVERSE VIDEO Oi^ 

2000 ; NORMAL VIDEO ON 



CARTRIDGE TAPE 



lOCTU 

lOCTCO 

lOCTSI 

lOCTDO 

lOCTDI 



EQU 
EQU 
EQU 
EQU 
EQU 



(130+IUPASE*256);MUDULE lb BASE ADDRES 
lOCTU+OQ ;CUMMAND TO CTU 
lOCTU+OQ ; STATUS FROM CTU 
IOCTU+40Q ;DATA TO CTU 
10CTUt40Q ;DATA FROM CTU 



13255- 


90003 


===.=ss 


zsssss 


ITEM 


LOC 




sss=s= 


422 


0000 


423 


0000 


424 


0000 


425 


8D00 


426 


8D20 


427 


8D00 


42a 


8002 


429 


0000 


430 


0000 


431 


0000 


432 


8500 


433 


8540 


434 


8520 


435 


8560 


436 


8540 
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» mm Mi* *■« ••■ «■» NH» m^^m mm mm-^^^wmmm mm "m dt-^v •■* «m m*«h» mm «I»«m mm «■ mm «■■ mm mm «■ mm mm mm 4M MP *^ *P ^* ^w <** ■■■ "■" m* 

OBJECT CODE SOURCE STATEMENTS 



9866 PRINTER 



PAGE 12 



lOPTHl EQU C15Q+IUBASE)*256?MOOULE 16 BASE ADDRES 

PTROTl EQU IOPTRl+400 ;PRINTER DATA OUT 

PTRSTl EQU lOPTRl+OQ ;PRiNTEK STATUS IN 

PTRCLl EOU inPTRlt2g ;PR1NTER CLEAR 

* 

; RS-232 PRINTER 

I0PTR2 EgU (5Q+IOBASE)*256;rtODULE 12 BASE ADDRESS 

PTR0T2 EgU iOPTR2tl000 ; INTERFACE CONTROL OUT 

PTRST2 EQU 10PTR2'l-400 ; PRINTER STATUS IN 

PTRDA2 EQU IOPTR2+140Q ? PRINTER DATA OUT 

PTRCF2 EQU 10PTR2+100Q ;OPTION JUMPERS TN 



U255-90003 



ITEM 



LOG 



43« 


0000 


439 


oouo 


440 


0000 


441 


0000 


442 


0000 


443 


0000 


444 


0000 


445 


0000 


440 


0000 


44 7 


0000 


448 


0000 


449 


0000 


450 


0000 


451 


0000 


452 


0000 


453 


0000 


454 


OOoO 


455 


0000 


45t> 


oooo 


45 7 


0000 


45 8 


0000 


459 


0000 


460 


0000 


461 


OOuO 


46 2 


0000 


463 


0000 


464 


0000 


465 


0000 


466 


0000 


467 


0000 


468 


0000 


469 


oooo 


470 


0000 


471 


oooo 


472 


oooo 


473 


05DC 


474 


oooo 


475 


oooo 


476 


oooo 


477 


oooi 


478 


0080 


479 


oooo 


480 


oooo 


481 


oooo 


482 


0002 


"183 


0040 


484 


0020 


485 


OOEO 


486 


OOIF 



OBJECT CODE SOURCE STA1EMENTS 

PRINTEH EQUATES » 
RS-232 OPTION STRAPS 



Hev AUG-01-76 
PAGE 13 



BITS 2-0 


MEANING IF SET 


; 000 


EXT BAUD HATE 


; 001 


110 " 


; 010 


150 " 


oil 


300 " 


100 


1200 " 


101 


2400 " 


no 


4800 " 


111 


9600 " 


; BIT 3 


PARITY SELECT 


? 1 


EVEM 


; 


ODD 


; BIT 4 


PARITY INHIBIT 


1 


NO PARITY 


; 


PARITY 


; BITS 7-5 


n OF i ILLS 


; 000 


HANOSttAKE DEVICE 


; 001 


8 


; Olo 


16 


oil 


24 


100 


32 


101 


40 


1 1 


48 


111 


56 


;*:(t*;f:t:**Ht)|(:»;»4f4'**f* 


; DRIVER EQUATES » 


.:»(4L + J(i,*4;t»**i»t*:»!4;*j)i:«: 


PTDL^ EyU 1500 ;15 SECOND PRINTER TIME OUT 


.f* + »♦♦♦♦♦ ^♦♦♦♦♦♦♦♦♦♦:<t4* 


; 9866 PHIi^»TER EQUATES ♦ 


.♦4*:ft4;*** ♦♦♦♦*♦♦♦***♦♦♦ 


PTRDYl EQU 1 


;PRINTEP READY 


PTHPOl EQU 200Q 


; PRINTER OUT OF PAPER 


.*4(4c + *:H;r*4:*** ♦♦♦♦♦♦♦♦♦♦*♦♦ 


; RS-232 PiRINTER EQUATES * 


.♦j^*;t;*j^4(4if|.f*1tJ|!**J|e^% ♦*♦**» 


PTRDY2 EQU 2 


;PRINTER READY MASK 


PTRSB2 EQU lOOQ 


; RS-232 SB LINE STROBE 


PTR0L2 EQU 40Q 


; PRINTER READY MASK 


PTKHD2 EQU 340Q 


;PS-232 HANDSHAKE PROTOCOL 


PTRBD2 EQU 370 


;PAR1TY AND BAUD RATE MASK 



13255-90003 



ITKM 



LOC 
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OBJECT CODE SOURCE STATEMENTS 
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4B8 


0000 


489 


0000 


490 


0000 


491 


FBFF 


492 


0000 


493 


FCOO 


494 


OOFC 


495 


0000 


49b 


FCOO 


497 


FDOO 


498 


FE4F 


499 


oioo 


500 


0000 


501 


0000 


502 


0000 


503 


91b0 


504 


FFDO 


505 


OOFF 


50b 


FFOO 


50 7 


OOFE 


508 


FEOO 


509 


0000 


510 


0000 


511 


0000 


512 


FFCD 


513 


FFCE 



; VARIABLE 

DSPLIM EQU 
LWDSP EQU 
lOBUF EQU 
lOBUFH EgU 
I06UFL EQU 
iOBUFl EQU 
I0BUF2 EQU 
DSPSTR EgU 
PTRBLN EQU 

; OPERATING 

STACK EQU 
UPSTUR EQU 
BASEH EQU 
BASE EQU 
BASEh2 EQU 
BASE2 EQU 

; VARIABLE 

ECONTF EQU 
CNXFAD EQU 



SPACE ALLOCATION ♦ 

175777Q /DISPLAY UPPER LIMIT 

150000Q/25b /DISPLAY LOwER LIMIT 

l7b000Q 

IOBUF/256 

-I0BUFH*25b+I0BUF 

176000Q 

176400Q 

177000Q+79 /MESSAGE BUFFER 

256 /PRINTER INPUT BUFFER SIZE 

SYSTEM STORAGE ♦ 
^: # ♦ * ♦ 4: ♦ » ♦ :)f ♦ ♦ * 4i ;«; 4 ♦ 

FSTRAM+140Q /STACK AREA (96 BYTES) 
177720Q /VARIABLES STORAGE AREA 
OPSTOR/256 /MSB OF DATA PAGE ADDRESSE 
BASEH*256 /DATA PAGE BASE ADDhESS 
BASEH-1 /BASE VALUES FUR SECOND PAGE 
BASEH2*256 /OF VARIABLES SPACE 

SUBROUTINE CALL ♦ 

OPSTOR-3 /JUMP SUBROUTINE 
ECOMTF-t-1 /CHARACTER FUNCTION ADDRESS 



13255-90003 



Rev AUG-01-76 



TEM 


LOG OBJECT 


bib 


0000 


bib 


0000 






51? 


0000 






bib 


FFCB 






bl9 


0000 






520 


0000 






521 


FFC9 






522 


0^00 






523 


0000 






524 


FFC8 






525 


FFC7 






526 


0000 






52? 


0000 






52B 


FFC6 






5 29 


FFC5 






530 


FFC3 






531 


0000 






bi^ 


FFC2 






533 


0000 






534 


0000 






535 


0000 






536 


oouo 






53/ 


0000 






53B 


FFCl 






539 


FFCO 






540 


FFBF 






541 


FF6E 






542 


OOOF 






543 


FFAF 






b44 


FFAF 






545 


OOuO 






546 


OOuO 






547 


0000 






548 


OOUO 






549 


0000 






550 


FFAC 






551 


FFAA 






552 


FFA8 






553 


FFA6 






554 


FFA4 






555 


FFA3 






556 


FFAl 






55? 


FF9F 






55d 


0000 






559 


0000 







CODE SOURCE STAlFi^eKTS 



; nOHMAL/SQFT KF^ S 
TOPLIN EQU fcCONTF- 



PAGF 15 

WAPPED DISPLM PARAMFIFHS » 
♦ ♦♦4;* + f4i:»;4i!»tt'f¥** ♦♦♦♦♦♦♦♦*»* 



LSXHN FyO TOprjlN-2 



LSTCOt. KQIJ 



LSIXIN- 
LSXCOL- 



2 ;LSB PART OF 

POINTER Ik 

LINE 
;PUlNTfc;p TO 

NEXT LIME 

LAST LINE 
1 ;COLUMW AND 
1 ;LASX CHARACTF.R 

(CORHFSPONDS TO 



NEXT LINE 
Tup DISPLAY 



LSB PART OF 

POINTER JN 

PROCESSED 

HOW POSITION OF 
PROCESSED 
CHARACTER 



LSTDCD Egu LSTROW. 

LSTFMT Egu LSTDCD- 

CURAuR Egu LSTFMT- 

« 

PRUFLD Egu CURADP-1 



; CURR 

crmcoL 

CURPUW 
LFTMGN 
RHTMGK' 
NUNiSwP 
SiNpSTP 
DSPTlcP 



; FIXE 

;♦;»:♦♦» 

FRBLKS 

DSPBGfM 

DSPEND 

SFTKXS 

CURFKY 

TLINU 

LLiNE 

tLiwE 



ENT C 

Egu 
Egu 
Egu 
E\^u 
Egu 
Egu 
Egu 



URSOR VA 

* ♦ J>: j»: ♦ f * ^t 

PROFLD- 
CURCOL- 
CURPOW- 
LFTMGN- 
ECUNTF- 
RHTMGN- 
SwPSTR- 



D DISPLAY PAR 
4 ♦ ♦♦♦♦♦♦ ^i *♦♦ ♦ 
Egu DSPTYP- 
Egu FRBLKS- 
EgU QSPBGN- 
EgU DSPEND- 
EgU SFTKYS- 
EQU CURFKY- 
Egu TLINO-2 
Egu Ll.iN£-2 



GIVEN BY "CUP ADR") 
■1 ;LAvST DISPLAY CODE USED 
'I ?LAST FORMAT CONTROL USED 
2 ; ADDRESS OF LAST CHARACTER 
PROCESSED 
;PR01FCT SIATE OF (CURADR) 
= -1, PROTECTED 
ff -1 , i^OT PROTECTED 

)(t 4 3j: jj; j»: 4: 

LUES * 
^ 4 4: 4. ♦ f 

1 ; CURRENT COLUMN AND ROW 
1 ; POSITION UF CURSOH 
1 ;Lt-FI MARGIN SETTING 
1 ; RIGHT MARGIN SETTING 
RHThGN ;» OF Swap VARIABLES 
NUf^'.SWP ;S^AP BUFFER 

1 ;niSPLAY CURHFNTLY ENABLED 

= NORMAL DiSJrLAY 
-i = SOFT KEY DISPLAY 

AMETERS (NOT SWAPPED) ♦ 

2 ;FPEE BLOCKS LIST HEAD 
2 ;LO>w ADDREisS OF DISPLAY AREA 
2 ;HJGH ADDR OF DISPLAY AREA 
2 ;SOFT KEY DISPLAY START ADDR 
2 ;CURR£NT FUNCTION KEY CHAR 
1 ;TOP LINE ABSOLUTE ROW NuMBE 

;LAST DISPLAY LINE START ADD 
;POIiNtTER TO LSb PART OF NEXT 
LINE POINTER IN FIRST 
LINE OF NORMAL DISPLAY 



255-90003 Rev 


ssssss 


ssss ========= 


TEM 


LOC OBJEC 


szsss 


============= 


561 


0000 


562 


0000 




563 


0000 




564 


FF9E 




565 


FF9D 




56b 


FF9C 




567 


rF9B 




568 


FF9A 




569 


FF99 




570 


FF98 




571 


0000 




572 


FF96 




573 


FF94 




574 


FF92 




575 


FF91 




576 


FF90 




577 


FF8F 




578 


CFFF 




579 


0080 




5B0 


FF80 




581 


FF8B 




582 


0000 




583 


0000 




584 


0000 




585. 


FF8A 




586 


FF89 




587 


FF88 




588 


FF86 




589 


FF85 




590 


0000 




591 


0000 




592 


0000 




593 


FF84 




594 


FF83 




595 


FF82 




596 


0000 




597 


FFDB 




598 


FFOA 




599 


FFD9 





AUG-01-76 ss-ss 

T CODE SOURCE STATEMENTS ^^2f — i- — 

; SCRATCH VARIABLES ♦ 



TEMPI 

TEMP 

CHARIN 

NCBAH 

WRQWS 

NBLKS 

CHSAV 



EUU 

Egu 

EQU 
EQU 
EQU 

Egu 

EQU 



FLlNE-1 
TEMPl-1 
TEMP-1 
CriARIN-1 
NCHAR-l 
NROwS-l 
NBLKS-l 



; TEMPORARY 

;CHARACTER 

; NUMBER OF 

;N0. OF ROWS 

;N0. OF BLOCKS 

;SAVE AREA FOR 



STORAGE 
FROM KEYBOARD 
CHAKS TO BE ADDED 
TO BE AuDED 

TO BE ADDED 

CHAR 



PRECEDING LINK 
;LXNK SAVE AREA 
;ADDH OF LAST EOL 
?FIPST BLOCK IN DISPLl 
;F1LL FLAG FOR FNDCHR 
;FLAG FOR EOLMOV 
;FiLL CHAR SAVE FOR GTbLK 
;UPPER LIMIT OF BUFFER 
1300u0g/25b ?LOWER LIMIT 
FILCHR-2 ;LOW ADDR OF NON-DISPLY BUFF 
6UF8GN-2 ;HIGH ADDR FOR BUFFER 
T^i ♦♦♦♦*♦♦♦*♦♦♦ ♦**♦♦»**»*»♦*♦=<'♦*♦♦♦♦♦♦♦*♦ 
; STORAGE FOR CHARACTERS TO BE STORED ♦ 



LNKSAV 
EOLAUR 
FR3TBL 
BLKFIl. 
EOLMV 
FILCHR 
BFSPCE 
LWBUF 
tiUFBGN 
• BUFENO 



Egu 
Egu 

EQU 

Egu 
Egu 
Egu 
Egu 
Egu 
Egu 

EQU 



CHSAV-2 
LNKSAV-2 
EOLADR-2 
FRSTBL-1 
BLKFIL-1 
EOLMV- 1 
147777Q 



; FORMAT CONTROL TO BE ENTEKE 
;N£XT CHAP TU BE DISPLAYED 
;CLRRENT CHAR BEING PROCESSE 
jCURHENT TitPE CHECK ROUTINE 
;COLU^N # STORAGE FOR RCADDR 



FMTCTL Egu 8UFEND-1 

DCHAR EQU FMTCTL- 1 

CHAR P'Q^i DCHAR-1 

CHKRTN Egu CHAR-2 

TMPCOL Egu CHKRTN-1 

; STORAGE FOR CURSOR POSITIONING * 
.^* ♦»♦♦*♦**♦♦*♦**♦♦*♦»♦**♦ ♦*****♦♦ 
COUNT Egu TMPCUL-1 ; NUMBER OF BVTES 
NMROLL EQU COUNT-1 /NUMBER OF LINES 
ROLLCT Egu NMROLL-1 ;ROLL COUNTER 



TO 
TO 



FILL 
ROLL 



NErtCOL Egu PARMl 
NEWROW Egu PARM2 
SCRNRW Egu PARM3 



;NEW COLUMN JMUMBER 

;N£Vi ABSOLUTE ROw NUMBER 

JNEW SCREEN ROW SETTING 



13255-90003 
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= :: = = = 




rz=z£ 


ITEM 


LOC OBJEC 


= s: s s s: 




oOl 


0000 


602 


0000 




60i 


0000 




604 


OOOA 




t.05 


FF7& 




60t) 


0000 




fo0 7 


0000 




bOS 


0000 




ta09 


FF/7 




610 


FF76 




6U 


FF75 




612 


FF7 3 




613 


0000 




614 


OOuO 




615 


OOuO 




61b 


FF7 2 




617 


FF71 




61 B 


0000 




019 


FF70 




620 


0000 




021 


OlOO 




022 


0200 




623 


0400 




624 


0800 




625 


1000 




626 


2000 




d27 


4000 




628 


8000 




629 


0000 




630 


FF6F 




o31 


0000 




632 


0001 




633 


0002 




634 


0004 




635 


0008 




36 


0010 




637 


0020 




638 


0040 




639 


0080 




O40 


OOoO 




641 


FF6E; 




642 


0000 




643 


OOOl 




644 


OOU2 




045 


0004 




646 


0008 




647 


0010 




648 


0040 




649 


0080 





T CODE SOURCE STATEMENTS PAGE 17 

; HURIZOwTAL TAB TABLE * 

hTBLEN EQU 10 ? TABLE LENGTH (= 10 X 8) 
hTBTBL EyU HOLLCT-HTBLEW 

; DISPLAY SEND STQKAGE ♦ 

CDSPEN EgU HfBTBL-l ;CUPRENT ENHAMCEMEiSiT IN 

ENHOuT F^U CDSPEN-1 ;LAST ENmANCEMENI UUl 

CALTST EgU ENHUUl-1 ; CURRENT ALTERNATE SET OUT 
GETADR EQU CALTST-2 ;CURRENT CHARACTER ADDRESS 

; FLAGS ANU TABLE POI^^TERS ♦ 

CHRSET EQU GETAUR-1 yCURRFNT ALTERNATE CHAR SET 
KBFCXK EgU CHRSET-1 ; KEYBOARD FMNCIION' CODE 

MFLGS Egii KHFCIK-I ; BLOCK TRANSFER RENDING FLAG 
;♦+♦♦♦»♦♦♦♦*♦♦♦♦♦♦♦♦♦ 4 ♦♦^♦♦♦♦♦♦♦♦♦♦♦^^♦♦♦t* ♦♦♦♦♦♦♦ 

;DC? PENDIiMG 

; TERMINAL STATUS FEEDING 
; TERMINAL STATUS 2 PENDli^G 
; LEV ICE STATUS PENuInG 
;CURSOn SFwSE RENDING 
r'FuNCTlOiv KEi REIvDiNG 
; DISPLAY SEWD PFimDIHG 
; DEVICE DONE PENuInG 

MFLGS2 EQU MFLGS- 1 ;MATN CODE MODE t LAGS 
;♦♦♦♦♦♦♦♦♦ ♦♦♦♦**<t*»**t'f* + *** ♦♦♦•♦*♦♦♦ ♦♦♦♦♦♦ 

;DEViCti, RECORD PENDING 
;BlMAPl^ RECORD PEN D IMG 
; RELATIVE CURSOR SENSE 
ESC RECEIVED IN BLOCK ^'UDE 
; FIRST SOFT KEY DATA OUT 
/DELETE CHAR w/ WRAP AROUND 
;LiKE WRAP AROUND uCCURRED 
;nh\^ ABSOLUTE ROW SET 
;*** + *J|^*** *♦♦♦*♦♦»♦♦♦*♦»♦♦♦*♦*♦♦»*♦♦♦♦♦♦♦ 
OFLGS EQU MFLGS2-1 ;DATA TRANSFER FLAGS 

;DATACOM/KEYBOARD 

/CUNin^UE BUFFtR TO DATA COM 
;m^ DISPLAY DAI A TO SFl>iD 
;SKTR BLOCK TERMINATOR 
/FUNCTION KEY TO DISPLAY 
;KB LOCKED BY ESCAPE SEQUENC 
;I/0 BUFFER TO DISPLAY MODE 



SDC2 


Egu 


10*256 


SSTAT 


EQU 


20*256 


SSTAT2 


EQU 


4y*256 


SDVST 


FQU 


10y*256 


SCRSEN 


EQU 


20g*256 


SFCTKY 


EQU 


40g*25o 


SETTER 


EQU 


1000*256 


SDVDUN 


EQU 


2000*256 



SDVPEC 


EQU 


IQ 


SBINhY 


EQU 


20 


HELSNS 


EQU 


40 


ESCINP 


EQU 


lOQ 


FRSOUT 


EQU 


20Q 


WRPDEL 


EQU 


40Q 


WRPFLG 


EqU 


lOOQ 


NWRWST 


EQU 


2000 



SDACOM 


EQU 


00 IQ 


CNTXFR 


EQU 


2Q 


NO SEND 


EQU 


4Q 


SKPTRM 


EQU 


lOQ 


FCTK2D 


EQU 


20Q 


KBDLOK 


EQU 


lOOQ 


XBF2DS 


EQU 


200Q 
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LOC 
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651 


0000 


652 


FF6D 


653 


0000 


654 


FFFF 


655 


0000 


656 


0001 


657 


0000 


658 


FF6C 


659 


0000 


660 


0020 


661 


OOFF 


662 


0000 


o63 


FF6B 


664 


FF6A 


665 


FF69 


666 


FF68 


667 


FF67 


668 


0000 


669 


0000 


670 


0000 


671 


FFD5 


672 


FFDE 


67 3 


FFD7 



J t***********"^** ****** 

TRMFCT EQU DFLGS-1 

STPXFP EQll -1 
DELTHM EQU 
IGNTRM EQU 1 

SPOWL EQU TRMFCT-1 
,ili^iif4if^^^4^4-^********** 
SPOWON EQU 40Q 
SPOWOF EgU 377Q 

MLKROW EQl) SPQWL-1 

MLKFU; EQU MLKPOW-l 

LCriAR E^U MLKFLG-1 

TCHAR EQU LCHAR-1 

CRAFLG EgU ICHAR-1 

J POINTERS FOR BINARY 
.il^^i^ilf.t4*** ****** ****** 
LADDR EQU PARMo 
LDATA EgU lODATA 
LChKSM EQU PARM5 



^^i^t^if.^****************** 
;N0N-DISPLAY1NG TERMINATOR 
^i^^^^^^t***************** 
; TERMINATE TRANSFER 
; DELETE TERMINATOR 
; IGNORE TERMINATOR 
^y^^t******** ********* 
; SPACE OVERWRITE LATCH 
^^4^^ ti^H.^* *********** 
;SPOW LATCH ON 
fSPOW LATCH OFF 
^i^^i^^i^^)^^*****^************* 

; MEMORY LOCK ROW 

;MEM0R5f LOCK FLAG 

;LAST CHARACTER PROCESSEO 

;CURRENT TEST PATTERN CHAR 

;CURSOR ADVANCE FLAG 

:^4f,ift**** 

LOADER * 
)(t j|t + ♦ ♦ ♦ ♦ 4: 

;BYTE ADDRESS PARAMETER 

; INPUT DATA ACCUMULATOR 

;l6-bIT CHECKSUM 



13255-90003 



Hev AUG-01-76 



ITEM 



LOC 



675 


0000 


676 


0000 


677 


0000 


678 


0000 


679 


0000 


680 


0000 


681 


0000 


682 


0000 


683 


0000 


684 


0000 


685 


0000 


686 


0000 


687 


0000 


688 


0000 


689 


FF66 


690 


0000 


691 


008 


692 


0040 


693 


0020 


694 


0010 


695 


0008 


696 


0004 


697 


0002 


698 


0001 


699 


0000 


700 


FF65 


701 


0000 


702 


0001 


703 


0002 


704 


0004 


705 


0008 


706 


oouo 


7 07 


0010 


708 


0020 


7 09 


0000 


710 


0080 


711 


0000 


712 


FF64 


713 


0000 


714 


0001 


715 


0020 


716 


0040 


717 


0080 



OBJECT CODE SOURCE STAIEMFNTS PAGE 19 

;V*V*V*V*V=«'V*V*V*V*V*V*V*V»V*V*V*V*V 

CTU/IO EQUATES - 4/11/76 - 2255 HOURS 
TAPE DISTANCE NEASUPEMENT 



AS OF 3/1/75, .017125" OF TAPE MoxiON IS 
EQUIVALENT TO 1 TACH EDGE. THE COUNT IS 
IM EhROR WHEN STAHIMNG OH STOPPING Bi 
1 TACH EDGE (STOPPING IN A GAP MAY CAU5F 
AN EHRUR OF TWO TACH EDGES). 



♦ ♦ ♦ * ♦ 
CTSTAT 

TKI 
RD5( 
GAP 
hOL 
XAK 
HIP 
CIH 
CIL 
;**=«£♦» 

lOFLGS 
; *♦♦♦* 
HDWOwT 
UShEAD 
FILRED 
HECRaD 

« 

HECIiMI 
HECPGE 



♦ j^ 4^ * ♦ 
EQU 

♦ * ♦ * ♦ 
EQll 
EQU 
EyU 
EQU 
EgU 
EyU 
EQU 
EQU 

♦ ♦ ♦ * ♦ 

EQU 
*♦♦♦♦ 

EQU 
EQU 
EQU 
EQU 

EQU 
EQU 



VERIFY EQU 

X0FLG2 FQU 

EXTH2D EQU 
XDS2BF EQU 
DSPBIM EQU 
EMDDSP EQU 



♦ * 3jc ;♦• * ^c f ♦ t 

CRAFLG-1 

2009 
luOQ 
400 
200 
lOQ 
4Q 

20 

10 

:»;;<£♦♦*♦♦♦♦ 

CTSTAT-l 

10 
20 
4Q 
lOQ 

20Q 
40Q 

200Q 

lOFUGS-l 

t; ♦ ♦ It ♦ ♦ ♦ ♦ ♦ 

10 
40Q 
lOOQ 
200Q 



4l + :»: j»r 1^ ♦ 4: * :f :^ 4 4; 

;CTU STATUS 

;TACH INTERRUPT 
;ByTE hEADY 



;tapl hole 

;TACH (5b. 4 
;Pt,CQRD IN P 
;PIGHT CAR 
;LEFT CART 

;l/0 FLAGS 

;READ vvITM 
;READ KEY 
;F1LE READ 
; RECORD Dl 

OLD on IP 
; START "HE 
;F1LE COPY 

INHIBIT 
;"CTU?BF" 

;I/0 FLAGS 

4: 3»i 4: * 4: » sf 3»: ^t ♦ 4: ♦ 

; EXTERNAL 
; TRANSFER 
/BOTTOM OF 
;END OF DI 



EDGES/i 
ROGRESS 
TRIDGE 
RIDGE I 

1 

uUl WAI 
IfJITlAl 

SPLAY A 
UT CTU 
CORD" K 

FROM D 
ROLL UP 
PERFORM 
♦ 

2 

BUFFER 
DISPLAY 
DISPLA 
SPLAY R 



N) 

INSERTED 

NSERTED 



T MODE 
ED READ 

ND REWIND 
(LOGGIMG) 
ODE 
ISPLAY - 

S VERIFY 



TO DATA COM 

TO BUFFER 
Y REACHED 
EACHED 



3255-90003 


rsESSS 


css:=rz 


ITEM 


LOC 


= ==::.=:: 


==x = 3:== 


719 


0000 


720 


FF63 


721 


0000 


722 


0001 


7 23 


0002 


7 24 


0004 


725 


0008 


7 26 


0010 


727 


0020 


728 


0040 


729 


0080 


730 


OOuO 


731 


FT 6 2 


732 


0000 


733 


oooi 


734 


0002 


73b 


0004 


736 


OOOB 


737 


0010 


738 


0020 


739 


0040 


740 


0000 


741 


FF61 


742 


0000 


743 


FFbF 


744 


0000 


745 


405F 


746 


0000 


747 


FF5E 


748 


FFbD 


7 49 


FF56 


750 


0000 


751 


FF55 


752 


0000 


753 


0001 


754 


0002 


755 


0004 


756 


0008 


757 


0010 


758 


0020 


759 


0040 


760 


0080 


761 


0000 


762 


0000 


763 


0000 


764 


oooi 


765 


0002 


766 


0004 


767 


0008 


768 


0010 


769 


0020 


770 


0080 



LPM 


Egu 


10 


LSTFWD 


EQU 


20 


FPS 


EQU 


40 


CMDEXC 


EyU 


100 


DBLHOl. 


FQU 


200 


BO'I 


£Q\} 


400 


LP 


EQU 


1000 


ew 


Egu 


2000 



EOF 


EOU 


10 


tVl") 


EQU 


20 


HRDERR 


EOU 


40 


SFTFHP 


Egu 


log 


HHDFHl 


Egu 


200 


WRXEHR 


Egu 


400 


DATAXR 


EQU 


1000 
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OBJECT CODE SOURCE STATEMENTS ^t21^JH^^ 

, if ^ti¥*******^*1^ ****************** 
UNITO Egu 10FLG2-1 ;UMT STATUS 
fi^^-^it^i^^if^^^tt^^t ********** ********* 

;TAP£ AT OR BEFORE LOAD POIN 
;TAPE LAST MOVED FORWARD 
;TAPE WRITE PROTECIED 
; SUCCESSFUL COMMAND EXECUTXO 
; DOUBLE HOLE FOUND 
;TAP£ PAST BOT HOLES 
;TAPfe; PAST LP HOLE 
;TAPE PAST Ert HOLE 
* Hi^^ t *************** **********^************^ 
CNTRLO EQU UNITO-1 ;DATA TRA^^SFEP FLAGS: * 
.ifif^ 4******* ********************** *******"*** 

;END OF FILE 
;E^fD OF y^ALID DATA 

;hard error 
;soft error 
/interrupt error flag 
; write error 
;data recorded 

.^:^lft:^lii^^i^t*^*^*^**^**** ********** ************** 
HELTAK Egu CNXRLO-1 ;GAP LENGTH COUNTER 
fi^^^^^t****** *************** **************** 
ABSTAK EQU RELTAK-2 ; ABSOLUTE TACH COUNTER 
J it.^if^$^^4**** ************************ ****** 
STRTAK EQU 401 37Q ; STARTING VALUE 
f^^t ************************************** ******** 
FILNUM EQU ABSTAK-1 ;CURREiMT FILE NUMBER 
SFTCNT EQU FILNUM-1 ;SOFT ERRORS PER PASS 
OTHER EQU SrTCNT-7 ;S10RAGE FOR UNIT NOT SEL. 
J ^4.^ 4:^^ %:^*i^t**^* 4*************^ ************* 
CMND EQU OTHER-? I /CURRENT CTU COMMAND: ♦ 
.44.4444***4********************************* 

;M0VE tape 
;FuRa'AhO 
;FAST 
/RECORD 

/SELECT LEFT UNIT 
/GAP GENERATE 

/LIGHT FOR RIGHT UNIT 

/LIGHT FOR LEFT UNIT 

.4**********************4***************** 

; INPDEV, OUTDEV, BXSTAT - 1/D DEVICES * 

,444****4********************************* 

/LEFT CARTRIDGE TAPE UNIT 
/RIGHT CARTRIDGE TAPE UNIT 

/Display 

/PRINTER 

/ALTERNATE I/O 

/DATA COMM 

/BUF HELD BY UNSPECIFIED DEV 



RUN 


Egu 


IQ 


FWD 


Egu 


20 


fST 


Egu 


40 


RFC 


Egu 


100 


USL 


EQU 


2og 


GEN 


EQU 


400 


ANR 


Egu 


1000 


ANL 


EQU 


2000 



LFTCTU 


Egu 


10 


RGTCTU 


Egu 


20 


DISPLY 


Egu 


40 


PRINTR 


EQU 


100 


ALT 10 


Egu 


200 


OATCOM 


EQU 


400 


BUFBSY 


Egu 


2000 



13255-90003 
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TEM 


LOC OBJECT 


::ssss; 


ss== =====«==== 


772 


FF54 


77 i 


FF53 






774 


FF52 






77b 


0020 






7 7b 


FF51 






7 77 


FF50 






7 7 B 


0000 






779 


OOOD 






7 80 


0000 






7BI 


FF4F 






7B2 


0000 






783 


0000 






7«4 


FF4E 






ISb 


Ff'4D 






786 


FF4C 






787 


FF4B 






7 88 


FF4A 






789 


FF49 






790 


FF48 






791 


FF47 






792 


FF46 






793 


FF3D 






794 


003D 






795 


FF3C 






790 


FF3B 






79 7 


0000 






798 


0000 






799 


0000 






800 


FFDB 






801 


FFDA 






802 


FFU9 






803 


FF08 






804 


FFD7 






805 


FFD5 







CODE SOURCE STATEMENTS 



PAGE 21 



SCNCNT 
CTBLNK 
CTBLTN! 
CTBDLY 
HOLCNT 
IPSTAL 

; I/O V 

. 3»; ;»i % j|t ♦ j»; 

mcERP 



INPDEV 

OUTUtV 
lOCPPT 
iOSTA3 
iOSTA2 
lOSTAl 
lOSTAO 
XF8L1M 
CVPLIM 
B2DBUF 
b2DBFL 
b2DPiF< 
B2UEND 



EQU CMwD-1 

EgU SCNCNT-1 

EgU CT6LN:K-1 

EQU 40Q 

EQU CTBliTM-l 

EQU HOLCNT-l 

ARIBLbS * 

EQU i'PSTAL-1 



PEH CTU SCAN 
EJECT LIGHTS 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

Eyu 

EQU 
EQU 
EQU 
EQU 
EQU 



iOCERR-1 
INPDEV-l 
OUTDEV-1 
lOCDPT-1 
iOSTA3-l 
iOSTA2-l 
inSTAl-l 
IOSTAO-1 
XFRLiM-l 
CMPLlM-9 
B2DBUF-B 
B2DBUF-1 
B2I)PTH-1 



;NUM. UF KBSCAN 
; BLINK MASK FOR 
; BLINK TIMER 
JBLINK DELAY 
;HOLE COUNTER 
;TAPt. STALL COUNTER 



;I/0 FRPUR FLAG 
= NO ERROR 
-1 = ERROR OCCURRED 

; CURRENT INPUT OtVICE 
; CURRENT OUTPUT DEvICE 
; DEVICE FLAG POINTER 

; DEVICE STATUS B)fTE 3 , 

; DEVICE STATUS BYTE 2 

; DEVICE STATUS BYTE i 

; DEVICE NUMBER FOP STATUS 

; TRANSFER LIMIT 

;CON*PARE LIMIT 

;BIN TO DECIMAL CONV BUFFER 
ASE ;lSB part OF "B2DBUF'' 

;R2DBUF "GET" POiNTEt^ (I SB) 
;B2DBUF end POINTER 



I/O CONTROL VARIABLES 



iOCDEV 
iOCOuT 
IOC T IMP 
lOCTlP 
XOCMND 
iOCCNT 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



PARMl 
PARM2 
PARM3 
PARM4 
PARM5 
PARM6 



; DEVICE FLAG 

;OuTpnr DEVICE ACCU^^ULATOR 

; INPUT DEVICE ACCUMULATOR 

;CUMMAND MODIFIER FLAG 

; COMMA i^D TiPE FLAG 

;DATA COUNT (2 BnES) 



13255- 


■90003 




>=££=;=: = 


ite;m 


LOC 




=£S=SS 


8U7 


0000 


808 


0000 


809 


0000 


810 


FF3A 


811 


FF39 


B12 


FF38 


81 J 


FF37 


814 


FF36 


815 


FF35 


816 


0000 


817 


0000 


818 


0000 


819 


FF3 3 


820 


FF31 


821 


FF2F 


822 


FF2C 


823 


FF2B 


824 


FF2A 


825 


FF29 


82b 


0000 


827 


0000 


828 


0000 


829 


FF27 


8 30 


FF25 


831 


FF24 


832 


0000 


833 


0000 


834 


FF23 


835 


FF22 


636 


0000 


837 


0000 


838 


0000 


839 


FF21 


840 


FF20 
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OBJECT CODE SOUPCF. SXATFMFNTS 
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; I/O BUFFER INFORMATION STURAGfc; 

f 

BISTAT EQU B2DEND-1 ; STATUS uF FIRST PUFFER 

BITYPE eyU BlSTAT-1 ;TYPE (-l=NOHf% 0=tOF, 1=EVD 

BILE^ egU BlTYPE-1 ;Lt^JGTH OF RfcXOPD 

B2STAT EwU BlLEN-1 ; STATUS OF SLCUNO BUFFER 

B2TYPE EQV B2STAT-1 ;TiPE (-i=NOKfM, ucfcOF, 1=FVD 

B2LEN EyU B2TYPE-1 ;Lt.NGTH OF RECORD 

f 

; STORAGE FOR CARTRIDGE TAPE INTERRUPT ROUTINES 



CTIAUR 
CTISPT 
CTIBPT 
CTICNT 
CTITRL 
CTICSM 
CTISIA 



EQU 
EVU 
EgU 

Egu 
Egu 

EQU 
EQU 



B2LEN-2 

CTiAuR-2 

CTISPT-2 

CTIBPT-3 

CTICNT-1 

CTITHL-1 

CTICSM-1 



? ADDRESS (HAS SEVEKAL USES) 

;POII«TER TO BUFFER SI^TUS 

; POINTER TO BUFFER 

; GENERAL CuUiMTERS 

; RE-READ COUNTER, BOLF CwTH 

; CHECK SUM COUNTER 

;CO^;MAnD SOURCE FI<AG 



; STORAGE FOR READ AND RECORD 



NXTPED EgU 
LSTRED Egu 
oVvPCTU EVU 



SAVINP Egu 
SAVOuT Egu 



CTlSTA-2 
iaTRED-2 
tiSTRED-l 



SWPCTU-1 
SAV^i^iP-l 



PTR INTO BUF FOR NEXT READ 
PTP liMTO BUF FOR READ REPEA 

swap ctu in lugging mode 
-1 = Swap enabled 
= disabled 
"inpoev" save for local rcp 
save uutdev duping lcd read 



DATA FOR FORMAT DISPLAY STORAGE 



ENDCOL EQU 
ENDROw Egu 



SAVOUT-1 PENDING COLUMN AND ROI^ FOR 
ENDCOL-1 ;PRE\/ NON-PROTECTED FIELD 



ITEM 



LOC 



13255-90003 Hev AUG-01-76 
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842 


0000 


843 


oooo 


B44 


0000 


845 


FE80 


846 


0000 


847 


FE/F 


848 


0000 


849 


0080 


850 


0040 


851 


0000 


852 


OOOO 


853 


0000 


854 


FE7D 


855 


FE7B 


856 


FE7 9 


85 7 


FE7 8 


858 


0000 


859 


0000 


B60 


FE7 7 


861 


0000 


862 


0000 


863 


0000 



EXTENDED MAIN CODE BAM AREA 



XTHASP EQIJ 

DEVFLG EQU 
;♦¥♦♦♦*♦♦♦♦ 
CTUIN EQU 
ALTIiNi EQU 

; PRINTEH V 

;*♦**♦ *4;4i*^ 
PTHBbG EQU 
PTHSfc'T EgU 
PTHBt^T EgU 
PTHAriT Evil 



177200Q 

XTRASP-1 

20UQ 
lOOQ 

ARIABLES 

DEvFLG-2 
PTRBBG-2 
PTftSPT-2 
PTRBPT-I 



+ *+■ 



4t;tr ♦ + ♦♦♦♦*♦**♦♦♦♦*♦ 

DEVICE PRESENT FLAG 

CTD CODE PRESENT 
ALTERNATE I/O PRESEwT 



P'JRFLG EC/U PThABT-1 



START lib PRINTER riUEFLR 

LOAD PDiMTEH 

UN LOAD POif^TER 

POINTER ERRUP FLAG 
= 0, NO PRUmTEF ERROR 
= -1, PRINT ERROR OCCURRED 
;PRTf.TE^^ TxPE flag 
= 0, NO PHINiEh 
= 1, PARALLEL INTERFACE 
= 2, RS-232 IMIERFACE 



13255" 


90003 


sssss^ 


s=s=ss 


ITEM 


LOC 


s=zs=:: 


====== 


865 


0000 


866 


0000 


867 


0000 


868 


0000 


869 


0000 


8 70 


0000 


871 


2800 


872 


2802 


873 


2805 


874 


2808 


875 


280B 


876 


280E 


877 


2811 


878 


2814 


879 


2817 


880 


oouo 


881 


0000 


882 


0000 


8B3 


281 A 


884 


281D 


885 


2820 


886 


2823 


887 


2826 


888 


2829 


889 


282C 


890 


oooo 


891 


0000 


892 


0000 


893 


282F 


894 


2832 


895 


2835 


896 


2837 


897 


283A 


898 


283D 
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OBJECT CODE SOURCE STATEMENTS 

ENTRY VECTORS TO I/O ROUTINES ♦ 

KEYBOARD INITIATED FUNCTIONS 



PAGE 24 






iOORG 

lOCKEY 

REDKEY 

CTLRED 

RECKEY 

SELKEY 

TSTCTU 

CONDTN 

RSTCTU 



EQU 

Eyu 
Eyu 
Eyu 
Egu 

Egu 
Egu 



24000Q 

IOURG+2 

IOCKEY+3 

REDKEY+3 

CTLRED+3 

HECKEY+3 

SELKEY+3 

TSTCTUt3 

CONDTN+3 



START OF I/O CODE 
I/O CONTROL KEY 
READ KEY 

CONTROL READ KEY 
RECORD KEif 
SELECT KEY 
CTU SELF-TEST 
CONDITION CARTRIDGE 
SOFT RESET FOR CTU 



TAPES 



EXTERNALLY INITIATED FUNCTIONS 



lOCNTL Egu 

losTGo Egu 

lODNGO Egu 
iORDGO FgU 
RCRDGO Egu 
BNRYGO Egu 
CTDCDP Egu 

. ¥ 4 ]|i «; j|( :|c Jic 4e t 

; INTERNAL 

CTMON Egu 
PTTPLN Egu 

DoocTi Egu 

RDABRT Egu 
BSYCiiK Egu 
CTINTR Egu 



KSTCTUt3 
I0CNTLf3 
IOSTGO+3 
lODNGO+3 
lORDGO+3 
RCRDGO+3 
BNRYGO+3 
* ♦ ♦ *. f ♦ ♦ t * ♦ * 
ROUTINES * 

CTDCDP+3 

CTMON+3 

PTTPLN+3 

i)O0CTI-f2 

RDABRT+3 

BSYCHKt3 



;I/0 CONTROL ESCAPE SEgUENCE 

;SEND DEVICE STATUS 

;SEND COMPLETION CODE 

fSEND 1/0 RECORD 

; START REMOTE RECORD FUNCTIO 

;SEMD BINARY DATA 

;StND BINARY FILE 



; MONITOR CARTRIDGE DRIVES 
;PUT TOP LINE ONTO I/O DEV'S 
/INITIAL CTU INTERKUfT VECTO 
; ABORT USER INITIATED READ 
?WAIT UNTIL TAPE I/O DONE 
;CTU INTERRUPT ROUTINE 



13255-90003 
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ITEM 



LOC 



OBJECT CODE SOURCE STATEMENTS 
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900 
901 
902 
903 
904 
905 
900 
90/ 
908 
909 
910 
911 
912 
913 
914 
915 
91b 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 



0000 
0000 
0000 
0000 
OOUO 
0000 
1 
0002 
000 3 
0005 
0008 
0008 
0008 
0008 
0009 
0010 
0010 
0010 
0010 
OOll 
0012 
0014 
0017 
0018 
0018 
0018 
0018 
0019 
001 A 
OOlC 
00 IF 
0020 
0020 
0020 
0020 
0021 
00^3 
0026 
0028 
0028 
0028 
0028 
0029 
002A 
002C 
002F 



50 
00 
F3 
3E 
C3 



E9 



F5 
B7 
3fc 
C3 



F5 
C5 
3E 

a 



F5 
3E 
C3 



F5 

E5 
3£ 
C3 



83 

B4 



32 

EB 



33 

A4 



34 
34 



35 

AD 



; TERMINAL 

OHG 

BEGII\» EQU 
DB 
DB 
lU 

?^V1 
00 JMP 

; FIRMVvAHE 
;♦♦*♦♦-♦♦*** 
PQHL 
ORG 

; TOP PLANE 

PUSli 
OHA 
MVl 
JMP 

ORG 

;*♦♦****♦*# 

; TlhER I Ml 

;♦¥♦*♦♦*¥*¥ 

PUSH 

PUSH 

MVl 

07 JMP 

ORG 

; DATA COMH 

PUSH 
MVI 
J NIP 
ORG 

; I/O DEVIC 

PUSH 
PUSH 

15 JMP 

ORG 



START-UP 

♦ j|t 4 :^ :«t jf ;|c ;»; * 
OQ 

$ 
VERSN 

BEGIN/25 

A.SETPDM 
GO 

♦ ♦ + ■*♦♦*■♦:♦ 

IImVOKED I 

5|t 4 ♦ ♦ ♦ 4t ^ :#c 3»t 

BEGIN+20 
f ♦ ♦ 41 ♦ 4. ♦ ♦ ♦ 

INTERPUP 

PSvv 

A 

A,T*WO 

INTRPT 

BEGIN+30 

3f 4 * ;f ))t 4t * ijf 

ERRUPT * 

B 

A, THREE 

BEGlNf40 

INTERRUP 

PSW 

A, FOUR 

DCMINT 

BEGlN+50 

:J: 4: ♦ 4: ♦ :|; 5)t ;»; ))c 

E INTERRU 

PS»^ 

H 

A, FIVE 

lOINTR 

BEGI^i + 60 



;PUM PRESENT FLAGS 
6 ; (= 1^0 V u,B; NOP) 
; DISABLE INTERRUPTS 

+TMIEN+TMRON 

;G0 TO START UP ROUTINE 

♦ * ♦ ♦ 1 1 *; ♦ ♦ * 

NTEPRUPT ♦ 

♦ ♦ ♦ ♦ 4 ♦ * ♦ ♦ * 

;nSE AS PCHL SUBHOUTIKE CALL 
Q 

♦ »: jf ♦ jf ♦ :f 

T 20B ♦ 

jC ♦ ♦ * ♦ ♦ ♦ 

;SAVE A-REGISTER ArtP FLAGS 

;CLEAR C-FLAG 

;SET liMTERRUPT CODE 

; HANDLE UNKNOWN INTERRUPTS 



Q 



SAVE A-REGISTER, FLAGS 
;AiND REGISTER B A^3D C 
SET INTERRUPT CODE 
CONTlNUt, TIMER ROUTIf^E 



V 



Q 
PT 



SAVE A-REGISTER AND FLAGS 
SET INTERRUPT CODE 
CONTINUE INTERRUPT PROCESS 

SAVE A-REG, STATUS 

;AND H,L 
SET INTERRUPT CODE 
CONTINUE I/U ROUTINE 



13255-y0003 
iT£M LOC 
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947 
94d 
94y 

9e.o 

9bl 
952 
9b 3 
954 
955 
95o 
957 
958 
959 
900 
961 
962 



0030 
0030 
0030 
0030 
003t 
00 32 
0034 
00 37 
0038 
0038 
0038 
0038 
0039 
00 3 A 
003C 
003F 



F5 
B7 
3E, 
C3 



F5 
B7 
3E 
C3 



36 



3 7 

E8 



15 



; TOP 

; » * * ♦ 



PLANK INTEHHUPX oOb * 



;SAVE A-HbGlSTER AwD FLAGS 
; CLEAR THE C-FLAG 
;SET INTERRUPT CODti: 
;HANLLh, UNKNUwN INiFKPUP IS 



; ♦ ♦ ♦ ♦ 
; TES 
; ♦ ♦ * * 



PUSh PSrt 

OKA A 

M V I A , 5 1 X 

JMP INXRPT 

OhG bFGTiJ + 7 0w 

T POINT INTcCRKUpT * 

PUSH psw ;savb: a-rfgistfr and flags 

OKA a ;CLFAK THE: C-FlAG 

MVI Ar&FVF.^^ ;Sbl J w TERR U PI CuQt 

JMP iNTRPI ;F:AMULk; ONKt^tOWN iN'lFRRUPTS 

ORG BEGIN+IOOU 



13255-90003 



Hev AuG-01-76 



ITEM 


LOC 


nBJKCl 


CODE 


SOURCE STATEMENTS 


964 


0040 


• 


• 


• 


.^^t*:^:*:**************** 


96b 


0040 


• 


• 


• 


; VECTORS TO MAIM CODE 


966 


0040 


• 


• 


• 


;4!*:^a|£^f*»*****»=r**»^** 


967 


0040 


C3 


DA 


IC 


ZDSPNS:JMP 


DSPMSG 


968 


0043 


C3 


OE 


ID 


JKP 


RSTDSP 


969 


0046 


C3 


62 


12 


JHP 


DCNUM 


97 


0049 


C3 


86 


12 


JHP 


DCPLUS 


971 


004C 


C3 


8B 


12 


JMP 


DCMNUS 


97 2 


004F 


C3 


95 


04 


JHP 


ESCEND 


97 3 


0052 


C3 


17 


10 


JMP 


CHKLIM 


974 


0055 


C3 


70 


10 


JMP 


CLBLXF 


975 


0058 


C3 


CA 


16 


JMP 


SBLXFO 


976 


0058 


C3 


CD 


16 


JHP 


SBLXFA 


97 7 


005E 


C3 


63 


17 


JMP 


STRTBD 


97 8 


0061 


C3 


27 


ID 


JMP 


CUHPH 


979 


0064 


C3 


07 


11 


JMP 


CUHPHO 


980 


0067 


C3 


OA 


15 


JHP 


t-RECNT 


981 


006A 


C3 


13 


06 


JMP 


PTBLK 


98 2 


006D 


C3 


3C 


IC 


JMP 


CT.EARL 


98 3 


0070 


C3 


8F 


10 


JMP 


CLEARS 


984 


00 7 3 


C3 


FA 


14 


JMP 


FNDTB2 


985 


0076 


C3 


ID 


12 


JHP 


SOrERM 


980 


007 9 


C3 


F6 


16 


JMP 


SDTRMl 


987 


007C 


C3 


CI 


17 


JMP 


XPllTDC 


98 8 


007F 


C3 


8C 


OD 


JMP 


TRMT3T 


989 


0082 


C3 


30 


03 


JMP 


CHiMlO 


990 


0085 


C3 


93 


25 


JMP 


KUTDO 


991 


0088 


C3 


2C 


24 


JMP 


GETDSP 


992 


008B 


C3 


6F 


OA 


JMP 


LNEEEO 


993 


008H: 


C3 


58 


23 


JMP 


EXPAND 


994 


0091 


C3 


87 


OB 


JMP 


NXTCHR 


995 


0094 


Ci 


FC 


04 


JMP 


GETDCM 


99t) 


0097 


Ci 


f:4 


OA 


JMP 


MLKSCO 


997 


009A 


C3 


B9 


OA 


JMP 


MLKOFO 


998 


009D 


C3 


54 


12 


JMP 


HANGUO 


999 


OOAO 


27 


OF 


» 


Da 


BUFMSG 


1000 


00A2 


C3 


99 


12 


JMP 


DCIEST 


1001 


00A5 


C3 


93 


15 


JMP 


lORMGO 


1002 


00A8 


C3 


2E 


08 


JMP 


BN2DEC 


1003 


OOAP 


C3 


ID 


03 


JMP 


BN2DE0 


1004 


OOAE 


C3 


A 4 


06 


JMP 


RCADRA 


1005 


OOBl 


C3 


59 


10 


JMP 


GTMODE 



PAGE 27 

ROirriNEs ♦ 

4t*!jt4:t ****** 

; DISPLAY MESSAGE 

;RESAORE NORMAL DISPLAY 

; ACCUMULATE DIGIT AMD SlQh 

;FOR PARAMETERIZED ESCAPE 

; SEQUENCES 
; TERMINATE ESCAPE SEQUENCE 



KEYBOARD INITIATED BLK XFR 

SI ART BLOCK RECORD 

HOME CURSOR (-XMIT ONLY) 

CURSOR HOME DOWN 

CHECK NUMBER OF FREE BLUCKS 

RELEASE BL.OCKS FROM DISPLAY 

CLEAR LINE 

CLEAR DISPLAY FROM CURSUR 

St/T BIT •M (B-REG = N) 

SEND TERi^ilNATORS 

SEND TERMINATOR ONLY 

TRANSMIT CHARACTER IN A-REG 

TERMINAL SELF-TESl 

EXECUTE CHARACTER FUNCTION 

INI I FOR DISPLAii GET 

GET DISPLAY BiTE 

no LINE FEED 

EXPAND DISPLAY CONTROL CHAR 

GET NEXT DISPLAY CHARACTER 

PROCESS DATA COMM iNPuT 

LOCATE FIRST UNLOCKED RUia/ 

TURN OFF MEMOHY LOCK 

HANG TERMINAL ON FATAL ERRO 

BuFFEH OVERFLOW MESSAGE 

DATA COMM SELF-TFST 

EXECUTE CODE FROM OPTION RO 

CONVERT BINARY 10 DECIMAL 

CONVERT SINGLE BYTE TO DEC 

LOCATE CURSOR LOCATION 

CHECK FOR PAGE MODE 



13255-90003 
ITEM LOC 



Rev AUG-01 
OBJECT CODE 



1007 


00B4 


. 


• 


• 


1008 


00B4 


• 


• 


• 


1009 


00B4 


• 


• 


• 


1010 


00B4 


• 


• 


• 


1011 


0064 


D3 


70 


• 


1012 


00B6 


32 


F5 


FF 


1013 


00B9 


31 


60 


91 


1014 


OOBC 


3A 


CD 


FF 


1015 


OOBF 


F£ 


C3 


• 


1016 


ooci 


• 


• 


• 


1017 


ooci 


C2 


F4 


00 


1018 


00C4 


• 


• 


• 


1019 


00C4 


3A 


F8 


FF 


1020 


0OC7 


EO 


04 


• 


1021 


00C9 


C2 


F4 


00 


1022 


oocc 


21 


DO 


FF 


1023 


OOCF 


B6 


• 


• 


1024 


OODO 


CA 


D8 


00 


1025 


00D3 


FE 


32 


• 


1026 


0005 


• 


• 


• 


1027 


00U5 


C2 


F4 


00 


1028 


0OD8 


• 


« 


• 


1029 


0008 


36 


32 


• 


1030 


OODA 


• 


• 


« 


1031 


OODA 


• 


• 


• 


1032 


OODA 


• 


• 


• 


1033 


OODA 


• 


• 


• 


1034 


OODA 


32 


6E 


FF 


1035 


OODD 


3E 


07 


« 


1036 


OODF 


Q^ 


ng 


^8 


1037 


00E2 


3E 


02 


• 


1038 


ooe4 


CD 


4D 


12 


1039 


00 E 7 


21 


17 


28 


1040 


OOEA 


CD 


93 


15 


1041 


00 ED 


CD 


OE 


ID 


1042 


OOFO 


FB 


• 


• 


1043 


OOFl 


C3 


20 


02 



-76 

SOUPCE STATEMENTS 

; TERMINAL HESLT - ST 

GO EQU $ 

OUT PROCSR 
STA PRCCTL 






PAGF 28 



LXI 
LDA 
CPI 



SP, STACK 

ECONTF 

JMP 



ART UP TERMINAL * 

;SET INITIAL PROCESSOR STATE 
;SET PROCESSOR STATE 
?S£T STACK POINTER 



JNZ INIT 
LDA CMFLGS 



ANl 

JNZ 

LXI 

ORA 

JZ 

CPI 



FRCRST 

INIT 

H,RSTTMR 

M 

GOOlO 

SFTDLY 



JNZ 

GOOlO Egu 

MVI 

; DO SOFT RE 



GOl 



EQU 

STA 

MVI 

CAL^ 

MVI 

CALL 

LXI 

CALL 

CALL 

EI 

JMP 



INIT 

$ 

M, SFTDLY 

if**** 

SET ♦ 

*♦♦♦♦ 

$ 

DFLGS 

ArRSETKB 

Z^BCTL 

A,hStTDC 

DCMCn 

H,RSTCTU 

lORMGO 

RSTDSP 

START 



;FIPST TURN ON? 

;YfcS - INITIALIZE TERMINAL 

;N0 - GET COMMON FLAGS 

; FORCE FULL RESET? 

;YES - INITIALIZE TERMINAL 

;N0 - GET SOFT RESET TIMER 

;FULL RESET ACTIVE? 

;N0 - START SOFT RESET 

; STILL IN SOFT RESET START? 

(CAUSED BY CONTACT BOUNCE) 
;N0 - DO FULL RESET 
;YES - RESTART SOFT RESET 
;N0 - SET 0.5 SEC TIME OUT 



; ENTRY FOR SOFT RESET 
;CiiEAR DATA TRANSFER FLAGS 

; RESET THE KEYBOARD 

; RESET THE DATA COMM 
/RESET CARTRDIGE TAPES 
;IF CTU CODE PRESENT 
/RESTORE NORMAL DISPLAY 
/ENABLE INTERRUPTS 
/RESTART THE WAIT LOOP 



13255-90003 



HEM 



LUC 



OBJtCT CODE SOUPCK STAlKMb^NTS 



Hev AUG-01-76 
FAOE 29 



1045 


00F4 


• 




• 


104b 


00F4 


• 




• 


1047 


00F4 


• 




• 


1048 


001-4 


• 




• 


1049 


00F4 


AF 




• 


1050 


OOF 5 


32 


CD 


FF 


1051 


OOF 8 


• 




• 


105 2 


00F8 


21 


00 


91 


1053 


OOFB 


• 




• 


1054 


OOtfi 


7 7 




• 


1055 


OOFC 


2C 




• 


1056 


OOFD 


C2 


FB 


00 


105 7 


otoo 


• 




• 


105 b 


oiuo 


• 




• 


1059 


01 00 


• 




. 


lObO 


oioo 


5D 




• 


1061 


0101 


2o 


FC 


a 


10b2 


0103 


• 




• 


10b 3 


0103 


CO 


F^ 


10 


1064 


0106 


BC 




• 


1065 


01 0-7 


C2 


03 


01 


1066 


010 A 


• 




• 


1067 


OlOA 


, 




• 


106d 


OlOA 


• 




• 


1069 


OlOA 


21 


FF 


CF 


10 70 


OlOD 


22 


8B 


FF 


1071 


Olio 


Ob 


BO 


• 


10 72 


0112 


CD 


BO 


04 


107 3 


0115 


22 


8D 


FF 


107 4 


0U8 


• 


• 


• 


1075 


0118 


• 


• 


• 


107 6 


OllB 


• 


• 


, 


1077 


0118 


21 


FF 


FB 


107 8 


OllB 


2 2 


Aa 


Fr 


1079 


OllF 


06 


DO 


• 


1080 


0120 


CD 


HO 


04 


1081 


0123 


22 


AA 


FF 



INIT - DO COMPLETF Tt.PHlNAL IMITI ALJ ZAITUN * 

IfilT Egu $ 

XHA A ;CLFAR TO ZFRtl 

SIA fcCUNTF /CLEAR "J^ie" TU FOHCE FULL 

; kFSFt 

LXT H^FSIHAM jSi.1 FIRST AuDHFbS 

iNioio egu $ 

MOV M,A ;SET BXTE fO ZERO 

INK L ;ALL Bi^TES DONE? 

JnZ IMOIO ;NU - CLhAF iMtXT BVTE 

CLFAH SLOa ham AREA 

MOV t,,L ;SE1 F = FOR 256 B\TES 

MVl H,10BUFl/25b ;SET SiAKT ADDHFbS 

IN 1020 Eyll $ 

CALL CLKALl ;CLEAR A 256 B^TE bFCTlQN 

CMP H ;ALL sec i JONS CLEAHFD? 

JnZ J.NI020 ;NU - COImTINUF CLFARING 

; locate NON-DISPLAY SPACE * 
• 3(t**j|c + 4.4.**4***** ♦♦♦*%*♦♦♦♦♦♦ 

LXl H,BFSPCE ;SET UPPER BOUiMDARY ADDRESS 

;iiF NPiM-UloPLAJi BUFFER ARE 
;SET B 70 MSB OF LOWER LlMiT 



SHLfi 

CALL 
ShLD 



BUFEND 
b,LWBUF 
F^:DRAM 
BUt-BGN 



; STORE BUFFER STAR! ADDRESS 



LOCATE DISPLAY SPACE 



LXI 


h,DSPHM 


SHLU 


DSPEND 


MvT 


H,L^DSP 


Call 


FNDRAM 


ShLD 


DSPBGN 



;SET UPPER BOUNDAPi' ADDRESS 

;0t DISPLAY AREA 
;SE1 B TO MSB OF LOWER LIMIT 

; STORE DISPLAY START AODkESS 



13255-90003 
ITEM LOC 



Rev AUG-01 
OBJECT CODE 



-7b 

SOURCE STATEMENTS l?AGE 30^^ 

? INITIALIZE PROCESSOR BOARD STATE, KEYBOARD, * 
? AND DATA COMM * 



1U83 


0126 


• 


• 


• 


1U84 


0126 


• 


• 


• 


1085 


0126 


• 


• 


• 


1086 


0126 


• 


• 


• 


1087 


0126 


3E 


83 


• 


1088 


0128 


32 


F5 


FF 


108y 


012B 


3E 


C9 


• 


1090 


012D 


32 


65 


91 


1091 


0130 


32 


68 


91 


1092 


0133 






• 


1093 


0133 






• 


1094 


0133 






• 


1095 


0133 






• 


1096 


0133 






• 


1097 


0133 


CD 


02 


48 


1098 


0136 


CD 


08 


50 


1099 


0139 


CD 


Cb 


04 


1100 


013C 


CD 


OB 


50 


1101 


013F 


DA 


54 


12 


1102 


0142 


• 


• 


• 


1103 


0142 


« 


• 


• 


1104 


0142 


• 


• 


• 


1105 


0142 


21 


02 


01 


1106 


0145 


22 


4D 


FF 


1107 


0148 


2A 


35 


28 


1108 


014B 


22 


El 


FF 


1109 


014E 


3E 


C3 


• 


1110 


0150 


32 


EO 


FF 


nil 


0153 


« 


• 


• 


1112 


0153 


• 


• 


• 


1113 


0153 


• 


• 


• 


1114 


0153 


21 


02 


60 


1115 


0156 


CD 


93 


15 


1116 


0159 


3E 


00 


• 


1117 


015B 


DA 


66 


01 


1118 


015E 


CD 


CB 


04 


1119 


0161 


CD 


05 


60 


1120 


0164 


31:; 


40 


■ 


1121 


0166 


• 


• 


• 


1122 


0166 


47 


• 


• 


1123 


0167 


21 


00 


28 


1124 


01 6 A 


CD 


A3 


15 


1125 


016D 


78 


• 


• 


1126 


016E 


C2 


77 


01 


1127 


0171 


F6 


80 


• 


1128 


0173 


21 


FD 


FF 


1129 


0176 


34 


• 


• 


1130 


0177 


• 


• 


• 


1131 


0177 


32 


7F 


FE 



MVI 
ST A 
MVT 
ST A 
STA 



A,SETPOM-fTMIEN + TrtRON 
t^RCCTL ; ENABLE ROM'S AND TIMER 
A, RET ;PUT RETURN CODE INTO 
INTVEC ; INTERRUPT VECTOR AND 
SCNVEC ; DISPLAY SCAN VECTOR 
4t*t*****»** **♦*♦*♦*♦♦ ♦♦♦**♦*♦♦*** 

♦ INTERRUPTS ARE ENABLED Bi THE ♦ 
^ DISPLAY ROUTINES USED DURING * 

♦ lNiTlALlZATIO»^i OF SOFT KEYS ♦ 



CALL ZINIKB 

CALL ZINIDC 

CALL GETBUF 

CALL ZIN2DC 

JC HANGUO 

; SET DEFAULT I/O CONFIGURATION * 



;SET JUMPERS AND DC SWITCHES 
; FETCH BUFFER REgUIREN'ENTS 
; ALLOCATE BUFFER SPACF 
;COMPLETE DATA COMM IWIT 
.'(PROCESS ERROR IF ANY) 



LXl 

SHLD 

LHLD 

SHLD 

MVI 

STA 



H,l*25t>-»-2 

OUTDEV 

DOOCTI 

CTIVEC 

ArJMP 

CTIJMP 



; OUTPUT = RIGHT CTU (2) 

; INPUT = LEFT CTU (1) 

SET INITIAL CARTRIDGE TAPE 

INTERRUPT VECTOR 
SET JUMP COMMAND FOR 

;CTU INTERRUPT VECTOR 



; IDENTIFY OPTION 1/U INCLUDED IN TERMINAL * 



INIUO 



INI130 



LAI 

CALL 

MVI 

JC 

CALL 

CALL 

MVI 

Egu 

MOV 

LXI 

CALL 

MOV 

JNZ 

OKI 

LXI 

INR 

EQU 

STA 



H,ZINIAL 

lORMGO 

A,0 

INIllO 

GETBUF 

ZIN2AL 

A, ALT IN 

$ 

B,A 

H,IOORG 

lORMGl 

A,B 

INI130 

CTUIN 

H,TRMTYP 

M 

$ 

DEVFLG 



INITIALIZE ALTERNATE I/O 

;DEVICE 

;CSET FOR NO ALTERNATE I/O 
;BYPASS INIT if NO ALT I/O 

?ELSE, ALLOCATED BUFFER 

;AND COMINUE INIT 
;SET ALT I/O PRESENT BIT 

;SAVE ALTERNATE I/O STATUS 
;SET I/O START ADDRESS 
JDOES I/O CODE EXIST? 

;(GET CURRENT I/O OPTIONS) 
;N0 - DON'T SET I/O BIT 
?ELS£ SET CTU PRESENT BIT 
;SbT TERM TYPE TO INDICATE 

;I/0 CODE INCLUDED 

;SET I/O OPTIONS FLAG 



ITEM LUC OfcJjECr CODF 



13255-90003 Hev AUG-01-76 

SOURCK STATEMENTS PACiE 31 



1133 


017 A 


• 


• < 




• ^:^.^:tl^t***J(l^****^1^***** 


1134 


017A 


• 


« 1 




; GF^EHATE f 


'^KFE BLOCKS 


n3b 


017A 


, 


• 4 


t 


.i^t4c;^4(3|Lt««^4c43*^4'f4c«44(f4 


1136 


017A 


2 A 


A8 FF 


LHLD 


DSPFND 


113/ 


01 7D 


U 


Fl FF 


LXI 


D,l-bLKSZ 


1138 


oiao 


19 






DAD 


D 


1139 


0181 


10 






MUV 


A,L 


1140 


0182 


F6 


OF ! 




OKI 


BLKSM 


1141 


0184 


6F 






MDV 


L,A 


1142 


0185 


2B 






DCX 


H 


1143 


0186 


36 


00 , 




MVI 


1^,0 


1144 


0188 


2B 






DCX 


H 


1145 


0189 


EB 






XCHG 




1140 


018A 


2A 


AA F 


^F 


hhhD 


USPBGN 


114/ 


018D 


73 






MUV 


n,E 


1148 


018E 


23 






INX 


H 


1149 


018F 


12 






MDV 


M,D 


1150 


0190 


EB 






XCHG 




U51 


0191 


13 






INX 


D 


1152 


0192 


• 






i 




1153 


0192 


28 






PCX 


H 


1154 


0193 


22 


AC ? 


"¥ 


SHLD 


FRBLKS 


1155 


0196 


• 






« 





1156 


0196 


06 


Ofc: , 




SUI 


BLKSZ-2 


1157 


0198 


44 






MUV 


B,H 


1158 


0199 


6F 






MUV 


L,A 



LIST FOR DISPLAY ♦ 

♦ ♦*♦ ♦*♦♦♦*•♦!♦♦*♦♦*♦♦ 

; COMPUTE ADDRESS OF HIGHEST 
? ADDRESSED DISPLAK blOCK 

; COMPUTE ADDRESS OF LSB PART 
?0F PREVIOUS LINE POINTER 
;1M HIGHEST ADDRESSED 
; DISPLAY BLOCK 

;SET ir 10 ZbPQ TO INDICATE 

;end of free list 
;set next block lijvk of 
; lowes i addressed display 
; block tu point to n'sb 
;part of next linf link in 
; highest block 

;SviiAP HIGH AND LOW ADDRESSES 
; ADJUST LO*^ ADdR TO LOW LIMI 

tOR LINKING DISPLAY BLOCKS 
;SET FREE BLOCKS HcAD TO LSB 

;PART OF NEXT LINE POINTER 

IN HIGHEST BLOCK 
;SET B,L TO ADDRESS OF MSB 

;PART OF NEXT BLOCK POIHTE 

;IN HIGHESI DISPLAY BLOCK 



13255-90003 Rev AUG-01 
ITEM LOC OBJECT CODE 
019A 






1160 
1161 
llbi 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
H7d 
1179 
1180 
1181 
11B2 
1183 
1184 
1185 



019 A 
019A 
019A 
019A 
019A 
019A 
019A 
019A 
019A 
019A 
019B 
019D 
OlAO 
OlAl 
OlAl 
01A2 
01 A3 
OtA4 
01A6 
01A7 
01A8 
01A9 
OlAA 
OlAB 
OlAE 



70 
D6 
02 
05 

70 
26 
7/ 
06 
6F 
60 
93 
78 
9A 
02 



02 
Al 



OE 



-76 

SOURCE STATEMENTS ^AGE 32 

CHAIN FREE BLOCKS ♦ 

B,A = ADOHESS OF UPPER BYTE IN NEXT LOWER BLOCK 
D,E = LOWER LIMIT OF DISPLAY AREA 
H,L = ADDRESS OF MSB PART OF NEXT BLOCK LINK 
IN CURRENT BLOCK 



9A 01 



XNI210 EV>U $ 

MUV A,L 

SUI 2 

JNC INI220 

OCR B 

INI220 EQU $ 

MOV M,B 

OCX « 

MOV M,A 

SUI BLKSZ-2 

MOV L,A 

MOV H,B 

SUB fc 

MOV A , B 

SBB D 

JNC IN1210 



;CON<PUTE ADDRESS OF UPPERMOS 
;BYTE IN NEXT LOWER BLOCK 



;L1NK CURRENT BLOCK TO NEXT 
; LOWER BLOCK 

;SET H,L TO ADDRESS OF MSB 
JPART OF NEXT BLOCK LINK I 
;NEXT LOInER BLOCK 

;COMPARE AGAINST LOWER LIMIT 

;D1SPLAY AREA EXHAUSTED? 

;N0 - CONTINUE LlNKIi^iC BLOCK 

YES - SET UP INITIAL DISPLAY 



ITKM 



LOC 



13255-90003 Hev AUG-01-7f> 

OBJtCT COUt; SOURCfc. STATErtfclNTS 



pagh: 33 



1187 


OlAE 


• 


• 


• f 


1188 


OlAE 


• 


. 


• t 


1189 


OlAE 


• 


• 


• } 


1190 


OlAE 


CD 


CB 


05 


1191 


1 B 1 


2B 


• 


• 


1192 


01B2 


22 


A6 


FF 


1193 


01B5 


3E 


80 


• 


1194 


01B7 


32 


CO 


FF 


1195 


OlBA 


32 


C7 


FF 


119b 


OlBD 


• 


• 


i 


1197 


OIBD 


• 


• 


t 


119B 


OlBD 


• 


• 


• f 


1199 


ulBD 


01 


4t: 


Ffc 


1200 


oico 


21 


DA 


14 


1201 


01C3 


CD 


20 


OB 


1202 


01C6 


OE 


08 




1203 


01C8 


■ 


« 




1204 


OlCft 


• 


• 




120b 


01C8 


• 


• 




120b 


OlCB 


• 


• 


\ I 


1207 


01C8 


3E 


39 




1208 


OICA 


91 


• 




1209 


OlCB 


32 


43 


FE 


1210 


OICE 


• 


• 




1 2 1 1 


OICE 


• 


• 




1212 


OICE 


• 


• 




1213 


OICE 


3E 


78 




1214 


01 DO 


91 


• 




1215 


0101 


21 


40 


F£ 


121b 


0104 


77 


• 




1217 


01D5 


2E 


41 




1218 


01D7 


C5 


• 




1219 


01U8 


CD 


CD 


OF 


1220 


OlOB 


CI 


• 




1221 


OlDC 


OD 


• 




1222 


011)0 


C2 


C8 


01 



SET UP INITIAL SOFT KEYS DISPLAY 

CALL INITDS ;STAHT A NEW DISPLAY LIST 

OCX H ;SET SOFT KEY STAPT ADDRESS 
SHLD SFTK^S ; TO FIRST CHARACTEt^. 

MVI A,CRTOFF ;SET CURRENT AND LAST RGw 
STA CURROW ;T0 CONTROL FOR DISPLAY OF 
ST A LSTRUW 

SET Up KEY OEFINITTONS 

LXI B,USPSrR-l 

LXI ri,ATBLIN ; TRANSFER ATTRIBUTE LINE 

CALL MOVCHR 

MVI CNMFCTK ;SET NUb^BER OF KEYS TO DEFIN 

BUILD ATTRIBUTE LINE 

INI310 EQU $ 

MVI A,ZER0+9 ;COMPUrE FUNCTION KFi NUMBER 

SUB C 

STA USPSTR-AXBLEN+2 

BUILD DEFINITION LINE 

MVI ArSMALLX ;COMpUTE CHAR AFTEH <ESC> 

SUB C ; (LOWER CASE <P>-<w>) 

LXI H,DSPSTR-CHRLOC 

MOV M,A ;SET DATA CHARACTER 

'MVI L,L)SPSTR-ATBLEN-BASE2 

PUSH b ;Tt<AWSF£R SOFT KtY DEFiNiTlO 

CALL XMS2DS ;T0 DISPLAit MEK,ORY 

PUP B 

OCR c ;all keys defined? 

JNZ IN 13 10 ;N'0 - UO NEXT ^Vi 



13255-90003 
ITEM LOC 
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OBJECT CODE 



•76 
SOURCE STATEMENTS 



1224 

1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 



OlEO 
OtEO 
OlEO 
OlEO 
OlEl 
01E4 
01E5 
01E8 
OlEB 
OlEE 
OlEE 
OlEE 
OlEE 
OlFl 
OlFl 
OlFl 
OlFl 
OlFl 
OlFl 
OlFl 
OlFl 
OlFl 
01F4 
01F5 
01F8 
OlFB 
OlFD 
0200 
0200 
0200 
0200 
0200 
0203 
0204 
0207 
0207 
020A 
020C 
020D 
0210 
0212 
0212 
0212 
0215 
0218 
021B 
0210 



AF , 

32 Al 

3D . 

32 AE 

CD 27 

CO 69 



CD CB 05 



3A 
B7 
CA 
3A 
3E 
C3 



3A 

87 

CA 

• 

3 A 

E6 

17 

32 



32 
21 

CD 



00 
02 
01 
12 



3E 02 



77 
6A 
D7 



FF 

FF 
ID 
21 



00 80 



02 
80 

02 



20 85 

• • 
12 02 

• • 
40 85 
IF . 



40 85 



3E C3 
32 CD 



FE 
OF 
IC 

• 
FF 



; * » ♦ ♦ 

; SOF 



T KEYS DONE - SET INITI 
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AL DISPLAY STATE * 
?CLEAP LAST LINE POINTER 



;SET D 
;KEy 
;HOME 

;SAve 



XRA A 

ST A LUNE 

DCP A 

STA DSPTYP 

CALL CURPH 

CALL SWAP 

INITIALIZE FIRST LINE OF D 

CALL INITOS ; START 

INITIALIZE T/O DEVICES ♦ 



PRINTER INITIALIZATION ROUTINE 
CHECK FUR 9866 PRINTER FIRST 



ISPLAY TYPE TO SOFT 

DISPLAY 
THE CURSOR 
SOFT KEY PARAMETERS 

ISPLAY * 

A NEW DISPLAY LIST 



LDA PTRSTl ;GET STATUS FROM 9866 PC A 

ORA A ;IS INTERFACE INSTALLED? 

JZ PTRIIO ;N0 - LOOK FOR RS-232 PRWTR 

LDA PTRCLl ;YES - CLEAR THE PRINTER 

MVl A,l ;SET PRINTER FLAG FOR 

JMP PTR120 ;9866 PRINTER (= U 

RS-232 PRINTER 2 



PTRIIO 



PTR120 



EQU ! 
LDA 
ORA 
JZ 

LDA 
ANI 
RAL 
STA 

MVI 

EOU 

STA 

LXI 

CALL 

MVI 

STA 



PTRST2 ;GET STATUS FROM RS'-2 32 PCA 

A ;TS RS-232 PCA INSTALLED? 

PTR120 ;N0 - SET FOR NO PRINTER 

PTRCF2 ;YES - GET CONFIG. STRAPS 

PTRBD2 ; ISOLATE BAUD AND PARITY 

;ADJUST FOR CONTROL OUTPUT 

PTR0T2 ;SET BOARD TO CONFIGURATION 

A, 2 ;SET FLAG FOR RS-232 PRINTER 



PTRFLG ;SET PRINTER FLAG 

H,TRMRDY ;DISPLAY "TERMINAL READY" 

DSPMSl ; MESSAGE 

A, JMP ;SET JUMP COMMAND FOR 

ECONTF ;CHARACTER FUNCTION VECTOR 



ITEM 


LOC 


OBJ 


ECl 


COD 


=:=::= 5=: = s = ss = s: 


:sr = = 


= 5S: = 


:s = s 


1272 


0220 


* 


• 


• 


127 3 


0220 


• 


• 


• 


1274 


0220 


• 


• 


9 


1275 


0220 


• 


• 


• 


1276 


0220 


CD 


95 


04 


127 7 


0223 


3A 


29 


4B 


127« 


0226 


32 


72 


FF 


12 79 


0229 


CD 


23 


20 


1280 


022C 


3D 


• 


• 


1281 


0?2D 


32 


6C 


FF 



13255-90003 Hev AUG-01-76 
SOURCE vSTATFMENTS i'A^^F 35 

; INiTlALlZP: FLAGS AND RANGE TARbS: ADDHESS * 

STAPX 

;PfcSfcT NORMAL HANGfc: TABLE 
;SET INITIAL ALTERNATE 

;CriAKACTeP SEl 
;CLeAR CURSOR ADVANCE FLAG 
; CLEAR SROW LATCH 
STA SPOWL 



EQU 


$ 


CALL 


ESCEND 


LDA 


FRSALT 


STA 


CHRSET 


CALL 


CRADVl 


DCR 


A 



13255-90003 



ITEM 



LOC 
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1283 
1284 
1285 
12S6 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
130 3 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 



0230 
0230 
0230 
0230 
0230 
0233 
0236 
0236 
0236 
0236 
0236 
0239 
0239 
0239 
0239 
023C 
023E 
0241 
0244 
0246 
0249 
024C 
024F 
0252 
0252 
0252 
0252 
0252 
0254 
0257 
025A 
025C 



WAIT LOOP 



31 

CD 



3A 
E6 
C2 
3A 
E6 
C4 
C2 
CD 
CA 



FE 
C2 
3A 
Eb 
C4 



60 91 
30 05 



CD FC 04 



6F 
08 
5F 
6£ 
10 
42 
74 
05 
74 



OD 
5F 
65 
06 
37 



FF 

02 
FF 

15 

02 
48 
02 



02 
FF 

• 
28 



WTLQUP 

'X' ^ "T* ^ ^ 

; CHEC 

Y 'T* "T* ^ ^ 

vvTLOlO 

• t*t** 
; CHEC 
; ♦♦♦♦♦ 



EQU 

LXI 

CALL 

*♦♦♦♦ 

K F08 

♦ *♦** 
EQU 
CALL 

K FOR 

♦ *♦♦♦ 
LDA 
ANI 
JNZ 
LDA 
ANI 
CtiZ 
JNZ 
CALL 
JZ 



SP, STACK 
GETDCl 

DATA COMM 

♦*♦**♦♦♦♦♦ 
$ 

GETDCM 
f ♦♦^^♦♦♦♦♦* 

KEYBOARD 
t ^ 4^ Y « 41 f * t' « 

MFLGS2 

ESCINP 

WTL020 

DFLGS 

FCTK2D 

GTFCTK 

WTL200 

ZGETKY 

WTL200 



;SET STACK POINTER 
;S£T DISPLAY CURSOR 

♦ it: 4t 4: ♦ ♦ ♦ ♦ 
INPUT ♦ 



IN 



GET DATA COMM II^PUT IF ANY 

PUT ♦ 

♦ ♦*♦♦ 

GET MODE FLAGS 

ESCAPE SEQUENCE LOCK OUT? 

YES - IGNORE KEYBOARD 

NO - GET DATA TRANSFER FLAG 

FUNCTION KEY TO DISPLAY? 

YES - GET FUNCTIOiv. KEY CHAR 

PROCESS IF AVAILABLE 

ANY KEYBOARD INPUT? 

YES - PROCESS IT 



IF KEYBOARD LOCKED, A = CHARACTER HIT, 
UTHERWISt A = 377B 



IF ANY 



CPI CR ;RETURN KEY HIT? 

JNZ WTL020 ;N0 - CHECK CTU & DISPATCHER 

LDA lOFLGS fUSER READ OR FILE READ 

ANI USREAD+FILRED ; PENDING? 

CNZ RDABRT ;YES - ABORT READ KEY 



=:5S£=; 


srs=s3s='=; = s: = 


s=ss 


rass; 


ITEM 


LUC 


OBJECT 


COul 


=:===: =: 




rssss 


s=; = s 


;=;ss: 


1316 


025F 


• 


• 


• 


1317 


025F 


• 


• 


• 


1318 


025P 


• 


• 


• 


1319 


025F 


• 


• 


• 


1320 


025F 


21 


54 


FF 


1321 


0262 


Sb 


■ 


• 


1322 


02t>3 


F2 


36 


02 


1323 


02b6 


it 


OA 


• 


1324 


0268 


CD 


6to 


91 


132e> 


026B 


CD 


8t) 


15 


1326 


02bE 


CD 


29 


04 


1327 


0271 


C3 


3b 


02 



13255-90003 Fev AUG-01-76 
SOURCF STATEMENTS PAGE 37 

; CHECK CTU'S AND PENDING BLOCK TRANSFERS ♦ 

♦ j»i)»c:|t*4:!t:**)»:)|i:(L)»:f3|i*:»;:^*5it3(kf4i*4t**3»:;»i***^*»1t**J|t**** 

? DECREMENT SCAN COUNT 

;n SCANS DONE? 

?N0 - RESTART DO NOTHING LOO 

;YES - RESET SCAN COUNT 

;D0 optional DISPLAY SCAN 

; MONITOR TAPE DRIVES 

; CHECK PENDING BLOCK XFRS 

; PES! ART 00 NOTHING LOOP 



WTL020 EQU 


$ 


LAI 


H,SCNCNT 


DCR 


H 


JP 


wTLOlO 


MVI 


M,10 


CALb 


SCNVEC 


CALL 


lOCTWN 


CALL 


USPTCH 


JMP 


WTLOlO 



13255-90003 



ITEM 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 



LOC 

0274 

0274 

0274 

0274 

0274 

0277 

0278 

027A 

027D 

0280 

0281 

0283 

0286 

0289 

028C 

028C 

028C 

028D 

028E 

028F 

0292 

0294 

0297 

0299 

029A 

029B 

029E 

029F 

02A2 

02A3 

02A6 

02A6 

02A6 

02A6 

02A6 

02A8 

02AB 

02AO 

0280 

02B3 

0286 
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32 
4F 
3E 
CU 
3A 
2F 
E6 
C2 
CD 
C3 



AF 
57 
Bl 
F2 
FE 
F2 
Db 
87 
5F 
21 
19 
CD 
C7 
C3 



FE 
DA 
FE 
D2 
CD 
CC 
C3 



9C FF 



FE 
01 
Fri 



FO 
B9 
F8 
B9 
8C 
06 
30 



16 
FF 



30 . 

8C 02 

14 48 

36 02 



FO 

Al 

A6 

98 



BC 
bD 
30 



02 

02 
19 
14 
02 



KtY HIT - CHECK FOR FUNCTiON KE5f 

WTL200 EgU $ 

STA CHARIN ;SAVE KEYBOARD CHAHACTEH 

MOV C,A ;SAVE THE BYTE IN C-BEGISTER 

MVI A,377Q-SDACOM 

CALL CLRDFL ;CLEAR DATA COMM li^PUT FLAG 

LDA CMFLGS ;GET COMMON FLAGS 

CMA ;BOTH RECEIVE MODE FLAG SE'l 

AM RCVMDE+PEMSEX ;AND REMOTE ENABLED? 

JNZ WTL205 ?N0 - PROCESS KEYBOARD INPUT 

CALL ZBELL ;YfcS - SOUND BELL AND 

JMP WTLOIO ; IGNORE KEY 



WTL205 EQU 
XKA 
MOV 
OR A 
JP 
CPI 
JP 
SUI 
ADD 
MOV 
LXI 
DAD 



$ 
A 

DrA 
C 

WTL300 
FNCLIM 
WTL210 
FNCLWR 
A 

E,k 

H,FMCTAB 
D 
CALL CHAIN i 

RST ;rstjmp 

JMP rtTLOOP 1 
CHECK FOP F1-F8 KEY 



NO - PROCESS 
;(SET A,D = 



KEY 



THE 

0) 
; FUNCTION KEY? 
;M0 - PROCESS ASCII KEY 
; TABLE FUNCTION? 
;N0 - CHECK FOR F1-F8 
/COMPUTE TABLE INDEX 

; COMPUTE TABLE ADDRESS 
; (D = 0) 

;GET THE FUNCTiON ADDRESS 

GO PERFORM FUNCTIO^i 
; RESTART WAIT LOOP 



WTL210 



EQU 

CPI 

JC 

CPI 

JNC 

CALL 

CZ 

JMP 



FICODE 

WTL250 

FSCODE+l 

WTL250 

CHKSFK 

FCTKEY 

WTLOOP 



;IS THE KEY F1-F8? 

;N0 - EXPAND ESCAPE SEQUENCE 

;Nu - EXPAND ESCAPE SEQUENCE 

;SOFT KE^ MODE? 

;N0 - PROCESS FCT KE5( 

; RESTART WAIT LOOP 



132S)5-90003 



ITEM 

1371 
1372 
1373 
1374 
1375 
137b 

137 7 
1378 
1379 
1380 
liBl 
1382 
liBi 
1384 
1385 
1386 

138 7 
1388 
1J89 
1390 
1391 
1392 
1393 
1394 
1395 
139b 
1397 

139 b 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
140b 



LUC 

02B9 
02B9 
02B9 
02B9 
02B9 
02BB 
02BB 
02bE 
02CI 
02C2 
02C4 
02C7 
02C9 
02CC 
02CE 
02D1 
0203 
02 04 
0207 
0208 
0209 
020C 
020C 
020C 
02 0E 

02e;o 

02fc3 
02E.3 
02fe.3 
02l4 
0/t6 
02K9 
02fc9 
02fc;9 
02 KB 
02ED 



OBJECT CODE 



06 IB 



CO 
21 
7E 
F£ 
Ck 
Ft: 
CA 
FE 
CA 
Eo 
BE 
CA 
7 7 
4F 



3b E4 
OE 26 
C3 BB 



35 

OE 
C3 



3b 

OE 



29 

BB 



8E 
43 
RB 



05 
FF 



02 



02 



E4 

9C 

• 

FF 

DC 

FE 

E3 

FO 

E9 

7F 



30 02 



BB 2 



SOURCE STA 

J :([ ;«! :f 3^ :|( 4, ]^ 4 j^ 

; PROCESS 

WTL250 EQU 

MVI 

wTL2bO eyu 

GAL 

LAI 

MUV 

Ct I 

JZ 

CPI 

JZ 

CFI 

JZ 

AIM I 

CMP 
JZ 

MUV 
MUV 
JMP 



WTL270 



wTL2bO 



rtTL290 



TEMENTS 
FUNCIIUM 

♦ *♦*!♦:'♦:»♦ 

s 

CESC 
$ 
L LQCLIO 
rt,CHAR 
ArM 

tNriNCF 
^1L2 7 
STFORl 
WTL2b0 
STF0H2 
WTL290 
177Q 
H 

wTLQOP 
M,A 
C,A 
WTL2bO 
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♦ ♦ * ♦ f * 4; 

KEYS ♦ 
4: ^t ♦ f 4" >l: "^^ 



02 



Egu 

MVI 
MVI 
JMP 

EQU 
OCR 

MVI 

JWP 
Eyu 

MVI 
MVI 
JMP 



IN 



Ki,ESCLWD 
CAMPSND 
aTL2dO 

$ 

M 

CARPARf^ 

WTb2o0 



M,ESCSO 

C,C 

WTL260 



SET ESCAPE AS INPUT CHAR 

PROCESS KEYBOARO iNPUT 
RECALL KEl^BUARD INPUT 



DISPLAY 
YES - EX 
FiMTER FU 
YES - CO 
COi^PLETb 
YES - SE 
WU - MAS 
FUNCTION 
YES - PL 
NO - SEl 



ENHANCE 
PANO IN 
PEIoN M 
\TINUE 

FUREIG 
T ENDIN 
K OUT U 

COMPLE 
START W 

NEW KE 



i^FNT CODE? 

TO AMPERSAND 

ODE CONTROL? 

SFQUE^CE 

N MOOF SET? 

G SEQUENCE 

PPER BIT 

TFO? 

All LOOP 

XBOAhD CHAR 



PEFFORi^^ TriF OESIREf) FUNCTON 



SET <ESC>-<LOwFR CASE 0> AS 
;CURRENT KEYBOARD CHARACTE 
PROCESS Ai-IPERSAND 



;slt to next step COOF 
; Filter right parenthesis 

; process right PARfcNiHESiS 



set <ESC>-<S0> AS CURREuT 

/KEYBOARD CHARACTER 
PROCESS LETTER <C> 



13255-90003 
ITEM LOC 
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1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
141b 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
I42b 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 



02FO 
02F0 
02F0 
02F0 
02F0 
02FO 
02F2 
02F5 
02F8 
02FA 
02FD 
0300 
0303 
304 
0307 
03UA 
030D 
030E 
0310 
0313 
0313 
0313 
0313 
0313 
0316 
0319 
031B 
03 IE 
0321 
0323 
0326 
0328 
032B 
0320 



FE 
DA 
3A 
E6 
CC 
C2 
3 A 
B7 
C2 
3A 
21 
96 
Cb 
CC 



CD 
3A 
Ffc 
C2 
3 A 
Ed 
CA 
2£ 
CD 
3t 
C3 



20 
13 
6E 
10 
76 
13 
01 

13 
CI 
6E 

• 

08 

14 



EF 
9C 
OD 
30 
F3 
04 
30 
01 
B3 
OA 
74 



03 
FF 

19 

03 
FF 

03 
FF 
FF 



48 



05 
FF 

02 
FF 

02 

12 

• 
02 



DISPLAYABLE CHARACTER 
END OF LINE WARNING 



- CHECK FOR APPROACHING 



WTL300 EQU 
CPI 
JC 
LDA 
ANI 
CZ 
JNZ 
LDA 
ORA 
JNZ 
LDA 
LXI 
SUB 
AD I 
CZ 

; PROCESS T 

WTL310 EQU 
CALL 
LDA 
CPI 
JNZ 
LDA 
ANI 
JZ 
MVl 
CALL 
MVI 
JMP 



CTLLIM 

WTL310 

DFLGS 

FCTK2D 

CHKFMS 

WTL310 

ESCFLG 

A 

WTL310 

CUkCOL 

H,RH1MGN 

M 

BELLIM 

ZBELL 

HE KEi FUNC 

f: 3^1 4; :ti 4! ]|( :«( ^ t f t 

$ 
LOCHN 

CHARIN 

CR 

WTLOUP 

MDFLG2 

AUXOLF 

WTLOGP 

L,l 

DELAY 

A,LF 

WTL200 



CONTROL C 
YES - DON 
MO - GET 
PROCESSIN 

; FORMAT/ 
YES - SKI 
NO - GET 
CURRENTLY 
YES - DON 
NO - GEI 
COMPARE T 
CLOSE ENO 

;T0 30UN 
YES - SOU 

♦ ♦ f ♦ * 
ION ♦ 

♦ ♦♦♦♦ 



ODE? 
'T LOOK 
DATA TR 
G FUNCT 
SOFT KE 
P BELL 
ESCAPE 

IN ESC 
•T LOOK 
CURRENT 
KIGHT 
UGH 10 
D BELL? 
ND BELL 



FOR BELL 
ANSFER FLAG 
ION KEY OR 
Y MODE? 
COLUMN CHEC 
SEO FLAG 
APE SEQ? 

FOR BELL 

COLUMN 

MARGIN 
RIGHT MARGI 



;PERFORM LOCAL INPUT ROUTINE 
; RECALL KEiBOAHD INPUT CHAR 
;wAS IT A HE TURN? 
;N0 - RESTART WAIT LOOP 
;YES - GET MODE FLAGS 
;AuTO line feed ENABLED? 
;N0 - RESTART WAIT LOOP 
;YES - DELAY 10 MILLISECONDS 
;TrtEN SEND LINE FEED 

;fake line feed from KEYBOAR 



13255-90003 



Hev AUG-01-76 



ITEM 

144 3 
1444 
144b 
1446 
1447 
1448 
1449 
14S0 
1451 
1452 
1453 
1454 
1455 
1456 
145/ 
1438 

145 9 
14b0 
1461 
1462 
1463 
1464 
1465 
14bt> 
1467 
1468 
1469 
1470 
1471 
1472 
147 3 
1474 
1475 
1476 

147 7 
1478 
1479 
1480 
1481 
1482 

148 3 
1484 
1485 
1486 
1487 
148 8 



LQC 

0330 
0330 
0330 
0330 
0330 
0330 
0330 
0330 
0330 
0330 
0330 
0330 
O330 
0330 
0330 
0330 
3 30 
0330 
0333 
0334 
0336 
0339 
033A 
033C 
033D 
0340 
0341 
0342 
0342 
0342 
0344 
0347 
0349 
034C 
034D 
034F 
0350 
0350 
0353 
0354 
0355 
0358 
0359 
035A 
035C 
035F 
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21 

79 

FE 
C2 
IE 
F6 
Bt 
CA 
77 
C9 



FE 
CA 
FE 
CA 
7E 
F6 
7 7 

21 

46 
05 
FA 
7 
79 
FE 
FA 



6F 

• 

OA 

42 

40 

50 



OD 

13 

50 

40 



67 



B9 



20 
AB 



CHINT - INTERPRET IwPUT ChAHACTER 

FlvTRY; C = IJ^PUT CHAHACTER 

EXIT ; Z - FAST STORE USED 

NZ - FULL PHOCESSiMG USEP 
A-E,L DESTROY ED 



THY FAST STORE FlHSl 



CHINTO 



CHIOOO 



CHiNT 



3 



egu 

LXI 
MOV 
CPI 
Jf^Z 

MOV 

OR I 

CMP 

JZ 

MOV 

RET 

FQU 

CPI 

vTZ 

CPI 

JZ 

MOV 

OKI 

MOV 

Ego 

LXI 

MOV 

OCR 

JM 

MDV 

WOV 

CPI 

JM 



H,MFLGS2 

A,C 

LF 

CHIOOO 

A,M 

wRPFLG 

M 

CHI NT 

M,A 



$ 

CP 

CHINTl 

UC3 

CHI NT 

A,M 

wRPFLG 

M,A 

$ 

H,CRAFLG 

B,M 

B 

CHllOO 

M,B 

A,C 

CTLLIM 

CHI050 



ENTRY FOR I/O INPUT 
SET H,L TO MOUF FLAGS 2 
PUT li^FUT CHAh in A-REG 
CHAHACTER = LINE FEED? 
NO - CHECK FOR CP/DC3 
YES - GET MODE t-LAGS 2 
TURN ON WRAP tLAG 
WRAP FLAG ALREADY ON? 
YES - EXECUTE LINE FEED 
^'0 - SEI WRAP FLAG 
;AN0 IGWORE LINE FEED 



;CHAHACTER = RETURN? 

;YES - DOlv'T SE'l WKAP FLAG 

;CHAHACTbR = 0C3V 

;YES - DON'T SET i'-HAP FLAG 

;N0 - SEI vmPAP FLAG 

; UPDATE MODE FLAGS ? 



;l^AS LAST CHARACTER FUNCTION 

;A CURSOR ADVANCE? 
?N0 - DO FULL PROCESSING 
;YES - CLEAR FLAG 
;PUT INPUT CHARACTER IN A-RE 
;IS CHARACTER A COl^»THOL CODE 
;Y£S - CHECK FOP DISPLAY FCT 
NO - DO tAST STORE 
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1490 


035F 


• 


• 








1491 


035F 


• 


• 




; FAST STORE PROCE 


1492 


035F 


• 


• 








1493 


035F 


• 


• 




CHIOIO EQU 


$ 


1494 


035F 


2E 


6C 




MVI 


L,SPOWL 


1495 


0361 


46 


• 




MOV 


B,M 


1496 


0362 


2A 


C3 


Ff 


LHLD 


CURADR 


1497 


0365 


7E 


, 




MOV 


A,M 


1498 


0366 


B7 


• 




ORA 


A 


1499 


0367 


FA 


B9 


03 


JM 


CHIIOO 


1500 


036A 


2B 


• 




DCX 


H 


1501 


036B 


7E 


• 




MOV 


A,M 


1502 


036C 


B7 


• 




OHA 


A 


1503 


036D 


F2 


HD 


03 


JP 


CHI020 


1504 


0370 


FE 


CC 




CPI 


EOL 


1505 


0372 


C2 


B9 


03 


JNZ 


CHllOO 


150b 


0375 


47 


• 




MOV 


B,A 


1507 


0376 


2B 


• 




DCX 


H 


1508 


0377 


7E 


• 




MOV 


A,M 


1509 


0378 


FE 


C3 




CPI 


FILL 


1510 


037A 


C2 


B9 


03 


JNZ 


CHIIOO 


1511 


037D 


3A 


CO 


FF 


LDA 


CURRGW 


1512 


0380 


F6 


40 




ORI 


MAYEOL 


1513 


0382 


F3 


• 




Dl 




1514 


0383 


32 


20 


8 7 


ST A 


lOCRRW 


1515 


0386 


3E 


04 




MVI 


ArKSTOF 


1516 


0388 


32 


80 


83 


STA 


lOKBCn 


1517 


038B 


70 


• 




MOV 


M,B 


1518 


038C 


23 


• 




INX 


H 






-BASE 

;GET THE SPOW LATCH IN B-REG 
;G£T LAST CHAR PONE ADDRESS 
;GET LAST CHARACTER DONE 
;I5 IT ASCII? 
;N0 - DO FULL PROCESSING 
;YES - GET NEXT CHARACTER 

;IS IT ASCII? 

;YES - OVERLAY EXISTING CHAR 

;IS IT EOL? 

;N0 - DO FULL PROCESSING 

;YES - SAVE EOL AND CLEAR 

;SPOW LAiCri COMPARE 
;GET NEXT CHARACTER 
;1S IT AN END OF LINE FILL? 
;N0 - DO FULL PROCESSING 
;YES - ADD CHAR TO DISPLAY 
;SET DMA OFF WITH EOL SKIP 
; DISABLE INTERRUPTS 
;TURN off DMA 
F ; DISABLE RESET KEY 

; STORE NEW EOL 

;SET TO OLD EOL ADDRESS 



I32b5-90003 



1520 

1521 

1522 

1523 

15 24 

1525 

15 26 

1527 

152B 

1529 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

15 42 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

155 3 

1554 

1555 

1556 

1557 
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038D 

03bD 

038D 

3 BO 

03BD 

3 8E 

03«F 

0392 

0393 

0393 

0396 

399 

039C 

39D 

03A0 

3 AG 

03A0 

03A0 

3A0 

03A0 

03A0 

03 AC 

03A0 

03A1 

3A4 

03A7 

03A8 

03A8 

3A8 

03A8 

03A8 

03AB 

OBAE 

03AF 

03Bt 

03B4 

03H6 

03B9 



79 

BB 

CA 

71 

• 

CD 

22 

21 

34 

CD 



3 A 
3<i 

C9 



CD 
CA 
79 
FE 
CA 
FE 
C2 



9£ 

C8 



CI 

00 



47 

B9 

OD 
B9 
IB 
5F 



OF 
FF 
FF 



05 2U 



FF 
87 



10 
03 



03 



03 



ADD CHARACTER TU DISPLAlt 



CH1020 



CH1030 



Egu 

MQV 

CMP 

JZ 

MOV 

EUU 

CALL 

ShLD 

LXI 

It.R 

CALL 



$ 

A,C 

B 

CHI030 

M,C 

$ 

DISLNl 

CURADR 

H,LSI'CUL 

CUHADV 



? RECALL THE INPUT CHARACTER 
/STORE INHIBITED ^i SPQW? 
;YES - BiPASS STUPE 
;NU - STUPE THE BY IF 



;TURiM DISPLAY BACK 
; STORE NEVi CURRENT 
? INCREMENT LSTCOL 

; ADVANCE CURSOR 



OH 
ADDRESS 



CH1MT2 - SET CURSOK COLUf^N On DISPLA^t * 



EXIT 



CHIN 12 



EQl) 
CMP 
LDA 
STA 
RET 



Z TRUE 

A DESTROYED 

$ 

A 

CURCOL 

lOCPCL 



;GET CURRENT 
?SET DISPLAY 
;RlTURn 



CULUf'N 
CURSOK 



wimBER 
COLUMN 



CONTROL CODE - CHECK f- OR DISPLAY FDi^CTIUNS 



CHI050 



Egu 

CALL 

JZ 

MUV 

CPI 

JZ 

CPI 

JNZ 



CKDSPF 

CHI I 00 

A ,C 

CR 

CHIloO 

ESC 

CHIOIO 



; DISPLAY FUNCTIONS FNABLEO> 
;NU - DO FULL PRuCESSIMG 
;VES - RECALL INPUT CHAPACTE 
;tS IT RETURN CHARACTEh? 
;YES - DO FULL PROCESSING 
;IT IT Aw ESCAPE? 
;nO - DO FAST PRuCESSIiMG 
YES - DO FULL PROCESSING 
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1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 

1601 

1602 

1603 

1604 

1605 

1606 

1607 



03B9 

0389 

03B9 

03B9 

03B9 

0369 

036A 

03BB 

03BE 

03C1 

03C1 

03C1 

3C1 

03C4 

03C4 

03C4 

03C4 

03C4 

03C5 

03C6 

03C7 

03C7 

03C7 

03C7 

03C8 

03C9 

03CA 

03CD 

03CE 

03CF 

03U0 

03D1 

03D4 

03D4 

03D4 

03D4 

03D5 

03D6 

03D7 

03D8 

030A 

03DB 

03DC 

03DF 

03E0 

03E1 

03E2 

03£3 

03E4 



61 
69 
22 
CD 



2A 



23 
23 
23 



79 
96 
23 

DA 
07 
47 
7E 
B9 
DA 



23 
5E 
23 
7E 
E6 
57 
96 
C2 
68 
67 
19 
5E 
23 
56 



88 
23 



D2 



FF 
20 



FF 



E5 



FULL PROCESSING 



HlNTl EQU 

HIlOO EQU 

MOV 

MUV 



$ 
$ 
H,C 



;S£T "CHAR" AND "DCHAR" TO 

;CURHENT CHARACTER 
;CLEAR CURADV FLAG 



SHLD CHAR 
CALL CRADVl 

DETERMINE CHARACTER FUNCTION * 

LHLD RNGTA ;GET CURRENT RA^3GE TABLE ADD 

ADVAI^CE TO NEXT TABLE ENTRY * 

HIllO EQU $ 

INX H 

INX ri 

INX ri 

COMPARE CHARACTER TO CURRENT RANGE * 
♦ ♦*♦♦»*♦*♦♦**♦*♦** ♦♦♦♦♦♦♦♦♦♦♦'^ ♦♦♦*♦♦* 

;PUT CHARACTER IJv A-REGISTER 
;CHARACTEP >= LOWER BOUND? 
. ;(Ser H,L TO UPPER BOUND) 
;N0 - ADVANCE TO NEXT ENTRY 
;YES - DUUBLE DIFFERENCE AND 

;SAVE VALUE IN B-REGISTER 
;GET UPPER BOUND 
/CHARACTER <= UPPER BOUND? 
;NU - ADVANCE TO NEXT ENTRY 

CHARACTER FUNCTION FOUND - GET FUNCTION ADDR ♦ 

INX H 

;PUT ADDRESS ENTRY IN 
;A (= MSB) , E (= LSB) 

;MASK OUT HIGH ORDER BIT 

;(PUT NEW MSB INTO D-REG) 
;USE INDEX TABLE? 
;N0 - USE AS FUNCTON ADDRESS 
;YES - PUT DIFFERENCE IN H,L 

?(A = 0) 
;COMPUTE TABLE ADDRESS 
;GET INDEX TABLE VALUE 



MOV 


A,C 


SUB 


M 


INX 


H 


JC 


CHIllO 


RLC 




MOV 


B,A 


MOV 


A,M 


CHP 


C 


JC 


CHIUO 



MOV 


E,M 


INX 


H 


MOV 


ArM 


ANI 


177Q 


MOV 


D,A 


SUB 


M 


JNZ 


CHI200 


MOV 


L,B 


MOV 


H,A 


DAD 


D 


MOV 


£,M 


INX 


H 


MOV 


D,M 
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1609 
1610 
1611 
1612 
1613 
1614 
1615 

161 6 
1617 
1618 
1619 
1620 
1621 
1622 

162 3 
1624 
1625 
162o 
1627 
1628 
1629 
16 30 
1631 
1632 
1633 
1634 
1635 
1636 



03E5 
03fc;5 
03E5 
03£5 
3E5 
03E6 
03E9 
03fcB 
03ED 
03EF 
03E2 
03F2 
03E5 
3FS 
03F8 
3FB 
03FE 
u401 
0402 
0403 
0406 
04u7 
04oA 
040A 
040A 
040D 
0410 
0411 



EB 
22 
06 
26 
3E 
32 



CO 

CO 

C2 
21 

46 
05 
FA 
70 
CC 



3 A 
32 

BC 
C9 



CE 
01 
FF 
04 
BO 



A4 

4 7 
OA 
Dl 



OA 
95 



88 
69 



FF 



Ri 



CD CU FF 



OF 
10 
04 
FF 



04 
04 



FF 



PEHFURM C 

:hi2oo Egu 

XCHG 

SHLD 

Mvl 

MVI 

MVI 

SIA 

4; 4: 4; f !<t ;^ an j^ ;^ 4 

CALL 

CALi, 

CALL 

JWZ 

LXT 

MOV 

ncH 

JM 

HUV 

Q'l 



HARACTER FUNCTION * 



CH1270 



Egn 
LiJA 

CMP 

RET 



CNTFAO 

B,l 

ri,BA5EH 

A,RvSTOFF 

XOKBCO 

ECQNTF 

DISLN3 

CKDSir^F 

CH1270 

H,ESCFLG 

B,M 

B 

CHI270 

M,B 

ESCEND 

$ 

CHAP 

LCHAR 



;SET FUNCTiON ADDRESS 
;SET INITIAL FUNCTION IMDEX 
;StT H TO DATA PAGE 
;niSABiiF RESET KE^ 

; EXECUTE CHARACTER FUNCTION 

;PE-ENABbE RESET hEY 
; DISPLAY FUNCTXOI^S ENABLED? 
;YES - DOf^'T END ESCAPE SEy' 
;N^0 - CHilCK ESCAPF FLAG 

;ESCAPE SEgUENCE IN PROGRESS 
;r'0 - DON 'I CHANGE ESC FLAG 
;YES - UPDATE ESCAPE COUNTER 
; RESET RANGE TABLE POINTER 
COUNTER BECAtiE ZERO 



;SAVE THc LAST 

;Pkocessld 

;SET Z FALSE 
; RETURN 



character 
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1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
165:2 
1653 
1654 
1655 
1656 
1657 
1658 



0412 
0412 
0412 
0412 
0412 
0412 
0412 
0412 
0412 
0415 
0416 
0419 
04iC 
04 IE 
041F 
0422 
0423 
0424 
0424 
0424 
0426 



3A 
B9 
CA 
3A 
E6 
C« 
3A 
B9 
CO 



3E 
C3 



BA 
6£ 
01 



04 50 



OC 



02 50 



;i^^t****^*******t*****^ **************** *****^**^* 

J CHECK CONTROL CODES FOR BLOCK TERMINATOR OR ♦ 
; BLOCK TRANSFER TRIGGER ♦ 

• 

; ENTRY: C = INPUT CHARACTER 



CHKCTL 



CHKCil 



01 
42 



12 



Egu 

LDA 

CFfP 

JZ 

LDA 

AN! 

RZ 

LDA 

CMP 

RNZ 

EQU 
MVI 
JMP 



6LKTRM 

C 

SFKYD5 

DFLGS 

SDACOM 

TRi GGR 
C 



A,SEfTRG 
DCMCTL 



;GET BLOCK TERMINATOR CHAR 
; INPUT = BLOCK TERMINATOR? 
;YES - DISPLAY INPUT 
;GET TRANSFER FLAGS 
MNPUT FROM DATA COMM? 
;N0 - DO NOTHING 
;IS INPUT CHARACTER THE 

;BLOCK TRANSFER TRIGGER? 
;N0 - DO NOTHING 

;SET BLOCK TRANSFER TRIGGER 
;G0 TO DATA COMM ROUTINE TO 
;SET BLOCK TRANSFER IRIGGE 
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1660 
1661 
1662 
1663 
1664 
1665 
1666 

166 7 
1668 
1669 
1670 

167 1 
1672 
167 3 
1674 

167 5 
1676 
1677 
lo7B 
1679 

16 80 
1681 
1682 
1683 
.16 84 
1685 
1686 
1687 

168 8 
1689 
1690 
1691 
1692 

169 3 
1694 
1695 
1696 
1697 
1698 
1699 

17 0u 
1701 
1702 



LOC 

0429 
0429 
0429 
0429 
0429 
042C 
042K 
042F 
0432 
0435 
0437 
0437 
0437 
0438 
043B 
043C 
043D 
043E 
U44l 
441 
0444 
0445 
0448 
0449 
44C 
044D 
044D 
044D 
0440 
044D 
0450 
0451 
0451 
04 51 
0453 
0455 
0457 
0459 
0458 
045D 
045F 
0461 
0008 



OBvIECT CODE 



3A 
E6 
C8 
3 A 
21 
Ofc 



Oir 
DA 
23 
23 

OQ 
C2 

5a 

Of 
DA 
OF 
DA 
C9 



CO 

E9 



28 
F9 
12 
10 
F4 
51 
3B 
20 



F8 
01 

70 
51 

08 



4U 



12 

OC 
26 
28 
11 
14 
13 
28 



FF 



FF 

04 



7 



FF 
8 



4 
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PFlvDING BLUCK TRANiSFEFiS ♦ 

;GET CUMMON FLAG6 
; BLOCK THAnSFFH TPIGGFH SET? 
;N0 - REXUHN 

;Yfc;S - RLLFASE ANY PfcNOiNG 
; BLOCK TkANSFFHS 



TKAiNSFFH PKNDING till SFT? 

YhiS - GU DO THAhSFFH 

HU - CHtCN NEXT BIT 

INCREMENT FONCTIGw I'ABLE AD 

ALL BlTb CHECKED? 

NO - CONTINUE CHECKING 

YES - CHECK 2ND SET OF FLAG 
DEVICE RECOHD PENDING? 
YES - SEND 1/U HECOHD 
Bl^'AHi DATA PENDING^ 
YES - TRANSMII IHE DA I'A 
MU - HEl'UKN 

; PENDING BIT fOUND - GO TU IRANSMIT FUNCTION ♦ 

DSP020 Egu $ 

CALL CHAIN ;GET TRANSMIT FUNCTION ADDR 
PCHL ;G0 10 TriF FUNCTION 



SOURCE STATEMENTS 


SSSIZSSSZSXS 




» t **♦ *♦*♦*♦*♦*♦*'♦!** ♦ 


; DSPTCH - 


DISPATCH 


• t**4i=^ + *t + 4::f*t »♦»♦♦* 


DSPTCH EQU 


$ 


LDA 


CHFLGS 


ANl 


bLKTRG 


RZ 




LDA 


MFLGS 


LXI 


ri,DSPTAB 


M'VI 


CNMPNDG 


Dspolo Egu 


$ 


RHC 




JC 


DSP020 


INX 


rt 


I N X 


H 


DCR 


C 


JN2: 


DSPOlO 


LDA 


MFLGS2 


RHC 




JC 


lORDGO 


RHC 




>1C 


BNHYGO 


RET 





DSPTAB 



Egu 

Ow 
Da 

Dw 
Dw 
D'rt 
Dw 
Dw 
Dw 



$ 

DC 2 GO 

STATGO 

ST A 2 GO 

lOSTGO 

CPSNGO 

FKEYGO 

DPSGO 

lODNGO 



SEND 

SEND 
SEND 
SENO 
SE^'D 
SEND 
SEND 
SENu 



DC 2 

TERMINAL STATUS 

TERMINAL STATUS 2 

1/U STATUS 

CURSOR ADDRESS 

FUNCIIUN KEY DATA 

DISPLM DATA 

i/0 lERMlNATiOiM CODE 



NMPNDG Egu ($-DSPTAb)/2 
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ITEM 

1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
17 22 
1723 
1724 
1725 
1726 
1727 
I72ti 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
17 36 
1737 
1738 
1739 
1740 
1741 
1742 
1743 



LOC 

0461 

0461 

0461 

0461 

0461 

0464 

0466 

0469 

046C 

046F 

0470 

0473 

0473 

0476 

0479 

047C 

047F 

047F 

047F 

047F 

047F 

047F 

047F 

047F 

047F 

047F 

047F 

047F 

047F 

0481 

0481 

0484 

0487 

0487 

048A 

048C 

048F 

048F 

0492 

0494 
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3A 

E6 

CA 

3A 

Eo 

3E 

C4 

• 

CD 

21 

CA 

21 



32 
22 

21 

IE 
CD 

21 
36 
C9 



6E 
01 
73 
F3 
02 
08 
39 

8C 
9A 
81 
86 



3E OA 



D4 

D2 

• 

DD 

03 

FF 

• 

Dl 

02 



FF 

04 
FF 



17 

19 
26 
04 
26 



FF 
FF 

FF 

10 

FF 



SOURCE STATEiMENTS PAGK 48 

; ESCAPE CHARACTER PHOCESvSING ♦ 



ESCAPE 



ESCOlO 



EQU ! 

LDA 

ANI 

JZ 

LDA 

AM 

MVI 

CNZ 

EQU 

CALL 

LXL 

JZ 

LXI 



DFLGS 
SDACOM 
ESCOlO 
MDFLG2 

blkmde' 

A,ESCINP 

SETMF2 

$ 

CHKSFK 

H,ESCTAB 

ESCAPO 

H,SESCTB 



;DATA FRUM datacomv 
;M0 - DON'T LOCK KEYBOARD 
;YES - GET MODE FLAGS 
; BLOCK MODE? 

;(PUT IGNORE FLAG IN A-REG 
;YES - SET IGNORE KFYBD FLAG 



;SOFT KE5^ MODE? 

;(SET FOR NORMAL ESC TABLE 
;NQ - SET RANGE TABLE 
;YES - USE SOFT KEY TABLE 
. t^*^** ********* 't^^****^** ****^^****^* ******** ^*** 
ESCAPO - SET RANGE TABLE FOR ESCAPE SEQUENCE * 
^^t**** ******************************* ********* 

ENTRY: A = RADIX (BASE) FOR DIGIT PARAMETERS 
HrL = ADDRESS OF NE^ RANGE TABLE 

EXIT : H,L = ESCFLG 

ESCAPA - USE DECIMAL RADIX 



ESCAPA EgU 
MVI 

ESCAPO Egu 
STA 
SHLD 

ESCAPB EQU 
LXI 
MVI 
CALL 

ESCAPl EyU 
LXI 
MVI 
RET 



A,DECRDX 

$ 

RADIX 

RNGTA 

S 

H,10CSGN 

E,3 

CLRALl 

$ 

H, ESCFLG 

M,2 



;SET RADIX FOR BASE 10 DIGIT 

;SET PARAMETER RADIX 
;SET NEW RANGE TABLE 
; ENTRY TU CLEAR ACCUMULATOR 
;CLEAR OUT THE PARAMETER 
; ACCUMULATOR AREA 



SET FLAG TO RESET AFTER 

;FOLLOk«ING CHARACTER 
RETURN 
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ITEM 



LOC 
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1745 
1746 
1747 
1748 
1749 
17 50 
1751 
1752 
1753 
17 54 
17 55 
175b 
1757 
1758 
17 59 
1760 
1701 
1762 
1763 
1764 
1765 
1766 
176 7 
17 68 
1769 
1770 
1 7 7 1 



0495 
0495 
0495 
0495 
0495 
0498 
0498 
049E 
04A1 
04A1 
04A4 
04A5 
04A8 
04AA 
04AA 
04AA 
04AA 
04AA 
04AA 
04AA 
04AA 
04AA 
04AA 
04AA 
04AD 
04AE 
4AF 



21 

CD 
CA 
21 

22 
AF 
32 
3E 



21 

Ao 
77 
C9 



; tSCEND - END OF ESCA 
;*»*»^4f*»** ♦♦♦♦*♦♦♦*♦♦ 
ESCElxD EQU $ 
64 26 LXI H,HTABLE 

8C 19 CALL CHKSFK 

Al 04 JZ ESCENl 

60 26 LXI H,DFi)TB0 

ESCEin E^U $ 

SHLD HNGTA 
X^A A 
FF STA ESCFLG 

MVI A,37 7Q-EiiC 

; CLHMF2 - CLEAR FLAG 



D2 FF 



01 
F7 



6F 



PE SEQUENCE PROCESSING * 

;SfcT FUR NORMAL RANGE TABLE 
;SOFT KEi MODE? 
;W0 - USE WOR^AL TABLE 
;yES - USE SOFT KFli TABLE 

; RESET RANGE TABLE POINTER 
;CLEAR ESCAPE FLAG AND 

; ESCAPE KEYBOARD LOCKOUT 
INP ;FLAG 

BIT IN MFLGS2 =^ 

4 3(t :f * J|t :f * ♦ ♦ ♦ 4: + ♦ ^ ♦ 



ENTRY: A = 377B - FLAG BIT TO bE CLEARED 
EA 



IT 



A = UPDATED MFLGS2 
H,L = MFLGS2 



VALUE 



CLHMF2 



Es^U 
LAI 

ANA 

MOV 
RET 



H,MFLGS2 
M 

Ci , A 



; CLEAR TriE FLAG BIT 
;SiORE r^t.w ShTTINGS 
; RETURN 



13255-90003 
ITEM LOC 



1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
17 86 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 



04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
0460 
04B0 
04B0 
04B0 
04B0 
04B0 
04B0 
04B1 
0462 
04B3 
04B4 
04B7 
04B8 
04B9 
04BC 
04BD 
04 6 F 
04C0 
04C1 
04C4 
04C4 
04C4 
04C4 
04C4 
04C5 
04C7 
04C9 
04CA 
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FNDHAM - LOCATE END OF RAM SPACE 



AF 

6F 

11 

BE 

C2 C4 

35 

34 

C2 C4 

7C 

D6 

67 

B8 

F2 



04 



BO 04 



7C 

C6 04 

E6 FC 

67 , 

C9 , 



ENTRYJ B = MSB OF RAM SPACE LOWER LIMIT 
H,L = ADDH OF UPPER B0UNDAR5^ 

EXIT : H,L r ADDRESS OF LOWER BOUNDARY 
A DESTROYED 



FNDRAM egn 

XRA 



04 



04 



S 

A 

MOV L,A 

MOV M,A 

CMP M 

JNZ FRMOIO 

DCR M 

IhR M 

JNZ FRMOIO 

MOV A,H 

SUI 4 

MOV H,A 

CMP B 

JP FNDRAM 



;SET ADDRESS'S LSB TU ZERO 

;$ET RAM LOCATIOl^ TO ZERO 

;ALL ZEROES STUREDV 

;NU - RAM LIMIT FOUND 

;YES - TRY TO SET TO ALL ONE 

;ALL ONES STORED? 

;N0 - RAM LIMIT FOUND 

;YtS - MOVE TO MEXT IK 



;RAM LIMIT REACHED? 
;MU - TR^ NEXT IK 



RAM LIMIT FOUND - RETURN LOW BOUNDARY 



FRMOIO EQU $ 

MOV A,H 

ADI 4 

AM 3740 

MOV H,A 
RET 



; ADJUST H,L TO TRUE LOWER 

; BOUNDARY 
;MASK FOR IK START ADDRESS 

; RETURN 



I32b5-9U003 



ITEM 

ibOb 
lLd09 
11 8 1 
3181 i 
11812 
l«li 
31814 
31815 
1810 
1817 

!aiB 

1819 
18 20 
1821 
18 22 
1823 
1824 
18 25 
18 20 

182 7 
1828 
1829 
18 30 
1831 
13 32 
1833 
1834 
1835 
1830 

183 7 
18 38 
318 39 
31840 
lb41 
18 42 
18 43 
1844 
18 45 
318 46 

184 7 
1848 
18 49 
1850 
1851 
1852 
1853 
1854 
1855 
1856 

185 7 
1858 
1859 



LUC 

04CR 
04CB 
04CB 
04CB 
04CB 
04CB 
04CB 
04CP 
04CB 
04CB 
04CB 
04CB 
04CB 
04CB 
04CB 
04CB 
04CB 
04CB 
04CB 
04CP: 
04D1 
0404 
04D7 
04DA 
04UA 
04DB 
04 DC 
04DD 

04un 

04DD 
04DD 

04pn 

04fc0 
04fc:3 
04E6 

04e;9 

04&C 
04E,F 
04F2 
04F2 
04F2 
04F2 
04F2 
4F3 
04F4 
04F5 
04F6 
04F7 
04F8 
04F9 
04FA 
04FB 
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A 
1 

D 
A 

2 

EB 
13 
C9 



2A 
U 
CD 
22 
F2 
21 
C3 



7D 
91 
6F 
7C 

98 
67 

EB 
BE 
EB 
C9 



BB 

8E 
F2 
DD 
8B 



A8 
AB 
F2 
A8 
DA 
27 
54 



Ft' 
FF 
0^ 
04 
FF 



FF 

FF 
04 
FF 
04 
OF 
12 



i GETBUF - GET BUFFER SPACE 

; ENTHY: B,C = LENGTH OF BUFFER HFgUlPED 

I EXIT ; A,H,L DESIKOYED 

; P - BUFFER SPACE ALLOCATAEO 

D,E = 6UFFEH START AOUPESS 
? M - BUFFER SPACE NOT ALLOCATED 

; D,E OLSTPOYED 

I This ROUTINE ALLOCATES A CHNTiGUnUS AHFA UF 
I RAf^. THE BUFFEH SPACE HAx tMOT STAPT UN A 
; 256 BYTE PAGE BOUNDAR]!. 

GFTBUF FgU $ 

LHLU BUFEND ;CET CUPHEwT BUFFEH END AND 
LXI D,BUFBGN + 1 ;ADnKESS OF BEGIim PTK'^ MS 
CALL GTBIOO /Ei^GUGB SPACE? 

;NG - TP^ DISPLAY APEA 

;YEs - smkE NEv.' Buffer end 



GTB0U5 

* 

; MOT 
GTBOIO 



JM GTBOIO 
SHLD BUFEND 
EvU $ 
XCHG 
I N > D 
RET 



;SET D,E TO LOW ADDRESS 

;0F oLFFhP 
;PETUPN 



ENOUGH NON-DISPLAY RAM - TRY DISPLAY AREA 



Egfi 

LHLu 

LXI 

CALL 

Shl.D 

JP 

LXI 

J MP 



DSPEND ;GET CUPKEWT DISPLAY EHD l\HD 
D,DSPBGN + 1 ;ADOR OF BEGIN PTH'S f^^SB 



GTBIOO 

DSPEi^lD 
GTB005 
H,BUFMSG 
HAiAiGUO 



; ENOUGH SPACE? 

; (STORE iMEv. DISPLAY END) 
;YES - RETURN bUFFER ADDRESS 
;NU - REPORT ERHUH 



GIBIOO - CHECK FOR AVAILABLE SPACE 



GTblOO Fgu 


$ 


HOV 


A,L 


SUB 


C 


MOV 


L,A 


MOV 


A,H 


SBB 


6 


MOV 


H,A 


XCHG 




Ci«P 


M 


XCHG 




RET 





; SUBTRACT DESIRED SPACE 
;FRDni end of REGiOtJ 



; compare new msb of end to 

;msb of beginning 
;put tmew end address in h,l 
; pet urn (p = enough) 



13255-^0003 
ITEM LOC 



1B61 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

187 4 

1875 

1876 

1877 

1878 

1879 

1880 

1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1901 

1902 

1903 

1904 

1905 

1906 



04FC 

04FC 

04FC 

04fC 

04FC 

04FC 

04FC 

04FC 

04FC 

04FC 

04FC 

04FC 

04FC 

04FF 

05ul 

0504 

0507 

0509 

050C 

050C 

050C 

050C 

050C 

050F 

0512 

0513 

0514 

0514 

0514 

0514 

0514 

0517 

051A 

051C 

051F 

0520 

0522 

0525 

0527 

052A 

052A 

052D 

0530 

0530 

0530 

0533 
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OBJECT CODE SOURCE STATEMENTS _ ^^i^E— !L-, 

GETDCM - PROCESS DATA COMM INPUT IF ANY ♦ 

ENTRY: DUN'T CARE 

EXIT ' NC 

NZ - DATA COMM INPUT BUFFER EMPTY 
Z - EXIl ON FULL INPUT PRDCESSIWG 
ALL REGISTERS DESTROYED 



3A 
E6 
3A 
CA 
F6 
CC 



CD 
DA 
CO 
4F 



CD 
3A 
E6 
CA 
79 
FE 
CA 
FE 
C2 



GFIDCM 



F3 
08 
F8 
44 
10 
E2 



17 
36 



OF 

F4 

40 

2A 

• 

OD 

2A 

OA 

26 



FF 
• 

FF 
05 

13 



50 
05 



17 

FF 

• 
05 



05 



28 



CD 50 03 
CA OC 05 



Egu 

LDA 

ANI 

LDA 

JZ 

AM 

CZ 



MDFLG2 
REMOTE 
CMFLGS 
GDCIOO 
REMSET 
ENIREWI 

; GET DATA COMH INPUT 

GDCOIO EQU $ 

CALL ZGETDC 
JC GDC050 
RNZ 
MOV 



; PPOC 
GOC020 



CD 
C3 



9E OF 
AO 03 



C,A 

ESS DATA COMM I 

EQU $ 

CALL SETDFO 

LDA MDFLGt 

ANI RECORD 

JZ GDC030 

MOV A,C 

CPI CR 

JZ GDC030 

CPI LF 

JNZ RCRDGO 

GDC030 Ev^U $ 

CALL CHINT 

JZ GDCOIO 

GETDCl Egu $ 

CALL DI5LN1 
JMP CH1NT2 



;GET HARD MODE FLAGS 
;RE^iOTE MOuE ENABLEDV 
; (GET COMMON FLAGS) 
;N0 - IGNORE DATA COMM 
;WAS REMOTE ON BEFORE? 
;N0 - SEl REMOTE MODE 

;ANY DATA COMM INPUT? 

; (PROCESS ERROR IF ANY) 
;N0 - RETURN 
;YES - SAVE INPUT INTO C-REG 

NPUT * 

;SET DATA COMM INPUT FLAG 

?GET SOFT HODE FLAGS 

? RECORD MODE ENABLED? 

I NO - PROCESS THE INPUT 

;YES - LOOK FOR RECORD TRIGG 

; INPUT = RETURN? 

;YES - PROCESS THE CHARACTER 

;IS IT LINE FEED? 

;N0 - EXECUTE RECORD FUNCTIO 

;YES - PROCESS THE CHARACTER 

; PERFORM INPUT PROCEDURE 

;FAST STORE - DO SHORT LOOP 

?SET THE DISPLAY CURSOR 
;SET DISPLAY CURSOR ROW AND 
;COLUMN AND EXIT Z-TRUt. 
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ITEM 

190B 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 



LOC 

0536 
0536 
0536 
0536 
0536 
0539 
053C 
053r 
0541 
0544 
0544 
0544 
05 44 
0544 
0544 
0546 
0549 
054A 



OBJECT CODE SOUPCK STAIEMCNTS 



C2 
CD 
CC 

ofc; 

C3 



E6 
C4 
3C 
C9 



54 
47 
95 
7F 
14 



10 
C7 



J PRUC 
; **♦♦* 
GDC050 



; NOT 
; IN 
;♦♦♦*♦ 
GDC 100 



tISS UA 

4, ♦ ;»: ♦ ;f: 4t 

EQl) 

JNZ 

CALL 

CZ 

MVI 

JMP 

^ * ;f f 4 :»: 

IH PbH 

LUCAL 
♦ ♦ ♦ ♦ 4 * 

£QU 

An I 

CNZ 

INB 

FtT 



:«: :»: ;(i :(( ;K 4: « « 

TA comm 
$ 

HANGUO 
CKDSPF 
ESCENO 
CADfcL 
GDC 020 

UTfc MOOF 
MODE AL 

♦ ;j£ t -t ♦ * 4- * 
$ 

LNiLCL 
A 



PAGE 5 3 

f ♦^^♦^♦♦♦♦♦♦♦» 
INPUT ERROH * 

;REPGHT AND HAiMG It* FATAL 
;DlvSPLAY FUMCTIOWS FiMABLED.^ 
;^JU - FORCE ESC 6Fv ABURl 
;FURCfc RUHUUi CHARAC'IFK TO 
;Bt DISPLAYED 

- SitT TU LOCAL IF 'JUT * 
HEADY ♦ 

; FIRST TXMt IN LOCAL? 
;YES - SET TO LOCAL MODE 
; FORCE Z FALSE 
;RETURIM (MO DATA COi^M JNPUT 



13255-90003 
ITfclM LOG 



PACiE 54 



1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 



054B 
054B 
054B 
054B 
054B 
054B 
0548 
0548 
054B 
054B 
054B 
054B 
054B 
054B 
05 48 
054D 
054D 
054D 
0550 
0553 
0554 
0555 
0556 
0559 
055C 
055E 
055F 
0560 
0561 
0562 
0563 
0565 
0568 
0568 
0568 
0568 
0569 
056A 
056B 
056E 
0571 
0572 
05 7 3 
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OBJECT CODE SOURCE STATEMENTS 

GTBLK - GET A NEW DISPLAY BLOCK ♦ 

entry: DON'T CARE 



EXIT ; Z - NO BLOCKS AVAILABLE (MEMORY LOCKED) 
ALL REGISTERS DESTROYED 
NZ - BLOCK ALLOCATED 

B,A = H,L = ADDRESS OF CHARACTER 

PRECEDING NEXT BLOCK LINK IN BLOCK 
C,D,E DESTROYED 



3E C3 



32 
2 A 
EB 
7B 
B7 
CC 
CA 
Eo 
6F 
62 
7E 
4F 
2F 
E6 
CA 



13 
13 
6B 
CO 
22 
42 
7B 
C3 



13 
07 
FO 



OF 
76 



6D 
AC 



8F FF 
AC FF 



06 
Ob 



05 



19 

FF 



84 05 



GTBLKF egu 

MVI 

GTBLK EgU 
STA 
LHLD 
XCHG 
MOV 
ORA 
CZ 
JZ 
ANI 
MOV 
MOV 
MOV 
MOV 
CMA 
ANI 
JZ 

• :^ 3|i ;!(r 4: ^ 4c :^ 4i * :^ 

; RELEASE L 

-♦♦♦;ff4t#t** 

TNX 
INX 

MOV 

CALL 

SHLD 

MOV 

MOV 

JMP 



$ ;GET BLOCK FOP SINGLE CHAR I 

A, FILL ;SET FILL CHARACTER 10 FILL 



FILCHR ;SAVE FILL CHARACTER 
FRBLKS ;GtT POINTER TO FIRST 

?FREE BLOCK IN D,E 
A,E ;PUT LSB OF LINK IN A-REG 
A ;ANY BLOCKS AVAILABLE? 

PTBLK ;N0 - RELEASE BLOCKS 
MLOCK ;AND FORCE MEMORY LOCK ON 
377Q-RLKSM ;COMPUIE ADDRESS OK 
L,A ;NEXT BLOCK LINK 

H,D 

A,M ;GET LSB OF NEXT BLOCK LINK 
C,A ;SAVE LSB IN C-REGISTER 

;END OF LINE LINK CLOVtfER 
BLKSM ;F0UR BITS » ALL ONES)? 
GBLIOO ;N0 - RELEASE NEXT BLOCK 

AST BLOCK OF LINE ♦ 

D ;SET H,L TO LSB PART OF PREV 

D ;HNE LINK 

L,E 

CHAIN ;GET PREV LINE ADDR IN H,L 

FRBLKS ;SET AS NFw FREE BLOCKS HEAD 

b,D ;PUT CURRENT BLOCK ADDRESS 

A,E ;IN B,A 

GBL200 ;FILL BLOCK WITH FILL CHARS 



ITEM 



LOC 



OBJECT CODE 
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1971 
1972 
1973 
1974 
1975 
197b 
1977 

197 8 
1979 
1980 
1981 
1982 
1983 

198 4 
1985 
1986 
198/ 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
199o 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 



0576 
0576 
0576 
0576 
0576 
0577 
0578 
05 7 9 
0579 
05 7 A 
057C 
057D 
057E 
05 7 P 
0580 
0581 
0582 
0583 
0584 
0584 
0584 
0584 
0584 
0584 
0584 
0584 
0584 
0586 
0587 
0588 
058A 
058D 
058D 
058E 
058E 
0590 
0593 
0594 
0595 
0596 



23 

4o 
2B 

79 
E6 
4F 
OA 
7 7 
03 
23 
OA 
77 
79 



F6 

6t 

60 

OE 

3 A 

• 

77 

2B 

OD 

C2 

77 

10 

B7 

C9 



FO 



OF 



OD 
8F 



HD 05 



; RELEASE NEXT 

GBLIOO EQU $ 

INX H 

MOV 6, 

OCX h 

MUV A, 
AN! 3 7 
MOV C, 
LDAX B 
MOV i^, 
INX b 
INX H 
LDAX B 
MOV M, 
MUV A, 
;**♦♦♦» ♦♦♦♦:**♦ 
t ILL BLOCK W 



BLOCK OF LIME * 



;GLT MSB OF NEXT BLOCK LINK 



M 



H,L TU ADDRESS OF 
PARI IN FIRST BLOCK 
ADDRESS OF NEXT 
LINK IN SECOND BLOC 



; RESTORE 

OF LSB 

C ; COMPUTE 

7Q-BLKS?^ ; BLOCK 

A 

;tramsfek next block link of 
a ; second block 'iu next bi,oc 
;hnn in first block 



A 

C ;SET A-REGISTER FOR "BLNKFL" 

ITli SPECIFIED FILL CHARACTER * 



B,A = ANY ADDRESS IN BLOCK 

FILCHR = CHARACTER 10 FILL BLOCK wrTH 



GBL200 



FF 



GBL210 



Ego 

OR I 
MOV 

^HJV 

MVI 
LDA 

Fyu 

MOV 
OCX 
DCR 
JNZ 
MOV 
HOV 
ORA 
RET 



$ 

BLKSM 

L,A 

H,B 

C,BLKSZ-3 

FILCHR 

$ 

M,A 

H 

C 

GBL210 

M,A 

A,L 

A 



SET H,L TO ADDRESS OF LAST 
; DISPLAY CHARACTER FOSITIO 
;IN BLOCK 

?SE1 FILL COHNT 

GET THE FILL CHARACTFR 

STORE THE FILL CHARACTER 
1^0 VE TO NEXT BYTE 
BLOCK FILL COMPLETED? 
MO - CONTI.MUE FILLING 
YES - WRITE LAST FAu 
SET B,A TO EXIT ADDRESS 
SET NZ 
■RETURN 
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ITEM 

20 12 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2U20 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 

2031 

2032 

2033 

2034 

2035 

203b 

2037 

2038 

2039 

2040 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 



LOC 

0597 

0597 

0597 

0597 

0597 

0597 

0597 

0597 

0597 

0597 

0597 

0597 

0597 

0597 

0597 

0597 

0597 

0597 

0597 

0599 

059C 

059F 

05A2 

05A3 

05A6 

05A7 

05A9 

05AB 

05AC 

05AD 

05AE 

05AF 

05B1 

05B2 

0563 

05B4 

0565 

05B6 

0588 

05B9 

05BA 

05BB 

05BE: 

05BF 
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OBJECT COUE SOURCE STATEMENTS 



GTMWLN - START A NEW LINE ♦ 
jr*j^***** ♦♦♦♦♦♦♦♦♦♦♦ ♦**♦**♦*♦ 
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3E 

32 

CD 

CA 

EB 

2A 

EB 

Ft> 

D6 

2B 

70 

2D 

77 

C6 

6F 

72 

2B 

73 

2B 

36 

2B 

AF 

77 

22 

2B 

CD 



CO 
C5 
4B 
01 



FF 
05 
OB 



Al FF 



OF 
02 



ENTKYJ LLINE = ADDRESS OF PREVIOUS LINE 

EXIT : NZ - NO BLOCKS AVAILABLE (MEMORY LOCK) 
ALL REGISXEHS DESTROYED 
Z - LINE ALLOCATED 

H,L = ADDR OF FIRST CHAR IN NEW LINE 
LLINE = ADDR OF LSB PART OF NEXT LllvE 

POINTER IN irib NEw LINE 
A-E DESIROYEO 

NEW LINE IS LINKED TO PREVIOUS LINE IF PREVIOUS 
LINE EXISTS (I,fcw LSB OF PREV LINE ADDR # 0) 



Al FF 



68 OD 



GTNWLN EQU 
MVT 
STA 
CALL 
JZ 

XCHG 
LHLD 
XCHG 
ORI 
SUI 
DCX 
MOV 
DCR 
MOV 
ADI 
MOV 
MOV 
DCX 
MOV 
DCX 
MVI 
DCX 
XRA 
MOV 
SHLD 
DCX 
CALL 



A.STPR 
LSTFMT 
GTBLKF 
NZEXIT 

LLINE 

BIKSM 

2 

H 

M,B 

L 

M,A 

2 

L,A 

M,D 

ri 

M,E 

H 

M,EOP 

H 

A 

M,A 

LLINE 

H 

STCHRl 



;SET LAST FORMAT COMIROL COD 

;T0 START PROTECT 
;GET A BLOCK FROM FREE LIST 
; RETURN NZ IF NO BLOCKS 
;D,E = NEW BLOCK ADDRESS 
;GET ADDRESS OF PREVIOUS 

;HNE IN D,E 
; COMPUTE ADDRESS OF LSB PART 

;0F NEXT LINE LINK 
; STORE ADDRESS INTO NEXT 

;BLOCK LINK 

;(USE DCR 10 AVOID CARRY) 

?SET ADDRESS TO MSB PART OF 
; PREVIOUS LINE LINK 

;SET PREVIOUS LINE LINK TO 
? POINT TO OLD LINE 



;SET NEXT LINE LINK TO "EOP" 
;SET TERMINATOR (LSB = 0) 
; STORE NEW LAST LINE ADDRESS 
;SET FIRST DISPLAY CHARACTER 
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ITEM 



Loc OBJKCT code: sourck si ATEMENTS 
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2057 


05C2 


• < 




2058 


05C2 


• 




2059 


05C2 


, 




2060 


05C2 


B3 




20bl 


05C3 


CB 




2062 


05C4 


EB 




206J 


05C5 


7i 




2ob4 


05C6 


23 , 




2065 


05C7 


7 2 . 




2066 


05CB 


Eb , 




206 7 


05C9 


Bt 




206B 


05CA 


C9 , 





; LINK Nt:W HMfc BACK TU JrPEViUUS LAST LINE * 



OR A 


K 


;PHeVIOI)S LINE EXIST 


RZ 




;MJ - HETUKN 


XCHG 




;YES - LINK NEW LINE 


MUV 


M,E 


;PHEVJUUS LIiNE 


I(^iX 


rt 




MQV 


M,D 




XCHG 




;KtSXOHE H,L 


CMP 


A 


J SET Z TRUt 


RhT 




; RETURN 



(LSB#0) 



TU 



IIEM hoc 



Pev A(JG-0l-7b 

OBJECT COOe 60(jRCfc: STAlEHtsNTS 



PAGt: bH 



2U70 
207 1 
2U72 
207i 
2074 
2075 
20 75 
2u77 
2078 
2U79 

2uao 

20«1 
2UH2 
20B3 
2 H 4 
20B5 
2Ub6 
2 i5 / 
20 8 B 
2089 
2090 
2u91 
209 2 
209i 
2 09 4 
209b 
209b 
2097 
209 8 
2099 
2iOO 
2101 
2102 



05CB 
05CB 
05CB 
05C8 
05CB 
05CB 
0SC6 
05C8 
05CB 
O^CB 
05CB 
05CB 
O^CB 
O^^CB 
0*^CB 
OSCB 
OSCB 
05CB 
05CB 
05CB 
05CB 
05CB 
05CB 
OSCB 

o5ce: 

05D1 
05D4 
05U5 
05D8 
U5DB 

o5de: 
o5t:o 

05G3 



CD 
22 
22 
2 3 
22 
22 
72 
3E 
3z 
C9 



9 7 

Ft; 

m 

C9 
9F 
C6 

BE 



FF 
FF 
bf 

• 

FF 



* ;fi :^ 4 :^ f * 4: 4 4. * 4: t 4 ♦ 4r 3»: t * * * ♦ * 4 ♦ * ♦ 4 4 * 4 * ♦ ♦ * * ♦ 4^ * ♦ * 

IMiTUS - SE;T up INiTlAL DISPLAY vALDLS * 
444444444444***4'**** *♦*♦**♦**♦****♦♦♦♦♦*♦ 

EXn : H,L = ADDHFSS U\; THt. LSB PART OF THii 
NtXT LINE P01f^.Tfe.P IN THE iMTlAt 
DISPLAY BLUCK 
A DFSfHOYLD 

TriI5 KOUTlMfc ALLOCAXEi) THfe. INITIAL LINE OF 
THF. DISPLAY A.MD IN I'j I ALIZtJS IME DISPLAY 
PAPAMtTFP6: 

DlSPST,CUhADR = AOuPcSo UF THF FIHbT DISPLAY 
ChAHACTFft IN IHl IMTlAb DI&PLAit' BLiJCK 

T STLTc<,bLllvfe:,TQPHN = ADDPFS5 UF THF LSB 
PAR J OF THF f^fcXT LiNhi PUJiMTFP IN IHF 
liMniAL DISPLAY BLOCK 



RHTMGN = MAXCOL (= 79) 



INITDS 



Fv>M 

CALL 

SHLD 

ShLu 

I NX 

SHLD 

SHLU 

SHLD 

f^VI 

SI A 

PFT 



GTNWLN 

DISP»^T 

CUtiADP 

H 

LSI UN 

FLINF 

TOPLIN 

A,MAXCUL 

kH1?^GN 



;Ga;T INIITAL DISPLAY BLOCK 
;SL'r THF DISPLAY POIrtTFR 

;AND THF CUR»<Ff^T CmAH ADUR 

;SLT TtiF CuPRFWT LINE 
;PARAi^ETt:PS 

;IwJTIALlZe THE KIGHX HAHGXfJ 

;TU rnt L.AST CuLUMiM 
;PFTURN 
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ITEM 

2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
21 IB 
2119 
2120 
2121 
2122 
2123 

212 4 
2125 
2 I 2b 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2l3b 

213 7 
213B 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
214b 
2147 
2148 
2149 
2150 
2151 



LUC 

05E4 
05fc:4 
05114 
05fc4 
05fi:4 
05E4 
05t4 
05E:4 
05e4 
05E4 
05fc4 
05t4 
05E4 
05e4 
05£;4 
05fc;4 
05£4 
05P:4 
05E7 
05fc:9 

05 EC 
OSfeiF 
05KP 

oseF 

05EF 
05t:F 
05F2 
05F5 
05FB 
05FA 
05FC 
05FF 
ObOO 
0603 
0604 
06U7 
0609 
06oA 
060A 
ObOA 
ObUA 
060A 
06uA 
060A 

06 A 
060A 
060D 
0610 



OBJECT CODE SOURCK STATFMKNT3 
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3 A 
Fib 
CC 
CA 



CD 
C2 
3A 
Eb 

Ed 
C2 
79 
CD 

Da 

3 A 
Fb 
CO 



FB 
01 
47 
OA 



BC 
OA 
F3 
OA 
08 
OA 

CI 



FF 

10 
Oo 



19 

06 
FF 



06 
17 
FF 



bOCHN - PHOCESS IjUCAL DATA KrvTRi ♦ 

FWTHY: C = INPUT CHAHACTt:P 

(CHARIN) = KEiVBUAHn IImPUT CODc: 



EXIT 



MA, REGISIEKS DESTPUYED 



THIS ROUTINE PPUCESSES IWPUT CHARACTEHS FROrn 
KEYBQARl), IHE ROUTINE DETERS I ^JES WHETHER OR 
NOT THE CHARACTER SHOULD BE TRANSMITTED PR 
PROCESSED LOCALLY 

LOCLTO - PPOCESS FUNCTIONAL KEY INPUT 



LOCLIO Fyu $ 

LDA KBJMPR 

AiU CONDIS 

CZ CKDSPF 

JZ LC1050 

; TRANSMIT CODE IF 



;GET KEYbOAPu JUMPERS A-H 
;DISPI-AY ALL FUNCTIONS OR 

; D 1 SPL A y F U NC T I f'iM S F tM ABLED 
;tiO - PROCESS LOCALLii ONLY 

Ih DEMOTE CHARACTER MODE ♦ 



LOCLIN' EQU $ 

CALL CHKSFK ;SOFT KEY DEFINE ^UDE? 

OtiZ LC1050 ;YES - PROCESS LOCALLY ONL^ 

LDA MDFLG2 ; NO - GET HARD MODE FLAGS 

AMI REKOTE + BLKiyiDE 

XRI REt'iOTE ? REMOTE AND NOT LLOCK MODE? 

JNZ LC1050 ;NU - PROCESS LHCALLX ONLY 

WOV A,C ;YES - RECALL THE INPUT 

CALL XPUTDC ; OUTPUT IHE CHARACTER 

RC ;(RFTUR^i IF OUIPUT ERROR) 

LDA KFvDCSW ;GE1 THE DATA COMH SWITCHES 

AN I FULDUP ;FULL DUPLEX? 

Rf^Z ;YES - RETUR-^< 

NO - PROCESS INPUT LOCALLY 

t :|£ * ♦ )»i :tt t * ♦ ♦ 

LOCALLY ♦ 



? PROCESS THE INPUT 

^^^:li:^^^7lft*t^^ ******* 



INPUT CHARACTER IN C-REGISTER 



LC1050 



CD 
C2 
C3 



76 

B9 
50 



19 
03 
03 



E^U 
CALL 
JNZ 
J MP 



CHKFMS ; FORMAT/SOFT KEY DEFINE MODE 
CHINTI ;Y£S - FORCE FULL PROCESSll^G 
CHINT ;N0 - 1ST TRY FAST PRCCESSIN 
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ITEM 



LOC 



2153 


0613 








2154 


0613 








2155 


0613 








2156 


0613 








2157 


0613 








2158 


0613 








2159 


0613 








21b0 


0613 








2161 


0613 








2162 


0613 








2163 


0613 








2164 


0613 








2165 


0613 








216b 


0613 








2167 


0613 








2168 


0613 








2169 


0613 








2170 


0613 ( 


:o 


81 ' 


l^ 


2171 


0616 C 


:a 


07 ( 


)B 


2172 


0619 C 


:d 


47 ( 


)6 


2173 


061C 




• 


> 


2174 


06lC '. 


JA 


9A I 


^t' 


2175 


061F r 


yi 


• 


, 


2176 


0620 ( 


:c 


4U 


lu 


217 7 


0623 ( 


:2 


51 ( 


3o 


2178 


06^6 : 


?A 


C9 I 


rf 


217^ 


0629 ^ 


^6 


• 


. 


2180 


062 A ( 


:a 


51 ( 


16 


2181 


062D 


• . 


• 


> 



Rev AUG-01-76 

OBJECT CODE SOURCE STATEMENTS fc'AGE 60 

PTBLK - HELEASE A LINE TU THE FREE LiST ¥Puf^ ♦ 
THE DISPLAY LIST ♦ 

EnTHY: DON'T CAPE 



EXIT 



PTbLK 



Z - LINE NOT HELEASbO 

MC " MEMOKY LUCKEU 

C - OUTPUT FAILED FUF EDIT ^iOUF 

ALF. REGISIEhS DESIFUYED 
hZ - LINE RELEASED 

D,E = AuDkESS of FIrTri bY IF FHDM 

A = E 

B,C,H,L ntSTPOYED 



i LOCK ENABLED? 

FLAG r^FN.i!HY FULL 
H DISPLAY PAKAMt lEH-S 
N SOFT KEY '^UDE 
UN'BER UF PU'aS i^lEEDED 
UwS BEiKb ADUEU? 
EH IT MUDE? 

RELEASE TUP r,lNE 
GET CURRENT LINE ADDH 
UTLY IN THE LAbT Ul^Z 

RLLbASE TOP LINE 
ELt-ASE BOTTOM LINE 



Egu 


s 




CALL 


CHFMbK 


;V£-vuP 


JZ 


MLUCK 


;yes - 


CALL 


PI6100 


;SaITC 

IF I 


LDA 


NROWS 


;GEl N- 


IIHA 


A 


; N t A H 


QZ 


CREDIT 


;Nu - 


Ji^Z 


PTB200 


;YbS - 


LhLD 


LSILIM 


;fvO - 


Oka 


'"i 


;CURRK 


yVl 


PTb200 


;Yt.S - 

ImO - P 
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IftlW 



LOG 



OBJECT CODK SOURCE: SlATEiMENTS 
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PAGE bl 



2183 


062D 


• 


2184 


062D 


• 


2185 


0620 


• 


2186 


06 2D 


• 


218 7 


062D 


2A 


2188 


0630 


23 


2189 


0631 


23 


2190 


0632 


5E 


2191 


0633 


23 


2192 


0634 


5b 


2193 


0635 


EB 


2194 


0636 


22 


2195 


0639 


• 


2196 


0639 


• 


2197 


0639 


• 


2198 


0639 


3b 


2199 


063R 


23 


2200 


063C 


3b 


2201 


063E 


IB 


2202 


063F 


in 


2 20 3 


0640 


IB 


2204 


06 41 


C3 


2205 


0644 




220b 


06 44 




220 7 


0644 




2208 


0644 




2209 


0644 


CD 


2210 


0647 


• 


2^11 


0647 


CD 


2212 


064A 


37 


2213 


064B 


C2 


2214 


06 4E 


C9 


2-<!15 


064F 


00 


2216 


0650 


00 



Al FF 



Al 



E 

8C Ob 



8C 1 



6F 21 



OB 

9 



♦ ♦♦* 
BEL 
UPU 

♦ ♦♦♦ 



♦ ♦♦♦ 

♦ ♦♦* 



EASE LAST LI 
ATE LAST LIN 

^ f 4( 4( % 4 ;«: ;f :«: f J); f 

LHLD LLINE 
INX ri 
I NX H 

MUV E,M 
INX H 
MOV D,M 
XCHG 
SHLD LLXNE 

♦ ;► * 4 ♦ 4l 4c 4 4t 4 t ♦ 

PE EOF IN NE 

If ♦ :»: ^ :*: :|r * jj: ♦; 4i t + 

MVI M,0 



:^ ^H! }^ t ^^ '^ * ^ * -^^ * ^ 

NE UP MEMORY ♦ 
E POlNTfcR ♦ 

;GET LAST Lll^E ADDFESS 
;GET PHRVIOUS LINE ADDRESS 



INX 
MVT 
DCX 
DCX 
OCX 
J MP 



H 

H,EOP 

D 





PTB30 



♦ ♦♦♦ 
PTB 

'TBOy 



100 - SET PH 

♦♦♦♦♦♦+ ♦♦♦4* 







p 

PTBIOO 



CALL 

Egu 

CALL 

STC 

JNZ 

RET 

NOP 

NOP 



S 

MLKOl 
$ 
CHKSF 

SWAP! 



;SET PHEV LJf^F AS LAST LIME 

W LAST LINE ♦ 

;SET TEPMINATOR CODF IN 
;rvfcw LASi Ll/^iF 

;SET D,E TO POINI TO I;SB PAR 
;j^EXl' LINE POINTER IN OLD 

;last line 
;add LI^E 10 free list 

OPER UlSPLAi PARArtElERS * 

;I/0 OUTPUT FAIL EXIT 
;CLEAR POrtS ALLOCAIFU FLAG 

K ;S0F1 lM:i DEFTNE N'ODE? 

;(SET C-FIAG FOR I/O FAIL) 
;YES - SWAP DISPLAY PAR'^S 
;N0 - RETURN 
;"NOP'S" FOR PATCH TO "PI 772 
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XTEW 

2218 

2219 

2220 

2221 

2222 

2223 

2224 

2225 

222b 

2227 

2228 

2229 

22 30 

2231 

2232 

2233 

2234 

2235 

2236 

22 37 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 



LOC 

0651 

0651 

0651 

0651 

0651 

0654 

0655 

0656 

0657 

0658 

065B 

065B 

065B 

065B 

065B 

065E 

0661 

0662 

0665 

0668 

066B 

066C 

066D 

0670 

0671 

0671 

0671 

0671 

0671 

0674 

0675 

0678 

067B 

067E 

067F 

0680 

0681 

0682 

0683 

0684 

0687 

0687 

0687 

0687 

0688 

0689 

068B 

068C 

068C 



OBJECT COPE 



2A 
23 
23 

7E 
67 
C2 



21 
3A 
BE 
C4 
CA 
21 
4b 
05 
FA 
70 



2A 
EB 
CD 
C4 
DA 
EB 
5C 
23 
56 
13 
EB 
22 



23 
23 
36 
IB 



CO 
6B 

27 
04 
CO 



4D 
32 
44 



FF 



06 



FF 
FF 

OC 
OB 
FF 



71 06 



9F FF 



10 
28 
06 



F FF 



SOURCE STAlErtENTS I'AGE 62 

; RELEASE FIRSr LINE OF MEMORY ♦ 

PTB200 EQU $ 

LHLD TOPLIN ;GET TOP LINE ADDRESS 



INX 
INX 
MOV 
ORA 
JNZ 



;S£T FOR PREVIOUS 
; ADDRESS 



LINE 



H 

H 
A,M 

A ;TOP LINE = FIRST LINE? 
PTB220 r'FlRST LINE IS NOT TOP LINE 

TOP LIKE OF DISPLAY IS FIRST LINE OF ^^EMORY * 
DO RULL-UP * 

:^: 4 Jt,l^t^*'^t^*4^********^*'^^************^* ******* 



LXI HrCURROW 

LDA MLKROW 

CMP M 

CNZ ROLLUP 

JZ MLOCKO 

LXI a,CURROW 

MOV B,M 

OCR B 

JM PTB220 

MOV M,B 
J il^^fiHi^t*^^^^* ******** ********** 
; ADVANCE FIRST LINE POINTER * 



;USER WORKING IN FIRST 

;UNLOCKEU HOW? 
;N0 - ROLL UP DISPLAY 
;POLL UP FAIL - LOCK MEMORY 
; DECREMENT CURSOR ROW 



; DON'T STORE IF ROw = 



PTB220 



Egu 

LHLD 

XCHG 

CALL 

CNZ 

JC 

XCHG 

MOV 

INX 

MOV 

INX 

XCHG 

SHLD 



S 
FLINE 

CKEDIT 
PTTPLN 
PTB090 

E,M 
H 

0,H 
D 

FLINE 



;GET ADDRESS OF FIRST DISPLA 

;LINE 
;EDIT MODE ENABLED? 
;YES - TRY TO OUTPUT LINE 
;OUTPUT FAILED - RETURN FAIL 
;PUT ADDRESS BACK INTO D,E 
;GET ADDRESS OF NEW FIRST 

;F1RST LINE 

?SET TO NEXT LINE POINTER 



; STORE AS NEW FIRST LINE 
J 444*r^i^*4*****4********* ********************** 
; CLEAR PREVIOUS LINE PNTR IN NEW FIRST LINE * 

;^4i^i^*4********* ************** **************** 



INX 
INX 

MVI 
DCX 



H 
H 

M,0 
D 



; ADVANCE TO PREVIOUS LINE 

;POINTER 
;ZERO LS6 TO FLAG AS TOP LIN 
;SET D,E TO LSB OF NEXT LINE 

POINTER IN LINE TO BE 

RELEASED 
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ITEM 



LOC 



2268 


068C 


• 


2269 


o6ac 


• 


2270 


068C 


• 


2271 


068C 


• 


2272 


068C 


. 


227 3 


06BC 


D5 


2274 


068D 


CO 


227b 


0690 


Dl 



OBJECT CODE SnUPCF STATEMEi>ITS PAGE 

REiiEASE LINE ♦ 

D,E = START ADDRESS QF LINE * 

PTb300 EyU $ 

PUSH D ;SAVE REGISTERS 

47 06 CALL PTBIOO ; RESTORE PROPER 

PUP P ; RESTORE D,E 



63 



0,E 

DISPLAY PARM 



13255-90003 
ITEM LOC 
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2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 



0691 
0691 
0691 
0691 
0691 
0691 
0691 
0691 
0691 
0691 
0691 
0691 
0691 
0691 
0691 
0691 
0694 
0697 
0698 
069B 
069C 
069D 
069E; 
069F 
06A0 
06A1 
06A2 
06A3 
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OBJECT CODE SOURCE STATEMENTS 

PUTLIN - ADD LINE TO FREE LIST * 



ENTRY: D,E = ADDRESS OK NEXT LINE tlELD'S LSB 
OF LINE TO BE RELEASED 



EXIT ; D,E UNCHANGED 
A = E 
Z FALSE 
H,L DESTROYED 
FREE BLOCKS LIST 
RELEASE LINE 



CD 
2A 
EB 
22 
7D 
23 
23 
73 
2C 
72 
EB 
5F 
C9 



UPDATED 10 INCLUDE 



PUTLIN EgU $ 
CO 10 CALL MLKOF 

AC FF LHLD FRBLKS 

XCHG 
AC FF SHLD FRBLKS 



MOV 

INX 

INX 

MOV 

INR 

MOV 

XCHG 

MOV 

RET 



ArL 

H 

H 

M,E 

L 

M,D 

E,A 



; RESET MEMORY LOCKED FLAG 
?GET CURRENT FREE BLOCKS HEA 
;SET H,L TO MSB PART OF NEXT 
;SeT FREE BLOCKS POINTER TO 

; RELEASED LINE 
;PUT PREVIOUS FREE BLOCKS 
;HEAD INTO PREVIOUS LINE 
; POINTER OF RELEASED LINE 
; (USE INR TO FORCE NZ) 



; RELEASED LINE ADDRESS 
;SET A = E 
; RETURN 



IN D 



13255-90003 



Hev AUG-01-/6 



ITEM 

230b 
2307 
2 30 8 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2 335 
2336 
2337 
2338 
2339 
2340 



LOC OBJECr CODE SOURCE STArEivjENTS 
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06A4 
06A4 
06A4 
0f>A4 
06A4 
06A4 
06A4 
06a4 
06A4 
06A4 
06A4 
06A7 
06A9 
06AC 
06AC 
06AE 
06B1 
06B4 
06B4 
06B4 
06B4 
06B4 
06B4 
0665 
06BB 
06b8 
ObBB 
06BB 
06bE 
06C0 
06C3 
06C6 
06C8 
06CA 
06CC 



CD 
32 

3e 

C3 



2i 

36 
CO 
21 
36 
2E 
36 
C9 



23 

01 

• 

FF 
91 
B8 



9A 
FF 
OB 
9A 
00 
91 
00 



FF 
06 



AF 

3 2 CI FF 

3A CI FF 



FF 
7 



; HCADHA - LOCATE CURRENT CUHSUR PUSITION , * 
; IF PUSITION EXIST - DON'T EXTEND DISPLAY * 

.4tft + t**4;fiff* + 4tf*!jt+)t!4t1r*** ♦♦♦♦♦♦♦»♦♦♦♦*♦ ♦♦♦♦**♦ 

; ENTRY: DUN'T CARE 



EXIT 



SEE "RCADDR" 



RCADHA 



RCADHB 



EQU 
CALL 
M V 1 
ST A 

EQU 
MVI 
ST A 
J MP 



CRADVl 

AriGNTRM 

TRMFCT 

9 

A,377Q 

BLKFIL 

RCADR2 



; CLEAR CURSOR ADVANCE FLAG 
;SET TU IGimOHE NUN-DISPLA)^ 1^ 
?TER^aNATOK 



; LOC A 

; DO f'i 
;♦**** 
RCADRl 



;SET "bLKFlL" TO INHIBIT 

JLINE EXTENSION 
; LOCATE CURSOR POSITION 

TE ADDH CORRESPONDING TO ROW/COLUMN ♦ 
UT AUD ROWS iV RUW DOES NOl EXISI ♦ 

Egu s 

;SET TO LOCATE COLUMN 
;TN desired row 



XRA A 

SI A CURCOL 

hCADR2 EyO $ 

LUA CURCOL 

RCADR3 E^U $ 

LXI H,nR05«(S 

MVI M,3770 

CALL kCADRO 

LXI H,NR0WS 

MVI M , 

MVI L,BLKFiL-BASE 

MVI tAfO 

RET ; RETURN 



;GET THE CURRENT COLUMN 

;S£T "NROWS" TO iNHIblT 
; BUILDING OF NEW ROWS 
;FIND CHARACTER ADDRESS 
;RESET BUILD INHIBIT FLAGS 
; WITHOUT CHANGl^iG PPOCESSO 
; FLAGS 
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ITEM 



LOC 



2342 


06CD 








2343 


06CD 








2344 


06CD 








2345 


06CO 








2346 


06CD 








234 7 


06CD 








2348 


06CD 








2349 


06CD 








2350 


06CD 








2351 


06CD 








2352 


06CO 








2353 


06CD 








2354 


06CD 








2355 


06CD 








2356 


06CD 








2357 


06CD 








235B 


06CD 








2359 


06CD 








2360 


06CD 








2361 


06CD 






b 


2362 


06CD 3 


lA 


CI 


FF 


2363 


06D0 2 


!D 






2364 


06D1 C 


D 


BB 


06 


2365 


06D4 C 


•0 






2366 


06D5 4 


F 






2367 


0606 C 


C 






2368 


06D7 C 


D 


87 


OB 


2369 


06DA C 


D 


76 


19 


2370 


06DD A 


7 


• 


• 


2371 


060E 




• 


• } 


2372 


060E 




• 


• 


2373 


06DE C 


b 


• 


• 



OBJECT CODE SOURCE STATEMENTS PAGE 66 

RCADP4 - GET ADDRESS OF FIRST CHARACTER AFTER * 
AFTER PREVIOUS ROW AND COLUMN ♦ 

ENTRY: CURROW = CURRENT ROW 

CURCOL = CURRENT COlUMNN 

EXIT : Z - CHARACTER FOUj^D 
C = COLUMM lAiUMBER 
D,E = CHARACTER ADDRESS 
IF FORMAT MODE ENABLED 

B = -1, CHARACTER PROTECTED 

# -1, CHARACTER NUT PROTECTED 
OTHERWISE, B DESTROYED 
A,H,L DESTROYED 
NZ - CHARACTER NOT FOUND 
ALL REGISTERS DESTROYED 



RCADR4 EOU $ 

LDA CURCOL 
DCR A 
CALL RCADR3 
RNZ 

MOV C,A 
INR C 
CALL NXTCHR 
CALL CHKFMS 
MOV B,A 



RZ 



;GET CURRENT COLUMN NUMBER 
;S£T FOR PREVIOUS COLUMN 
;D0ES CHARACTER EXIST 
;N0 - RETURN 

;YES - SAVE COLUMM FOUND Ii\i 
; ADVANCE TO NEXT COLUMN 
J GET NEXT CHARACTER 
? FORMAT/SOFT KEY DEFINE MOUF 
;(SET B TO INDICATE NOT 
PROTECTED IF WOT FORMAT) 
NEXT STATEMENT RETURNS) 
;)MQ - RETURN 



HEM 



hoc 



OBJECT CODE 
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2375 
2376 
237/ 
2 37 8 
2379 
2380 
23B1 
2382 
2383 
2384 
2385 
2386 
238 7 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2 397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
240 7 
2408 
2409 



06DE 
06DF 
06DF 
06DF 
06E2 
06E5 
06E5 
06E5 
06E5 
06E5 
06e8 
06EB 
06KE 
06EF 
06EF 
06F2 
06F4 
06F7 
Qbil 
06F7 
06F7 
ObF7 
06F7 
06FA 
06Fn 
07 
0702 
07u2 
0705 
7 06 
7 06 
07o6 
0706 
07 06 
0707 



CD 
CA 



CD 
C2 
2A 

EB 



21 

4E 



AF 
C9 



65 
F7 



90 
F7 
C3 



CD 87 
06 00 
C3 02 



:n C2 

CD AO 

C2 EF 

06 FF 



10 
06 



IE 

06 

FF 



OB 



07 



CI 
IE 
06 



CI FF 



FOPMAT MODE - SEE IF iMEXT ASCII CHAH PROTECTED 



; :ft * t ♦ ■♦ 

; i.AST 
; SEE 



HC4010 



• ♦ ♦ t ♦ t 
; PRUT 
; SEE 

HCA440 



KCA460 



CALL 
JZ 

'♦^ * ♦ ■♦ * 

CHAH 
IF NE 

♦ * f ♦ * 

CALL 

jnZ 

LHLD 
XCHG 

Egu 

CALL 

MVI 

JMP 

♦ ♦ ♦ t * 
ECT C 
IF SU 

♦ *♦*» 

Egu 

LXI 

CALL 

JNZ 

MVI 

Egu 

LXI 

MOV 



CKPROT 
RCA440 

WAS UMPR 
XT CHAR I 

T ^ TT "^ ^ T * * * 

FNDCHO 
RCA440 
CUHADR 



NXTCHR 

B,0 

HCA460 

HAR FOUND 
BSEOnENT 
♦ ♦■♦^^♦♦•♦** 
S 

h,ENuPH* 

FNDCH 

KC4010 

B,-l 
$ 

H,CiJRCUL 

CM 



; PREVIOUS CHAR PROTECTED? 
;YES - SEE IF iNEXT CHAR UnPR 

U TEC TED ♦ 
S PRUlECi'ED ♦ 

jjt ♦ ;»t 4c ;». * 41, ♦ 4: ♦ t 4^ ♦ 

;1S NEXT CHARACTER PROTECTED 
;YES - SEE IF NEXT IS UNPRuT 
;N0 - RECALL CURRENT CHAR 
; ADDRESS AND PUT INTO D,t 

;GET NEXT DISPLAY CHARACTER 
;SET B FOR NOT PROTECTED 
;FXIT CHARACTER FOUND 

UNPROTECT CHAR ♦ 

256'f-XMONLy ;IS NEXT CHARACTER 
;AN UNPROTECI OR XMIT ONLY 
;Y£S - RETURN UNPROTECTEJ 
;N0 - RETURN CHAR PROTECTED 



/RECALL CHRSOR COLUMIm 



ZRFTRi>i - RETURf^i WITH Z-FLAG TRUE 



ZRETRN Egu $ 
XRA A 
RET 



;SET ZERO FLAG 
; RETURN 



1325!5'-9000i 



ITEM 

24 U 
2412 
2413 

2414 
2415 
2416 
241? 
2418 
2419 
2420 
2421 
2422 
242 i 
2424 
2425 
242d 
2427 
2428 
2429 
7i30 
2431 
2432 
2433 
2434 
2435 
243o 
24 3 7 
243d 
2439 
2440 
2441 
2442 
2443 
2 44 4 
2 44 5 
244b 
244? 
244 ti 
2449 
2450 
2451 
245^ 
2453 
2 454 
2455 
2456 
2457 
245b 



LUC 

0708 
07u8 
0708 
0708 
0708 
0708 
0708 
0708 
0708 
0708 
0708 
0708 
0708 
0708 
0708 
0708 
0708 
07u8 
07o8 
0708 
0708 
0708 
07u8 
07u8 
0708 
070H 
07o8 
O7o8 
07o8 
0708 
0708 
07uB 
07u8 
070B 
070B 
07 uE; 
0711 
0714 
0715 
07E6 
0719 
071C 
071C 
07 IC 
071C 
071C 
071D 
071E 



Rev AUG-0l-7b 

UBJECT CODE SDURCF STATEMENTS 



PAGE 68 



32 
3A 
2A 
44 
95 
2A 
CA 



5E 
B7 
E2 



HCADDR - DETEPMIhF LUCATIGim UF AbClI CHARACTER ♦ 
AT StEClEIED PUw AND COLUMN UF DISPLAY r 1ST * 



ENTRY 



CURKOW,CUHCUL = DESIHEO ROW/CuLuMiJ 
LSTROWrLSlCOL = LAST hO^^/CC'LUMM DOrJE 



CUPADK = ADDRESS 

LSTRDa, LSTCOL 

LSTLlN = ADDRESS 

TO LSiPUv-J 
NHOaS = 0, BUILD 
# 0, DHN'l 
BLKFIL = 0, 
fl , 



CORPESPnNiUMG TO 

OF LINE CORRESPONDING 

r-ihw ROwS AS NEt.DED 

BUILD NEwhflWS 
EXTE^'D LINE AS ivFEPED 
DU^i'T EXTE.MD blNE 



Exn 



Z - CHARACTER FUUnD 
^.B^CL OESTRGYED 
>i'l - CHARACTFh nut EflUNu 
M - RuWo tvOr bUlLT 

E = ."DUMBER UF RuWS NEEDED 
P - RO'A LUCATbD 

A = COLUMN NU.MBER FuUnD 
B = 9.{j^ MUMbER f OUND 
C = NUf^BER UF CHAkACTEPS NEEDED 
D,E = ADDRESS OF i.AoT CHARACTER FUUND 
H = BASER 

LSfRiM, LSTCOL, LSTLIN^CURADR ARE UPDATED 
TO THE LAST CHARACTER FOUnD. 



3 A CI FF 



85 



C7 



C9 
5tu 



FF 
FF 
FF 



FF 
7 



35 07 



rcaddr e^d 

LDA 
RCADkO FgU 
STA 
LDA 
LHLD 
MOV 
SUB 
LHLD 
JZ 

* ;»! 4 » 4t ♦ j|£ ♦ :f 3»: 4- 

; ROW HAS C 
; LOCATF ST 

MOV 

ORA 
JP 



$ 

CUHCOL ;GET DESIRED COLUMiSi NUMBEP 

$ 

IMPCOL ;Sfs'^iL DESIRED COLUMN KUMbFR 

CURRU'w ;GET THE DESIRED POw NUMBER 

LSiROW ;GET LAS'i ROa A WD COLUMN DON 

B,h ;PUT LAST COLU.viw In B-HEb 

L ; MOVED TO A NEW ROw? 

bSl'Lir^ ;(GE1 LAST LINE DHnE ADDn) 

hCA240 ;YES - LOCATE COLUMN 

:«: 4: 4 #: t 4 * f 4! 4 4: 4" 4 4^ 1" * 

HANGED ♦ 

ART OF NE»^/ ROW * 

♦ ♦4;4:t ♦♦♦♦ + ♦♦♦*** 

E,A ;SAVE COUNT 

A ;SET FLAGS 

RCA 140 ;ROW IS AHEAD OF THIS ROw 



ITEM 



LOC 



OBJECT CODE 



2460 


0721 








2461 


0721 








2462 


0721 








2463 


0721 








2464 


0721 








2465 


0721 


23 






2466 


0722 


23 






2467 


0723 


CD 


6D 


19 


2468 


0726 


10 


• 


• 


2469 


0727 


C2 


21 


07 


2470 


072A 


C3 


54 


07 


2471 


072D 








2472 


072D 








2473 


072D 








2474 


072D 








2475 


072D 








2476 


072D 


CD 


6D 


19 


2477 


0730 


23 






247 8 


0731 


ID 






2479 


0732 


CA 


54 


07 


2480 


0735 


• 






2 481 


0735 


7h; 






2482 


0736 


B7 






2483 


0737 


02 


2D 


7 


2484 


073A 








2485 


073A 








2486 


073A 








2487 


073A 








2488 


073A 








2489 


073A 


CD 


76 


19 


2490 


07 3D 


02 


01 


OB 


2491 


0740 


21 


9A 


FF 


2492 


0743 


B6 


• 


• 


2493 


0744 


CO 


• 


• 


2494 


0745 


73 


• 


• 
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; ROW IS BtFOFE CUHRENT ROW * 
; SEARCH BACK * 

RCA 120 EQU $ 

;SET ADDRESS TO PREVIOUS 
;LINt: POINTER 
;GET ADDRESS OF PREVIOUS ROW 
;ROw FOUND? 

?N0 - CONTINUE BACKING UP 
;YES - SET NEW ROW 



INX 

INX 

CALL 

INR 

JNZ 

JMP 



H 

ri 

CHAIN 
L 

RCA120 
RCA220 

; ROW IS AHEAD OF CURRENT ROW ^ 
; SEARCH AHEAD ♦ 

RCA130 EQU $ 

CHAIN ;GET 
H ; SET 

E ;Ruw 

RCA220 ;yES 

$ ;N0 - 
A,M 



RCA140 



CALL 
INX 
DOR 
JZ 

Egu 

MUV 
ORA 
JNZ 



RCA130 



ADDRESS 
TO NEXT 
FUUND,'' 

- LOCATE COLUMN 
CHECK FDR ANOTHER 



OF NEXT ROW 
LINE PTR ADDRES 



ROW 



GET LSB OF NEXT R05^ POINTER 

DOES NEXT ROW EXIST? 

YES - CHECK FOR ROW FOUND 



; ROW NOT IN MEMORY ♦ 
f CREATE NEW ROW ♦ 

HCA200 EQU $ 

CALL CHKFMS 
JNZ 



LXI 

ORA 
RNZ 
MOV 



NZEXIT 

H,NROWS 
M 

M,E 



FORM AX/SOFT KEY DEFINE MODE 

YES - DO NOT BUILD ROWS 

NO - GET bUILU tl.AG 

INHIBIT ROW BUILD? 

YES - RETURN CA = 377b) 

NO - STORE # OF ROWS NEEDED 
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ITEM LOC OBJECT CODE SOURCE STATEMENTS PAGE 70 

2496 0746 • . . ;*41^**^f^**'****^*n^*4****^**^**** 

2497 0746 ... ; GET NEW ROW AND LINK TO OLD ♦ 

2498 0746 ... ;♦»♦♦♦♦♦»*♦♦♦♦*♦♦***♦*♦♦♦♦♦♦♦♦♦ 

2499 0746 . . . RCA210 EQU $ 

2500 0746 CD 9? 05 CALL GTNWLN ;ADD A LINE TO THE DISPLAY 

2501 0749 CO . . RNZ ; RETURN FAIL IF MEMORY LOCKE 

2502 074A 21 9 A FF LXl H,NROWS ; DECREMENT # OF ROWS NEEDED 

2503 074D 35 . . DCR M ;ALL NEEDED ROWS ALLOCATED? 

2504 074E C2 46 07 JNZ RCA210 ;N0 - GET ANOTHER ROW 

2505 0751 ... ;♦»♦♦:!:»*♦♦♦*♦♦♦♦♦♦♦=♦;♦♦*♦♦***♦*♦*♦♦♦*♦ 

2506 0751 ... ; ALL REgUIRED ROWS HAVE BEEN ADDED ♦ 

2507 0751 . . • ;♦♦♦♦♦♦♦******♦♦♦♦*♦♦**♦»♦♦♦♦♦♦*♦♦♦♦♦ 

2508 0751 2A Al FF LHLD LUNE ;GET START ADDRESS OF ROW 

2509 0754 , . . RCA220 EQU $ ; UPDATE LOCATE COLUMN 

2510 0754 CD 9C OA CALL LSTLUP ;SET "LSTUN" TO NEW ROW 

2511 0757 3A 85 FF LDA TMPCOL ; RECALL COLUMN TO BE FOUND 

2512 075A 4F . . MOV C,A ;PUT COLUMN NUMBER INTO C-RE 

2513 075B C3 69 07 JMP RCA245 ;G0 LOCATE THE COLUMN 
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ITEM 

2515 
2516 
2517 
251B 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
253? 
253B 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 



LOC 

075E 
075E 
075E 
075E 
075E 
075E 
076l 
0762 
0763 
0766 
0766 
0766 
0766 
0766 
0769 
0769 
0769 
076B 
076E 
07 71 
0771 
0771 
0771 
0771 
0771 
07 7 2 
0775 
07 76 
0777 
077A 
077B 
07 7 B 



OBJECT CODE 



3A 
4F 
90 
F2 



CD 9F 



3e 01 
32 6D 
C3 7b 



4F 
2A 
EB 
04 
C2 
OD 

IB 



C3 



FF 



FF 



FF 



SOURCE STATEMENTS 

CURRENT ROW = DESIRED ROW ♦ 
CHECK COLUMN * 



PAGE 71 



RCA240 



EQU 
LDA 
MOV 
SUB 
JP 



TMPCOL ;GET THE DESIRED COLUMN 

C,A ;PUT IT INTO THE C-REGI 

B ; COLUMN WANTED >= LAST 

RCA250 ;YlS - SCAl^^ FORWARD 



SXER 
DOME? 



DESIRED COLUMN LESS THAN CURRENT COLUMI^ ♦ 
START SEARCH AT BEGINNING OF ROW * 



CALL LSTLUl 



;SET LINE START P^RAHETERS 
(PUTS tt,L INTO D,E) 



RCA245 



Egu 

f^Vl 
STA 
vIMP 



A,1GNTkM ;SET function flag to IGNORE 
TRMFCT ;N0N-DISPLAYING TERMLNATOR 
RCA255 ?G0 LOCATE COLUMN 

DESIRED COLUMN AT OR PAST CURRENT COLUMN ♦ 
START SEARCH AT CURRENT COLUMN ♦ 

RCA250 EgU $ 

C,A ;SAVE n OF COLUMNS TO ADVANC 
CURADR ;GET ADDR OF LAST CHAR DONE 



RCA255 



MOV 

LHLD 

XCHG 

li^R B 

JNZ 

DCR 

EQU 

DCX 



RCA260 
C 

$ 
D 



;does LSTCOL = -1? 
; NO 

;DECREMEiMT COLUMN COU^T 

;SET TO isiEXT DISPLAY BYTE 



13255-90003 
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OBJtCT CODE 






254b 


077C 


• 




• 


2549 


077C 


• 




• 


2550 


077C 


• 




• 


2551 


077C 


• 




• 


255/ 


077C 


• 




• 


2553 


077C 


21 


Ft 


FF 


2554 


077F 


CD 


cr 


Ifc 


2555 


0782 


3fc; 


00 


• 


2550 


0784 


32 


6i) 


FF 


2557 


0787 


CC 


69 


09 


2558 


078A 


Kb 


• 


• 


2559 


0788 


22 


C3 


FF 


2560 


07bE 


EB 


• 


• 


2bbi 


078F 


21 


CO 


FF 


25o2 


0792 


46 


• 


• 


2563 


0793 


3A 


85 


FF 


2564 


0796 


00 


• 


• 


2565 


0797 


FA 


9B 


07 


2566 


079A 


91 


• 


• 


256/' 


079B 


• 


• 


• 


2568 


079B 


68 


• 


• 


2569 


079C 


67 


• 


• 


2570 


079D 


22 


C7 


FF 


2571 


07A0 


2o 


FF 


• 


25 72 


07A2 


OC 


• 


• 


2573 


07A3 


C9 


« 


• 



SOURCE STATEMENTS tAGfc. 7^" 

; ROW HAS BEEN FOUND * 

; SEARCH FOP DESIRED COLUMN ♦ 

RCA260 EQU $ 

H,DISPST ;SET FOP NO CHARACTEf^. i^hiCH 
FNDCHR ;DOES CHAFACTER EXIST? 
A,UELTRM ;SET FUNCTION FLAG TU DELETE 
TRMFCT ; NUN-DISPLAYING 'AEHf^INATUH 
EOlMVO ;N0 - TR^ TO MUVt EHL 

;SET NEW CURRENT CHAR ADDRES 



RCA270 



LXl 

CALL 

MVI 

STA 

CZ 

XCHG 

SHLD 

XCHG 

LXI 

MOV 

LDA 

DCR 

JM 

SUR 

Fgu 

MOV 

MUV 

SBLL 

MVI 

INP 

RET 



CURAOR 

HrCUKRUH 

B,M 

TMRCOL 
C 

RCA270 
C 
$ 

L,B 

H,A 

LSTRUW 

H,b ASEH 



;GET DESIRED ROW AND COLUMN 
;CONVERT TO COLUMN FOUND 



; UPDATE 
;DONE 

;SET li 
; RESTORE 
/RETURN 



LAST ROW AND COLUMN 



TO DATA PAGE 
ZbRO FLAG 



13255-90003 



ITEM 

2575 
257t> 
2577 
257 b 
2579 
2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2bOB 
2609 
2610 
2611 
2t>12 
2613 
2614 



LOC 

07A4 
07A4 
07A4 
07A4 
07A4 
07 A4 
07A4 
07A4 
07A4 
07A7 
07AA 
07AB 
07AC 
07AE 
07B0 
07B2 
07B4 
07a7 
0?ti8 
07B9 
07bC 
07BD 
07BF 
7C2 
07C2 
07C4 
07C5 
07C6 
07C9 
07CA 
07CA 
07CC 
07CD 
07DO 
07D2 
07D3 
0704 
07D6 
07l)7 
07D8 



OBJECT CODE 



SOURCE STATEMENTS 



Kev AUG-01-76 
y AGE 7 3 



Cu 
3A 
05 
E5 
E6 
D3 
F6 
D3 
21 
7E 
3D 
FA 
77 
3b 
CC 

2l 
7E 
3D 
FA 
77 

2fc 
3d 
C2 
36 
23 
7E 
2t 
At. 
11 
32 



52 

• 

DB 
20 



55 



TIMER INTERRUPT RRuCESSIiMG ♦ 

ENTRY: "PSW" AWD B,C PUSHED 
A = INTERRUPT CODt: 



65 91 

F5 FF 



FD 
70 
02 
70 
DO FF 



C2 

06 

08 

• 

50 



CA 



;TRY ALTEFiMATE INTERRUPT 
;GET PROCESSUR STATE 
jSAVt REMAINING REGISTERS 



;Rt-ENABl4E THE TINER 

; DECREMENT SOFT RESET DELA^ 

; TIMER 
;C0UNT1NG uOwN? 
;N0 - DON'T UPDAIE TlMfiP 
?YES - STORE NEW VALUE 

?(SET FOR RESET LED'S) 
; RESET LED'S IF TIME DONE 



00 8B 



TMINTR EQU $ 

CALL INTVEC 

LDA PRCCTL 

PUSH D 

PUSH H 

AM 37 7Q-TiMlEN 

OUT PRUCSR ; ACKNOWLEDGE TIMER INTERRUPT 

OR I TMIEN 

OUT PROCSR 

LXT H,RSTTMR 

MUV A,iM 

OCR A 

JM TMIOIO 

.MOV M,A 

MVI A,ENDTST 

C2. ZKbCTL 

TMIOIO EQU $ 

MVI L,IPSTAL-BASE ; DECREMENT TAPE STALLED 

MOV A,M ?COU(MTER 

DCR A ; STALL LIMIT REACHED.^ 

JM TM1020 ;YES - DOi^'T UPDA IE COUNTER 

MUV M,A ;N0 - STORE NEw VALUE 

TM1020 EUU S 

MVI L,CTBLT^i-E<.ASE ; DECREMENT BLINK 

OCR M ;T1ME OUT? 

JNZ TMllOO ;N0 - EXIT 

MVI m,ctbdlY ;yes - reset timer 

I NX H 

MOV A,M ;GET CTU BLINK MASK 

f^tVI L,CMND-BASE 

XRA M ; TOGGLE BLINKING LIGHTS 

MOV M,A ; UPDATE LIGHT STA'JE 

STA iOCTCO ;SEI CIU LIGHTS 



TIMER 
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ITEM LOC OBJECT CODE SOURCE STATEMENTS' 



; PERFORM KEYBOARD AND 
; ROUTINES 

TMIIOO EgU $ 



26]16 


07DB 




• 


• 


2617 


07DB 




• 


• 


2618 


070B 




« 


• 


2619 


07DB 




• 


• 


2to20 


0708 




• 


• 


2621 


07DB 


21 


F6 


FF 


2622 


07DE 


3E 


04 


• 


262i 


07E0 


BE 


« 


• 


2624 


07E1 


CA 


F7 


07 


2625 


07t4 


77 


• 


• 


2626 


07E5 


3A 


7F 


FE 


2627 


07E8 


8 7 


m 


• 


2b28 


07E9 


FC 


OB 


60 


2629 


07EC 


CD 


OB 


48 


2630 


07eF 


F3 


• 


• 


2631 


07FO 


CD 


OE 


50 


2632 


07F3 


• 


• 


• 


2633 


07F3 


a 


• 


• 


2634 


07F3 


21 


F6 


FF 


2635 


07F6 


35 


• 


• 


2636 


07F7 


• 


• 


• 


2637 


07F7 


El 


• 


• 


2638 


07F8 


Dl 


• 


• 


2639 


07F9 


CI 


• 


• 


2640 


07FA 


Fi 


• 


* 


2641 


07FB 


FB 


• 


• 


2642 


07FC 


C9 


• 


• 





LXI 


H,INTFLG 




MVI 


A,TMRINT+1 




CMP 


M 




JZ 


TMinO 




MOV 


M,A 




LDA 


DEVFLG 




ADD 


A 




CM 


ZMONAL 




CALL 


ZKBMON 




DI 




• 


CALL 


ZDCMON 


• 


LXI 


H,1NTFLG 




OCR 


M 


TMIUO 


EQU 


$ 




POP 


H 




POP 


D 




POP 


B 




POP 


PSW 




El 






RET 





PAGE 74 
DATA COMM MONITOR * 

;GET IfJTERHUPT FLAG 

?TIMER INTERRUPT ALREADY 

;IN PROGRESS? 
;YES - DON'T DO MONITOR CALL 
;N0 - SET IN -PROGRESS FLAG 
;GET DEVICE FLAGS 

; alternate; t/o installed? 
;yes - monitor alt device 

;♦ keyboard monitor routine 

♦ RE-ENABLES INTERRUPTS * 

;SET INTERUPT CODE TO 

; INDICATE TIMER INTERRUPT 

/RESTORE CONTENTS OF 
;ALL REGISTERS AND 
;ALL condition FLAGS 

; RE-ENABLE INTERRUPTS 
/RETURN TO NORMAL PROCESSING 



13255-90003 



ITEM 



LOC OBJECT COOe SOURCE: STATEHKNTS 



Hev AUG-01-76 
FAGF. 75 



2644 


07FD 






2645 


07FD 






2646 


07FD 






2647 


07FD 






2648 


OP 00 






2649 


0800 


51 . 




2650 


OBOl 


08 





; ROM BREAK 1 ♦ 

ORG BEG1N+4000Q 

2.BRK1 EgU $ 

DB VERSNl ;RUV PRESENT FLAGS 

DB ZBRK 1/256 



13255-90003 
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ITfcIrt 

2652 
2b53 
2654 
2655 
26Sb 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 



LOC 

0802 
0802 
0802 
0802 
0802 
0802 
0802 
0802 
0802 
0B02 
0802 
0802 
0802 
0802 
0802 
0802 
0802 
0802 
0804 
0805 
0807 
0808 
0809 
080A 
080C 
080C 
080E 
0810 
0811 
0812 
0813 
0814 
0815 
0816 
0817 
0818 
081B 
081C 



OBJECT CODE SOURCE STATEMENTS PAGE 76 

BINOCT - CONVERT BINARY 10 OCTAL ASCII * 

ENTRY; A = DIGIT TO BE CONVERTED 

H,L = ADDRESS OF OUTPUT BUFFER'S 
HIGH ORDER BYTE 

EXIT : H,L = H,l.CENTRYJ+4 
A-C DESTROYED 



36 

23 

06 

07 

07 

4F 

E6 

* 

E6 

F6 

77 

23 

79 

07 

07 

07 

4F 

05 

C2 

70 

C9 



20 



03 



03 

07 
30 



OC 



FIRST BYTE 15 SET 
BYTES CONTAIN THE 
THE INPUT VALUE. 
ZERO CWULL). 



BINOCT 



BNOOIO 



08 



EQU 

MVI 

INX 
MVI 
PLC 
PLC 
MOV 
iVNI 
EOU 
ANI 
OR I 
MOV 
INX 

r^ov 

RLC 
PLC 
PLC 

MQV 

OCR 
JNZ 
MOV 
PET 



M,ABLNK 

H 

B,3 



C,A 

30 

S 

7Q 

ZERO 

M,A 

H 

A,C 



C,A 
B 

BNGOIO 
M,B 



TO BLANK. THE NEXT THREE 
ASCII OCTAL EQUIVALENT OF 
THE FIFTH BiCTt IS SET TO 



;SET FIRST BYTE TO BLANK 

;SET B TO NUMBER OF DIGITS 
; ROTATE DOWN TWO HIGH ORDER 

;eiTS 

;SAVE VALUE IN C-PEGISTER 
;MASK OUT TWO HIGH OHDEP BIT 

;MASK out next THREE BITS 
;ADD IN ASCII ADJUSTMENT 
; STORE ASCII CHARACTER 
MWCREMENT TO NEXT BJ^TE 
? RECALL INPUT 
; ROTATE TO NEXT THREE BITS 



;SAVE VALUE 

;ALL bits DONE? 

;N0 - SET NEXT BYTE 

;YtS - STORE NULL IN BUFFER 

; RETURN 
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ITEM 

2b91 
2692 
2693 
2694 
2695 
2696 
2697 
269a 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
27 09 
2710 
2711 
27 1<^ 
2713 



i.uc OBJKCT CODF shupcf: STATFMFNTS 



Hev AUG-01-76 
PAGF: 7 7 



OB ID 
081D 
OBID 
OB ID 
OBID 
081D 
OBID 
081D 
08 ID 
081D 
081D 
081D 
0810 
OB ID 
OBlD 
0B20 
08 2 3 
0823 
0826 
0826 
0827 
0B29 
0B2B 



22 
?1 



96 FF 
6A 08 



22 Ct FF 

• • • 

5F . 

lo 00 • 

OE 01 

C3 45 08 



BN2Di':0 - CONVERT SINGLE BYTE TO ♦ 
ASCII DECIMAL ♦ 

EhTRY: a = B/TE 10 BE CONVERTED 

H,L =: ADOHKSS OF OUTPUT BUFFEK'S 
HIGH OHDER ADUPESS 

EXIT : NZ 

H,L = H,LlENTHYJ+3 
A-E DESXHUYED 



BN/PEO 



BN2DE1 



BN2DE2 



Fyn 

SHLD 
LXI 

EQIJ 
SBLD 

^W1 

MVI 
J HP 



LNKSAV 
H,B2D200 

$ 
CnTFAD 

$ 

E,A 
D,0 
C,l 

B2D0 50 



;SAVE BUt-FEP ADDRESS 

;SET OUTPUX ROUTINE TO BUFFE 

; STORE ROnilNE 
;SET fUJTPUT ROUTINE ADDRESS 
; ENTRY FUR "ASCOUT" 
^TFUNGE INPUT INTO DOUBLE 

;6YTE VALUE 
;SET ZERO SUPPRESS FLAG 
;G0 TO CONVERT ROUTT ivE 
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2/llD 

2 71b 

2717 

27i8 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

272« 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

273b 

27 3 7 

2738 

2739 

2740 

2741 

2/42 

2743 

2744 

2745 

2746 

2747 

2748 



LOC 

0825 

082E 

082E: 

082^: 

082E 

082E 

082E 

0B2e 

082P: 

0R2E 

082E 

082E 

082F 

082E 

082E 

082E 

082E 

0B2E 

0831 

0834 

0837 

0839 

083C 

083F 

0842 

0845 

0B45 

0848 

084R 

08 4E 

0851 

0852 

0854 

0855 



Rev AUG-Ol-76 

OBJECT CODE SOURCE SIATEMENTS pIgf^'IT 

bN2Dt:C - CONVEHT DUU6LE WOHD BINARY TO DtiClMAL ♦ 

ENTHY: D,E = BiNAFY VALUE 

H,L = ADDRESS OF HIGH OHDEP BYTE IM 
BUFFER 

EXIT : H,L = H,I,(ENTHY)+b 
A-E De:STPUY£n 
LNKSAV DFSTHOVFD 

THE FIRST FIVE BYTES OF THE BUFFFH CUNTATi>i THE 
ASCII DECIMAL VaLUF. THE SIXTH B^TE IS SET TO 
ZERO CNULL). LEADING ZEROES ARE BLANKED 



22 
21 
22 

OE 
21 
CD 
21 
CD 

21 

CD 
21 
CD 
7B 
F6 
CD 
C3 



96 
6A 
CE 
01 
FU 
58 
18 
58 

9C 
58 
F6 
58 

30 



6N2DEC 



Db 

08 

FC 

08 

• 

FF 

08 

FF 

08 



B2D0b0 



CD FF 



Fgu 

SHLD 

LXI 

SHLD 

MVI 

LXI 

CALL 

LXI 

CALL 

Egu 

LXI 

CALL 

LXI 

CALL 

MOV 

ORI 

DCR 



LNKSAV 

H,B2D200 

CNXFAD 

C,l 

H, -10000 

B2D100 

ri,-1000 

B2D100 

$ 

ri,-100 

B2D100 

H,-10 

B2D100 

A,E 

ZERO 

C 

ECQNTF 



;SAVE BUFFER ADDRESS 

;SET OUTPUT ROUTINE 10 BUFFE 

; STORE POUTIhE 
;SET ZERO SUPPRESS FLAG 

; EXTRACT lOrUOO'S VALUE 

; EXTRACT 1,000'S VALUF 

;EXTRACT lOO'S VALUF 

;extract lo's value 
; CONVERT Units digit to 

; ASCI I AMD STORE IN 
;SET C TO FORCE ZERO STORE 
;G0 TO OUTPUT ROUTINE 



132b5-90003 



ITEM 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2756 

2759 

2760 

2761 

2762 

2763 

2 764 

2765 

2766 

2767 

2768 

27b9 

2 770 

2771 

2772 

2773 

2774 

2775 

277b 

2777 

277B 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

27 92 

2 7 93 

2794 

2795 

279o 

2797 

2798 

2799 

2800 

2801 



hoc OBJKCT CODf: SOURCE: STAIE^ENTS 
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0858 
0858 
0858 
0858 
0858 
085R 
0858 
0B58 
0858 
0858 
0858 
0858 
0858 
0858 
0858 
0858 
0858 
0«5i\ 
085B 
085F^ 
08 5C 
085D 
08bO 
0861 
08d2 
0«6 3 
0864 
0865 
0866 
0867 
8 6 A 
086A 
086A 
086A 
086A 
086A 
086A 
086A 
086C 
08bF 
0870 
08 7 3 
08 7 4 
0875 
0875 
0876 
0876 
0879 
087A 
087B 
087D 
08B0 



06 
FB 

• 

4 
19 
DA 
10 
93 
SF 
7C 
9 A 
57 
7b 
Ci 



Ft 

C2 

OD 

FA 

OC 

C9 

• 

OD 

2A 
77 
23 
36 
22 
C9 



D FF 



30 
75 

• 

76 



96 FF 



00 
9b 



B2D100 - EXTRACT RADIX VALUE ♦ 



ENTRY 



EXIT : 



b2UlO0 FyU 

MVI 

XCH 
B2D110 EgU 
INR 
OAD 
JC 
^UV 
SUB 
MOV 

MUV 

SBB 

MiJV 
M(jV 
JMP 

B2D200 - 



C = 0, SUPPRESS ZERO 

< 0, DOW'T SUPPRESS ZEROES 
D,F. = VALUE TU BE CONVERTED 
U,L ~ -RADIX 
LNKSAV = CURRENT BUFFER ADDRESS 

C < 0, CHARACTER STORED 

= 0, ZERO SUPPRESSED 
(LNKSAV) = CLNKSAV)fl 
A-C, H,L DESTRO^FD 



10 



$ 
B,ZER0-1 



B 
D 

B2DI 
A,b 
E 

E,A 
A,B 
D 

D,A 
A,B 
ECON 
*♦♦♦♦♦ 

STORE 
♦ t * t !<f ♦ 



;5ET TNI 
iFkCHhHQ 

i INCREME 
;SUBTPAC 
;C0NTINU 
;ADi:^ BAC 
;REr^Ai 

;SAVE HE 



^;GET CON 
TF *;G0 TO n 

♦ ♦♦♦an* ♦*♦*♦*♦* 
DECi?^AL VALUE 



AIAL A 
E RAD I 



6QII VALUE 
X AND INPUT 



WT ASC 
T KADI 
E IF I 

K RAD I 

NDER 

MAlf^DER IN n,F 



11 VALUE 
X 

NPUT>RAD1X 
X TO EXTRACT 



VERTED VAI-UE 
UTPUr ROUTINE 

](f.:^:^^4.il.:^ii:H.-^:tf.1f.-^f.:if.%-tfi^-^:^ 

FOR INTERNAL USE ♦ 



EiMTRY: A = CONVERTED VALUE 



B2D200 



B2D210 



B2D220 



FF 



Egu 

CPI 

JNZ 

DCR 

JM 

TNR 

RET 

EyU 

DCR 

FUU 

LHLD 

MOV 

INX 

MVI 

SHLD 

RET 



$ 

ZERO 

B2D210 

C 

B2D220 

C 

$ 

C 

$ 

LNKSAV 

/^,A 

H 

M,0 

LMKSAV 



.•CONVERTED VALUE = ZERO? 
;N0 - STORE THE DIGIT 
;^^0^)-ZERO char already DONE? 
;YES - SI ORE THE DIGIT 
;N0 - RESTORE ZERO FLAG 
;AND EXIT 

;CLEAR ZERO SUPPRESS FLAG 

;GET BUFFER POINTER 
;STORF CONVERTED VALUE 
; INCREMENT BUFFER POINTER 
;SET NEXI BYTE TO NULL 
; STORE NEW POINTER VALUE 
; RETURN 
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1 rew Loc 
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OBJECT CODE SnUPCF STATEMFNTS 



PAGE 80 



280J 

2804 

2805 

2806 

2807 

2808 

2 80y 

2810 

2811 

2812 

281 3 

281^ 

2«15 

2 816 

2817 

2818 

2819 

2820 

2821 

2822 

292 3 

2824 

28 25 

2826 

282/ 

2H26 

2 d 2 9 

2830 

2831 

2b32 

2833 

2834 

2835 

2b36 

2837 

2b38 

28 39 

2840 

2841 

2842 

2843 

2844 



08bl 

0881 

0881 

08 b 1 

0«8t 

0881 

0881 

08bl 

0881 

0881 

OPbl 

08b1 

OBbl 

0881 

0881 

0«81 

0^81 

OBbl 

08 8? 

08b3 

0884 

0884 

0885 

0H87 

08b8 

088B 

088B 

0P8C 

0880 

0890 

0890 

0891 

0892 

0893 

0894 

0896 

0899 

089A 

089A 

0B9A 

089B 

089C 



05 

AK 

8o 
Ct, 
2C 

C2 

24 
15 

C2 

03 
S7 
El 
7C 
FE 
C2 
4D 



7A 
Dl 
C9 



FO 

9 A 



♦^♦♦♦^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 



CALCULATE CHECKSUM 




ENIPYI 


♦ 


(H,L) = ADDHESi^ C)E AFEA 


♦ 


TO BE CHECK5I)y,ED 




D = NU. BiTES IN ArtEA/25b 


♦ 


ae assume the area begins u^ a 


♦ 


25t) bnE BUUimDAHY, I.e., l = o. 


* 


CALL CHnSUM 


* 


fcXiT: 


♦ 


a = CHECKSUM 


♦ 


ALL OTHER REGS. UNCHANGED 


* 


FLAGS DESTPU^EH 


» 



♦»♦♦ ♦♦♦+♦♦*♦♦*♦»♦♦♦♦*♦»♦ ♦*♦♦♦♦♦♦♦ 



CHKSbiv 



CSUIOO 



CSUUO 



Egu 

PUSH 
PUSH 
XHA 

Eon 

ADD 
ACI 
TljR 
JIvZ 

INP 

DCH 
JNZ 

T h X 

K.'t \j V 

PUP 
MUV 
CPl 
JjmZ 
MUV 

E*^U 
MuV 
POP 
RET 



$ 

D 
n 
A 
S 

I'l 

b 

csui un 

H 
I) 

csuioo 



;SAVE KEbLSTEH 
;ZEHO ^>HM 



\)'\\ 



/ADD BiTt. 

;AL)D CARRY 

;BU^'F ADORESo POINTEH 

;ADn ^bXr ^HW. 

iFlhiSwED A 25b BYTE BLHCt' 

;P(3 NEXT 2 56 bYTtS 



b 

L' , A 
H 

A,h 
170000g/25c 



; IIMChHMENT Tu iv-FXT SIORE ADD 
;SAVE CHECKSUM T N U-HEGTolER 
; RECALL STAR I TNG ^UDRFSS 



;LAST t^AM Bi,nCKV 



CSU1 10 
CL 

$ 

A,U 
I) 



;N0 - EXIT 

;YtS - SET B,C TO EThST 
CHECKSUM STOhE a up HESS 



;pui Checksum 

;PESTnKE D,E 
;PETUR.M 



BACK IHIO A- HE 



irtM 


LOC 


nBvJECT 


=: = = r = : 


::=s=:sr=: 




sxs 


2846 


089D 


• 


• 


2847 


089D 


• 


• 


2848 


089D 


■ 


• 


2849 


089D 


• 


• 


2850 


089D 


CD 


6t 


2851 


08A0 


3e 


04 


2852 


0«A2 


CD 


00 


2853 


0BA5 


3E 


80 


2854 


08A7 


32 


20 


2855 


08A/V 


C7 


, 



13255-90003 Kev AUG-01-76 
CODE SOURCF: StATKMENTS PAGF; «l 

; CLEAR - HESET TERMINAL hi k;SCAPE SEOUEi\)CE ♦ 

CLEAR EQU $ 

15 CALL lOBS^C ;WAIT UNTIL XAPEti NOT BUSY 

MVT ArFRCRST ;SET FLAG TO FORCE FULL 

14 CALL STCMFL ? TERMINAL RESET 

MVI ArCRTOFF ;TUPN UFF THE LI5PLAy 

87 STA lOCRRW 

RST ; RESET GO UO TERMINAL RESET 



32b5-^^O003 



Rev AU(3-Ul-7b 



ObjeXT CODE SnUPCF SiAiH:i^EivT6 



tAGF b? 



2 b 5 « 
2 H :> 9 
2 H 6 u 
2 c? ♦ ) 1 
2 H tv2 
2 H o 3 
2bt>4 
2bhD 
2Hb6 
2dt;7 
2Hf)i< 
2b6V 
2 b 7 U 
2 b 7 1 
2h7 2 
2b 7 3 
287 4 
20 7-? 
28 7d 
2«7? 
2b 7 b 
2«79 
269o 
2b t 1 
2 b H 2 
2bb3 
2ctH4 
2bBb 
2BH6 
2ob / 

2bb9 
2h9u 
2d91 
2b92 
2b93 
2 b 94 
2b95 
?B9o 
2b97 
2b9b 
2 b 99 
290U 
2901 
2902 
2903 
2904 



ObAB 
O^AB 
QPAR 
ObAB 
OBAB 

opab 

OBAB 
08AB 
0«AB 
OBAB 

1.) ^ A R 
0«AB 
ObAB 
0«AB 
09AR 
OBA^ 
ObAR 
3AP 
%' A R 
OHAR 
ObAR 
O^AC 
P A K' 

0«t:sA 

0«B3 

OHt-46 
Obb7 
Obh7 

O^bB 
^ B B 
H »3C 

O^Cl 
OBC'4 
0BC5 
0bC6 
0BC8 
0bC9 
OBCA 
08CD 
OHCF 
ObCF 
ObuO 
8D2 
08U5 
OBDB 
0bD9 



OC 
CiJ 

ou 

V'A 
2i 
71 

• 

FB 

2 2 

OD 

FA 

3t 

CD 

Cb 

EB 

Fo 

4F 

C5 

3A 

Oh 

• 

04 

Db 

F2 

32 

05 

CA 



4A 

9o 



94 

• 

5A 
2 

4u 



OF 



9b 
00 



Ct 

S4 



7 1 9 



09 

Ft' 



Fr 
09 
Ob 



Ft 



8 
FF 



L) list' LI - ADD tNOUGn tVC,UC^S TU (^FaCH DFoIKFU + 
COLUMN ♦ 

FMHY; C = MU'^BFh of CmAkACT1i.P6 i^^'tViA- - 1 
D , F-: = LuC ATI Pivi Li F F U L I a L i »^ '-^ 

FAIT : A = 0, '^I^T tKDUGH BL.f3CKS t^^FMJFi lOC-^ J 

B-r. ntsiPijYLn 

A # 0, ht.Ai'iHY ALLuCATLD 

f) , E = F J [^ S T ( : J 1 A K A P U F J, N i^ F « ti I J C ^« :• 
B,C,H,L PFSrRUVfcJD 

If UMl.y OivF CHAHACTFP 16 iU BF ADDKu, '\ ah 
Ch AFACTbP IS ADUFD 10 THF l.lnt:. UThFBv^ISb, Ai^i 
PLOuImFD BLOCKS Ai^F AvOtV TO iHv. LtN^ At^P ThK 
hlKt IS FILLFU rtlfH BLANK i, OP Tu IHL JF.>IKKD 
CbftKACTFH Qf^lLY. 



UISPL2 



FA Ob 



iHciPLl Fv' 

Tiv 
CA 
DC 
Jh 
L/ 
MU 
FV 
XC 

St! 

DC 

^^v 

CA 
RZ 
XC 
OK 
Mf) 
PU 
Lb 

Mv 

FU 
Iw 
SU 
JP 
ST 
DC 
ilZ 



I' s 

y c 

r>L bPLMuv 

»^ c 

DIS220 
n,.'MCtlAK 
it,C 
$ 



r 

V 

u 

HG 
LD 
R 



bOLADf^ 
C 

U1S400 
A,ABLNK 



LL GTBLK 



MG 
I 

V 



DIS120 



BLrvSi^ 
C,A 
Sh B 
A NCHAK 

B,0 

$ 

B 

BLKSZ-2 

D1S120 
A COU^^T 
R B 

n i s 1 6 



;!^-UVt Lt.'L XF NKCFSSAhY 



;Ch'NHACTfc.F PUSlTlflN tOlli:U 
;SAVF wli^MhcK nt CVrAKACTFt^S 

;tu bF audfd - 1 



;SAVfc. triL ADDRl'.SS 

;S1"GLH; CHAHAC'IFB ADLFu? 

;YFS - DU FAST FX'IFMI; 

;NU - GET A DISPLAY bLuCK 

?FlLLiFU WITH i^LANKS 
;RtTUFiM IF ?■1t^^UPY LPCKhP 
;PUT BLOCK ADPKFSS I .'^ J , b 
jCU-'^pniK HiCh APD^ OF BLOC^ 
;SAVb APDPFSS uy FIPST mFw 

; BLOCK ALDtD 
;Gfc.T # Ot CHAPS 10 Bfc. ADDED 

; Ii-.riTALlZE COUNT 

; TiMCHFf'^F.viT CUUwT 
;SUP. NO, OF CHAKS If^ BI UCK 
;JUN1P IP VUPt; ttLuCKS MEf^uFD 
;SAVb L.^ST CHAH BLOCK POS 
;SlNGLb BLOCK? 
;YFS 



HEM 



LUC OBJKCT CODE 
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iinURCE STATEMENTS P^^E 83 



2906 


08DC 


• 


2907 


08DC 


• 


290tt 


08DC 


• 


2909 


08DC 


21 


2910 


08DF 


70 


2911 


O^EO 


• 


2912 


08fcO 


« 


2913 


OBEO 


• 


2914 


OREO 


Db 


2915 


OBEl 


• 


2916 


08E1 


3E 


2917 


08E3 


CD 


2918 


0BE6 


EB 


2919 


08E7 


El 


2920 


08fc8 


CA 


2921 


08EB 


nb 


2922 


08EC 


2B 


292 3 


08ED 


F6 


2924 


08EF 


70 


2925 


08F0 


26 


2926 


08E1 


77 


2927 


08F2 


21 


2928 


0PF5 


35 


2929 


08F6 


C2 


2930 


0fiF9 


Fl 



20 

4D 



OF 



£1 



; MULTIPLE BLOCK 
.♦*♦♦♦♦♦♦♦♦♦*♦♦* 
FF LXI H,NB 

MQV M,B 

; GET SDbSEOUENT 
f^f^t****^ ******* 

PUSH 
DIS140 Egu $ 

MVI A,AB 

5 CALL CTBL 

XCHG 
POP H 

9 OZ DIS2 

PUSH I; 
OCX H 
Of<I BLKSM 
MOV M,B 
OCX H 
MOV M,A 

F LAI H,NB 

DCF. H 

8 JNZ DTSl 

PUP PSW 



4: 3^ ;)( * 1" 4^ ♦ t ^ * ^c 4" 

S gEQUlPED * 

4: 4! * ♦ ♦ t f 4: * » ♦ ♦ 

LKS ;SAVE BLOCK COUNT 



^^ilf.$^4*** 
BLOCKS * 

4$3lli^4**** 

;SAVE 



LNK 
K 



40 



ADDRESS OF LAST BLOCK 



BLOCK FILLED 



LKS 

40 



;GET A DISPLAY 
;W1TH BLANKS 
;PUT BLOCK ADDKESS TiJ D,E 
; PEC ALL ADDRESS OF LAST BLOC 
;EXIT IF MfciMOPY LOCKED 
;SAVE NFrt LINE ADDRESS 
;HNK NEW BLOCK TO PREVIOUS 

; MSB'S 

; STORE LSB 

;ALL blocks ALLOCATED? 
;N0 - GET ANOTHER BLOCK 
:YES - PUP THE STACK 



1325S-90003 
ITEM I.OC 



2932 
2933 
2934 
2935 
2936 
29 3 7 
2938 
2939 
2940 
294 1 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
295t> 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 



08FA 

OSfA 

08FA 

08FA 

08FA 

08FD 

08FE 

OBFF 

0900 

0901 

0902 

0903 

0904 

0906 

0909 

090B 

090E 

0911 

0912 

0915 

0915 

0915 

0915 

0915 

0915 

0916 

0916 

0917 

0918 

091A 

091D 

091D 

091D 

091D 

091D 

0920 

0921 

0922 

0923 

0924 

0925 
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; ALL BLOCKS HAVE BEEN ADDED ♦ 
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3A 
2F 
3C 
4F 
83 
30 
6F 
62 
06 
3A 
FE 
C2 
3A 
B7 
F2 



70 

2B 
OD 
06 
C2 



2A 
EB 
2B 
72 
2B 
13 
73 



CC 
CI 
4F 
15 

89 



C3 
15 



C9 



FF 



FF 

• 

09 

FF 



16 09 



DIS160 



EQU 
LDA 
CMA 
INR 
MOV 
ADD 
DCR 
MUV 
MUV 

MVI 

IDA 
CPI 
JNZ 
LDA 
OKA 
JP 



$ 
COUNT 



;COHPUTE NUMBER 
;T0 FILL 



OF PYTES 



A 

C,A 

E 
A 

L,A 
H,D 
B,EOL 
CURCOL 
MAXCUL 
DIS170 
DCHAH 
A 
DIS175 



;SAVE IM C 

;Gfc/r FIRST FILL ADDR 

;SET FIRST LSB FILL ADDRESS 
;PUT LSB INTO L 
;GET MSB FROM D 
;SET "EOL" CHARACTER 
;GET CURRENT COLUMN 
;CHAR ADDED TO LAST COLUMN? 
;NU - SET "FOL" CHARACTER 
;YES - GET CHARACTER STORED 
;IS IT ASCII? 
;YES - DON'T ADD "LOL" 
; NO - SET "EOL" CHARACTER 

; FILL UWUSED PART OF BLOCK wIIH "FILL" CODES ♦ 



DIS170 



DIS175 



$ 

M,B 

$ 

H 

C 

B,b ILL 

DIS170 

; WRITE LINK TO NEXT LINE ♦ 

*:^:tf^lt.t*^ ******■¥* *********** 

DlSlbO Egii $ 

LHLD LSTLIN 



EQU 
MOV 
EQU 
DCX 
DCR 
MVI 
JNZ 



; STORE FILL/EOL CHARACTER 

;G0 TO NEXT BYTE 

;ALL UNUSED BYTFS FILLED? 

;(SET "FILL" CODE) 
;N0 - SET NEXT BYTE 



XCHG 

DCX 

MOV 

DCX 

INX 

MOV 



H 

M,D 

H 

D 

M,t 



;GET ADDR CURRENT LINE 
.•STORE AS NEXT BLOCK POINTER 



?POINT TO NEXT LINE POINTER 
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ITEM 

2974 
2975 
2976 
297 7 
2978 

297 9 
2980 
2981 
2982 
2983 
2984 
2985 

298 b 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2 997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
300b 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 



LOC OBJECT code: tiOUPCE STATEMENTS 
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0926 

0926 

0926 

0926 

0927 

092A 

0926 

092E 

0931 

0933 

09 3 3 

09 3 4 

0937 

093A 

093C 

093D 

0940 

0941 

0942 

0943 

0944 

0945 

0948 

0949 

094A 

094A 

094A 

094A 

094A 

0^4A 

094B 

09 4E 

094F 

0952 

0953 

0954 

0954 

0954 

0954 

0954 

0954 

0956 

0957 



Dl 
3A 
B7 
3A 
CA 
3E 

47 
2A 
3 A 
F6 
F3 
3 2 
7u 
2B 
72 
2b 
73 
CD 
B4 
C9 



3D 
3^ 
CC 
3A 
12 
C9 



36 

EB 
C3 



9B FF 



89 
3 3 
20 



94 
CO 
40 

20 



FF 
09 



FF 
FF 



CC 



ID 09 



; LINK NEW BLOCK CS) TO OLD ♦ 



D1S210 



POP 

LDA 

OKA 

LDA 

JZ 

!«VI 

EQU 

MOV 

LHLU 

LDA 

OKI 

Di 

SI A 

MUV 

OCX 

MuV 

OCX 

MOV 

CALL 

OKA 

PtT 



D 

NCHAH 

A 

DCriAR 

DT&210 

A,ABLNK 

$ 

B,A 

EOLADR 

CUHRQW 

MAYEUL 

lOCRHi^ 

M , B 

H 

iA,D 

a 

DISLNl 
H 



; RECALL FIRST NEW BLOCK ADDR 
;GET # OF CHARS ADDED - 1 
;DOFS NEW CHAR REPLACE EOL? 

; (DEFAULT TO ADD I CHAH) 
;yES - OVERWHITF EOL 
;N0 - STORE BLANK OVER EOL 

;SAVE CHARACTER 10 BE STORED 

; recall eol address 

;set fu\^ possible tol skip 
/disable intehhupts 
;tupn oft display dma 
; overwrite eol 

;change next blhck linn 10 
;poi;mi to new blocks 



;TUR(M DISPLAjt 
;St.T Z-FALSE 
;PbTURN 



BACK ON 



^♦♦4t;»:^**«******f*:»t* ♦♦*♦ + *♦♦♦♦ 

EOL MOVE SATISFIED REQUEST * 
CHECK fOR SINGLE CHARACTER ♦ 





DIS220 


EQU 


$ 








DCR 


A 


; SINGLE CHARACTER f 


F 




ST A 
RNZ 


NCHAR 


;(SE'l NCHAR) 

;N0 - HFTURM 


F 




LDA 


DC BAR 


;YES - GET THE CHARACTER 






ST AX 


D 


; STORE THE CHARACTER 






RET 




; RETURN 



; ALL BLOCKS iMOT AVAILABLE * 
; INITIALIZE END OF LINE ♦ 

DIS240 EyU $ 

MVI M,EOL ; STORE 



AN EOL 



XCHG 

JMP DIS180 



PUT ADDRESS INTO D,E 
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ITtM 



LOC 



3018 


095A 


, 


3019 


095A 


• 


3020 


095A 


• 


3021 


095A 


• 


3022 


095A 


CO 


3023 


095D 


C8 


3024 


095E: 


54 


3025 


095F 


50 


3026 


0960 


F6 


3027 


0962 


6F 


3028 


0963 


36 


3029 


0965 


E5 


3030 


0966 


C3 
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; SIMGLE CHARACTER AODITION * 

DIS400 EQU $ 
4B 05 CALL GTBLKF 

RZ 



OF 



CC 



ID 09 



MOV 


0,H 


MOV 


E,L 


OR I 


BLKSM 


MOV 


L,A 


MVI 


M,EOL 


PUSH 


H 


J HP 


DIS180 



;GET A DISPLAY BLOCK 
/RETURN IF MEMORY LOCKED 
;SAVE BLOCK ADDRESS IN D,E 



;PUT AN EOL AT THE FIRST 
; DISPLAY CHAHftCTER 
; LOCATION IN THE BLOCK 
;SAVE ADDRESS OF BLOCK 
;LI"^K BLOCK TO DISPLAY 



ITEM 



LOC 



OBJfcCT CODR 



13255-90003 8ev AUG-01-76 
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3032 


0*^69 


















3033 


0969 








; * ♦ ^ 


t. 1^, 5)^ 


♦ * ♦ ♦ 


♦ 


♦ ;j:3j!;»;4,:».j»:j»c*l:»*** 


3034 


0969 


















3035 


0969 








; p:ulmov - 


MOVE EOL 


IN A BLOCK 


3036 


0969 


















3037 


0969 










enthy: c = 


NU 


MBER OF BYTES NEEDED 


303d 


0969 












0,E 


= 


ADDHESS OF EXISTING FOL 


30 3 9 


0969 


















3040 


0969 










EXIT 


: A = 


NUMBER OF CHARACTERS ADDED 


3041 


0969 












C = 


0, 


CHARACTER FOUND 


3042 


0969 












D, 


E 


= ADDRESS OF CHARACTER 


304 3 


0969 












C = 


NUMBER OF CHARACTERS i^EEDED 


3044 


09b9 












0, 


E 


= ADDRESS OF LAST BYTE IN BLK 


3045 


0969 












H = 


BASEH 


3046 


0969 












B,L 


DESTROYED 


3047 


0969 


















3048 


0969 








; EOLMVO - 


MOVE ONLY 


IF UNPROiECTED 


30 49 


0969 


















3050 


0969 








tuOLMVO 


Eg I) 


$ 






3051 


09t)9 


BA 


91 


FF 




LDA 


bLKFlL 




;GET BLOCK FILL INHIBIT FLAG 


3052 


09oC 


?C 








INH 


A 




;BL0CK FILL INHIBITED OR 


305 3 


09bD ( 


:4 


65 


10 




CwZ 


CKFROT 




;CLPSnK W PhOTECTED FIELD 


3054 


0970 < 


:8 








FZ 






;YES - RETURN 


3055 


0971 


















3056 


0971 








enLMuv 


KQU 


5? 






3057 


0971 


7B 








MUV 


A,E 




; COMPUTE NUMBER OF BYTES 


3058 


0972 


=:6 


OF 






ANI 


BLKSM 




;Av/AiLAPLE IN BLOCK 


3059 


0974 


:)6 


02 






SUI 


2 




; (DELETE BYTES FOP LINK) 


3060 


0976 < 


:8 


• 






RZ 






; RETURN IF NONE AVAILABLE 


3061 


09 7 7 


EB 


• 






XCHG 






;PUT CURRENT ADDRESS IfJ H,L 


3062 


0978 


B9 


• 






CMP 


C 




;Ei>IOUGrt CHARACTERS? 


306 3 


0979 


4 7 


• 






MOV 


b,A 




; (SET b TO FILL BLOCK) 


306 4 


097A 


11 


40 


CC 




LXI 


DrEOu*' 


^56+P^AYEOL ;(SET FOR PARTIAL 


3065 


097D 


• 


• 












LINE EXTENSION') 


3066 


097D 


FA 


92 


09 




JM 


t:L^l^oo 




;M0 - BLA^'JK REST OF BLOCK 


306 7 


0980 


41 


m 






MOV 


B,C 




;YES - BL^^NK WHAT'S NEEDED 


3068 


0981 


3A 


CI 


FF 




LDA 


CURCOL 




;GET CURRENT COLU^'N POSITION 


306 9 


0984 


F£ 


4F 






CPI 


MAXCOL 




; ADDING TO LAST COLHHN? 


3070 


0986 


C2 


92 


09 




JHZ 


ELMIOO 




;NU - NEED EOL AT LINE END 


3071 


0989 


3A 


89 


FF 




LDA 


DCHAR 




;YES - GET NEW CHARACTER 


3072 


09dC 


B7 


• 


• 




ORA 


A 




;IS IT ASCII? 


307 3 


098D 


FA 


92 


09 




■ JM 


ELM 100 




;N0 - NEED EOL AT LINE END 


3074 


0990 


16 


C3 


• 




MVI 


D,FTLL 




;YES - DON'T NEED EOL 



13255-90003 



ITEM 



LOC 
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3076 


0992 


« 














3077 


0992 


• 








FILL THE 


BLOCK 


3078 


0992 


• 














3079 


0992 


• 






ELMIOO 


EQU 


$ 


3080 


0992 


79 










MOV 


A,C 


3081 


0993 


90 










SUB 


B 


3082 


0994 


4F 










MOV 


C,A 


3083 


0995 


3A 


CO 


FF 






LDA 


CURROW 


3084 


0998 


B3 










OKA 


E 


3085 


0999 


58 










MOV 


E,B 


3086 


099A 


F3 










Dl 




3087 


099B 


32 


20 


8 7 






STA 


lOCRRW 


3088 


099E 


• 






« 
9 








3089 


099E 


• 






ELMllO 


EQU 


$ 


3090 


099E 


36 


20 








MVI 


M,ABLNK 


3091 


09A0 


2B 










DCX 


H 


3092 


09A1 


05 










DCR 


B 


3093 


09A2 


C2 


9E 


09 






JNZ 


ELMllO 


3094 


09A5 


7 2 










MOV 


M,D 


3095 


09A6 


CD 


9E 


OF 






CALL 


DISLNl 


3096 


09A9 


AF 










XBA 


A 


309? 


09AA 


Bl 










ORA 


C 


3098 


09AB 


C2 


AF 


09 






JNZ 


ELM130 


3099 


09AE 


23 










INX 


H 


3100 


09AF 


• 






ELM 1 30 


Fgu 


$ 


3101 


09AF 


7B 










MOV 


A,t 


3102 


09BO 


EB 










XCHG 




3103 


09b1 


21 


90 


FF 






LXI 


H,EOLMV 


3104 


09B4 


36 


01 








MVI 


M,l 


3105 


09B6 


C9 


• 








PET 





;COMPUTE NUMBER OF AUDITIONA 

; BYTES NEEDFD 
;SAVE IT IN C FOR RETURN 
;SET CONTROL TO TURN OFF DMA 

;SAVE NUMBER OF BYTES ADDED 
;DISABLE INTERRUPTS 
;TURN OFF DMA 



FILL BLOCK wITH BLAUKS 

MOVE TO NEXT BYTE 

FILL COMPLETED? 

NO - DO NEXT BYTE 

YES - ADD FOL OR EOL FILL 

TURN OISPLAi BACK ON 

CLEAR A-REGISTFR 

ALL CHARACTERS DONE? 

NO - RETURN ADDRESS OF EOL 

YES - RETURN APDP OF LAST C 

PUT » OF CHAPS DONE TN A-RE 
PUT CHARACTER ADDRESS IN D, 

; (SET H TO DATA PAGE) 
SET EOLMV FLAG 
RETURN 
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ITEM 

3107 
3106 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
311B 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3i2b 
3127 
312B 
3129 
3130 



LOC 

09B7 
09B7 
09B7 
09B7 
09B7 
096A 
09bn 
09Bt: 
09C1 
09C2 
09C3 
09C6 
09C9 
09C9 
09C9 
09C9 
09C9 
09CA 
09CB 
09CI-: 
09D1 
09D4 
09D4 
09D7 



OBJECT CODE SOURCE STATEMENTS 

;*♦♦♦*♦♦♦♦ 4 :"►;»*♦♦**♦ ♦ 
; LD - LINE DELETE * 

LINDEL EgU 15 

CD 7t) 19 CALL CHKFMS 

CC B4 06 CZ - HCADRl 

CO . . RNZ 

2 A C9 FF LhLD LSXLIN 

7E . . ^OV A,M 

B7 . , OHA A 

CA 04 09 JZ LID050 

CD DA 09 CALL LINDLO 

UPDATE LSTLIN AND 
OF NEXT LINE 

60 • . MOV H,B 

69 . . MUV L,C 

CD EB l« CALL BACKT5 

CD 27 OA CALL LININO 

C3 91 06 JMP PUTLIN 

L1D050 EQU $ 

CD 3C IC CALL CLEARL 

C3 C5 21 JMP CURPRT 
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;FURMAT MODE? 

;F1ND LTiME TF WOT 

;LiN^E NOT FOUND 

;GET ADDR OF LAST LINE DONE 
;GET PREVIOUS LINE'S LSB 
;Af>iV PREVIOUS LINES? 
;M0 - DO CLEAR LINE ONLY 
;YES - DELETE CURRENT LINE 

CURADR TO ADDRESS ♦ 

5»:**t*=<f **♦♦♦♦♦♦♦*♦♦♦ 

;PUT NEW LIME ADDRESS INTO 

;H,L 
; UPDATE CURRENT LINE AND ADD 
;G0 UPDATE TOP LINE IF MEEDE 
;ADD LINE TO FREE LIST 

; CLEAR THE LINE 

;SET CURSOR AT LEFT MARGIN 
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ITEM 

3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
314b 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 



LOC 

09DA 
09DA 
090A 
09DA 
09DA 
09DA 
09DA 
090A 
09DA 
09DA 
09DA 
09DA 
09DA 
09DA 
09DB 
090C 
09DD 
090E 
09 DF 
09fc:0 
09 El 
09E2 
09E3 
09E4 
0967 
09E7 
09E7 
09E7 
09E8 
09E9 
09EA 
09ED 



OBJECT CnOE SOURCE STATEMENTS PAGE 90 

LINDLO - PMOVE LINE FROM LINKED LIST ♦ 

ENTRY: H,L = ADDRESS OF NEXT LINE FIELD 
(LSB) OF LINE TO BE DELETED 

EXIT : B,C = ADDRESS OF LSB PORTION OF 
NEXT LINE POINTER IN NEW LIUF. 
D,E = H,L(ENTRY) 
ArH^L DESTROYED 



50 
54 
4E 
23 
46 
23 
7E 
23 
66 
B7 
C2 



60 
69 
23 
22 
C3 



09 



9F 
F6 



FF 
09 



LINDLO EQU 
MOV 
MOV 
MOV 
INX 
MOV 
I«^»X 
MOV 
INX 
MOV 
OHA 
JNZ 

;|t :»: + ♦:»:* t ♦* ♦ 

FiRST LI 
f ;|c i(c:(L 4^ « f ;f ^ :«( 

MOV 

MOV 

INX 

SHLD 

JMP 



$ 

E,L 

D,H 

C,M 

ri 

B,M 

H 

A,M 

h 

H,M 

A 

LID200 

NE DELE 

H,B 

L,C 

H 

FLINE 

LID300 



;SAVE ADDRESS OF LINE TO BE 

;deleted in D,E 

;GET ADDRESS OF NEXT LINE 



;GET address OF PREVIOUS LIN 



;D0ES previous line EXIST? 
;YES - LINK 2 LINES TOGETHER 

TED - UPDATE FLINE ♦ 

;M0VE new CURRENT LINE TO H, 

;SET ADDR TO NEXT LINE FIELD 

;SET NEW PREV LINE POINTER 
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HEM 


LUC 


OBJtCr 




ssssrsjs 


: = s==:s:=; = 


3165 


09F0 


m • 


3166 


09F'> 


• < 




3167 


09F0 


• * 




3168 


09F0 


• t 




3169 


09F0 


6f 




3170 


09F1 


23 . 




3171 


09F2 


CD <: 


)b 


3172 


09F5 


, , 




3173 


09F5 


• < 




3174 


09F5 


• < 




3175 


09F5 


• < 




3176 


09F5 


70 . 




3177 


09F6 


• * 




3l7d 


09F6 


OS 




3179 


09F7 


C5 < 




3180 


09F8 


03 




3181 


09F9 


03 , 




3182 


09FA 


02 




3183 


09FB 


3 




318 4 


09FC 


7C 




3185 


09FD 


2 




318o 


09FP: 


Ci 




318 7 


09FF 


C9 





CODE iiOUPCE SIArKNKHTS 
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; UPDATE NLXT LIN 

LI02U0 Fgu $ 

MOV L,A 

TNX H 
OF CALL DI6LN 



.f *4t4t*;»c*<l*4!****** 


; SK'V PRfcVlOUS LI 


. ♦ !f f Jj: ♦ 3^ ♦ %' ♦ ♦ ♦ ♦ :*: ^ :♦: :^ 


MyV 


A,L 


HD30 FQll 


$ 


ThX 


b 


PUSH 


B 


IlvX 


B 


liNfX 


h 


STAX 


B 


TnX 


B 


MOV 


A,H 


STAX 


B 


PUP 


B 


PLT 





E FIELD I(^ PREVIOUS f^INfc ♦ 

;PU1 LSP IiMXU L-HFGISTEP 
;SfcT TU i«lSb UF NfcXX LINF FLD 

K ;St;T NEW W£X1 LTMF LINK TO 
CUHREMT HOW 

♦ ^(♦♦t* **♦♦♦*♦ ♦*♦*»*♦*♦* 

NE FIELU IN NEXT LINF * 

;SAVE PPEV LIME ADDP'S LiiB 

;INCHF.MFNT TU NEXT LINE PTH 

;SAVE ADDPESS 

;SET ADOHESS TO PREVIOUS 

;HNE FIELU 
;STnhe LSP VALUF 



;STOBE MSB VLAUF 
;PESXOHF CONTENTS UF 
; RETURN 



B,C 
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ITEM 

31H9 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
320B 
3209 
3210 
3211 
3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 
3228 
3229 
3230 
3231 



LOC 

OAOO 
OAOO 
OAOO 
OAOO 
OAOO 
0A03 
0A06 
0A07 
OAOA 
OAOB 
OAOB 
OAOB 
OAOB 
OAOO 
OAOE 
OAOF 
OAIO 
OAll 
0A13 
0A14 
0A17 
0A17 
0A17 
0A17 
OAIA 
OAIB 
OAIC 
OAID 
0A20 
0A21 
0A24 
0A27 
0A27 
0A27 
0A27 
0A27 
0A2A 
0A2D 
0A2C 
0A31 
,0A34 
0A35 
0A36 
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CD 
CC 
CO 
CD 
C8 



C6 
2D 
74 
2D 
77 
06 
6F 
CD 



22 
23 
7D 
EB 
2A 
EB 
22 
CD 



CD 
CD 
AF 
32 
21 
B6 
CO 
C3 



76 

B4 



C9 
3C 



AO 
C5 

C8 
CO 



19 

06 



4B 05 



OB 



02 



68 OD 



C3 FF 



C9 FF 



FF 
OA 



OA 
21 

FF 
FF 



; LI - LINE INSERT * 
* t ****** ********^*** 
LIMNS EgU S 

CALL CHKFMS 

CZ RCADRl 

RNZ 

CALL GTBLKF 

RZ 

; STORE LINK AT END OF NEW LINE * 

ADI BLKSZ-5 ;G£T ADDR UF NEXT 

OCR L 

MUV M,H ; STORE LINK MSB'S 

DCR L 

MOV M,A ; STORE 

SUI 2 ? STORE 

MUV L,A 

CALL STCHRl ;SET FIRST niSPLAY CHARACTER 

filL:lli^^^Jt,^Hf.:iif:i^^:^i^ 4* ********************** ******** 

; ADwJUST LSTLIN AND CURADR PNTRS TO NEW LTNF * 
J ^,lli^4^Tl^ ^^:^ ^iit,*it'* ************ *-^f ****** ************ 



; FORMAT MODE? 

;FiND LINE IF NOT 

; RETURN IF LINE NOl FOUND 

?GET BLOCK FOR NEW LINE 

.•RETURN IF NOT AVAILABLE 



LINE FIELD 



LINK LSB'S 

EOL TN NEW LINE 



SHLD 

INX 

MUV 

XCHG 

LHLD 

XCHG 

SHLD 

CALL 



CURADP 

H 

A,L 

LSTLIN 



;SET CURADR TO 1ST CHAR 

;SET TO NEXT LINE POINTER 

;PUT LSB INTO A-REGISTER 

;GET CURRENT LINE ADDRESS 



NEW CURRENT LINE ADORES 
LINE TO DISPLAY LIST 



86 OF 



LSTLIN ;SET 

LININI ;add 
. *************** ***^ ********* 
! UPDATE TOPLIN IF ROW ZERO ♦ 

LINING EQU 5 

CALL LSTLU2 ;SET INITIAL LINE STATE 

CALL CURPRT ;SET CURSOR TO LEFT MARGIN 

XRA A ;SET LAST COLUMN DUNE TO 

STA LSTCOL JZERQ 

LXI ri,CURROW ?GET CURRENT ROW NUMBER 

ORA M ;D1D TOP ROW CHANGE? 

RNZ ;NU - RETURN 

JMP TOPIIPI ;YES - UPDATE TOP LINE VALUE 
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ITEM 

323 3 

3234 
3235 
3236 

323 7 

323t^ 
3 2 39 
3240 
3241 
3242 
3 2 43 
3 244 
3245 
3246 

324 7 
3248 
3249 
3250 
3251 
3 252 

325 3 
3254 
3255 
3256 
3257 
3256 
3259 
3260 
32d1 
3262 

326 3 
3264 
3265 
3266 
3267 
326B 
3269 
3270 
3271 



LOC OBJECT CODF: SOUPCE vSTATEHENTS 



PAGE 93 



0A39 
0A39 
0A39 
0A39 
0A39 
0A39 
0A39 
0A39 
0A39 
0A39 
0A39 
0A39 
0A3A 
0A3B 
0A3C 
0A3C 
0A3D 
0A3E 
0A3F 
0A40 
0A41 
0A4? 
0A43 
0A44 
0A45 
0A45 
0A45 
0A45 
0A45 
0fl46 
0A47 
0A4H 
0A49 
0A4A 
0A4B 
0A4C 
0A4D 
0A4E 
0A4F 



7B 
42 

EB 

« 

6B 
62 
23 
23 
4E 
7 7 
23 
56 
70 



6F 
7C 
60 
ID 
73 
23 
77 
23 
71 
23 
72 



:^;^:f^:^.tJI^:^)tii>li}^ii}l;.%:^t^^^**>t^t^**t^*^4^*^^*^***** 



LTlMlNl - ADD LINE TO LIMK LIST 
ENTRi: D,E=NEXT PAGE FIELD ADDK IN LINE 
BEFURE WHICH NEw LINE IS 
TO BE INSERTED 
A,B=NEXT PAGE FIFLO ADDH UF LINE 
rO BE INSERTED 
EXIT : C,B = A,BCENTKY) 
D-L DESTROYED 

LIN I IV A EVJII $ 

;PUT nOI LED LINE ADOHFSS 

;B,A 
;FUT CHAH ADDRESS INTO D , t 





MOV 


A,E 




MQV 


\i,0 




XCHG 


LINTM 


Egu 


S 




MDV 


L,E 




MOV 


H,D 




I NX 


H 




INX 


H 




MOV 


C,M 




MOV 


M,A 




TNX 


H 




Huy 


D,M 




MOV 


M , R 



TNT 



; UPDATE PREV LINE 
;1N NEXT LiNb 

;SET ADDKFSS TO 
;L1NE PDIN^TER 
;GET AUDH OF PRFV 
; STORE ADDR OF NEW 



.4 + 5|£^t* + **4 + 4i** *♦*♦*♦* ♦♦♦♦♦=♦-♦♦♦** 
; UPDATE iMEXr/PREVirujS POINTERS ♦ 
; IN NEW LINE * 

.3((*t»*****J^* ♦*♦♦♦♦♦**♦ ♦♦♦♦4it***** 



PTR 

PHbVinus 

LINF 

LINE 



MOV 


L,A 


MOV 


A,H 


*^UM 


H,B 


OCR 


E 


MLIV 


M , F 


INX 


H 


MUV 


M, ,A 


fNX 


a 


MOV 


M,C 


INX 


H 


MOV 


M,n 



;Gt,T ADf)K OF NEXT LINF FIELD 

;ShTP OVER POINTERS 

; STORE NtXT LlwF LSB'S 

; STORE NEXT Lli^f MSB'S 

; STORE PREV LINF LSB'S 

; STORE PREV LINE MSB'S 
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3273 


0A5O 


• 


3274 


0A50 


• 


3275 


0A5O 


• 


3276 


0A50 


79 


3277 


0A51 


B7 


327B 


0A52 


7D 


3279 


0A53 


CA 


3280 


0A56 




3281 


0A56 




3282 


0A56 




3283 


0A56 




3284 


0A56 




3285 


0A56 


D6 


3286 


0A58 


69 


3287 


0A59 


62 


3288 


0A5A 


4F 


3289 


0A5B 


2 3 


3290 


0A5C 


CD 


3291 


0A5F 


OC 


3292 


OA60 


C9 


3293 


0A61 


• 


3294 


0A61 


• 


3295 


0A61 


• 


3296 


0A61 


• 


3297 


0A61 


06 


3298 


0At)3 


4F 


3299 


0A64 


6F 


3300 


0A65 


22 


3301 


0A68 


C9 



OF 



; SEE 



LSB'S 



IN 
IS 



A -REG) 



NEW 
LIiNiK 
* ♦ * ♦ t 



IF NEW LINE IS FIRST LINE ♦ 

MOV A,C ;GET PREV LIl^E 
ORA A ;SET FLAGS 
MOV A,L ;CPUT LSB OF ADDR 
JZ LIT200 ;JUMP IF NEW LINE 
FIRST LINE 

T FIRST LINE * 
LINE TO NEW LINE * 

;GET ADDR OF NEW LINE DATA 
;GET ADDR OF NEXT PAGE FIELD 
;0F PREVIOUS LINE 

;NEW LINE'S LSB TO C 
;SET TO MSB PART OF FIELD 
NK ;LINK PREV LINE TO NEW LINE 



; NEW 
LIi200 



9F FF 



***** 
LINE 

PREV 
***** 

SUI 
MUV 
MUV 
MOV 
INX 
CALL 
INR 
RET 
***** 

LINE 

***** 
ES^U 
SUI 
MOV 
MOV 
SKLD 
RET 



***** 
IS NO 
lOliS 

***** 

4 

L,C 

H,D 

C,A 

H 

DISL 
C 



***** 
IS FI 
***** 

S 

3 

C,A 
L,A 
FLIN 



;RETUPN 

;t:4!3t:jtL>tHc*** 

RST LINE ♦ 

j»r <t :»; t * * * * * * 



;GET ADDR OF NEXT PAGE FIELD 
;PUT LSB INTO C-REGTSTEP 

;SET NE^i FIRST MNE POINTER 

; RETURN 
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3303 


0A69 


• 


• 




3304 


0A69 


• 


• 




3305 


0A69 


• 


• 




3306 


0A69 


• 


• 




3307 


0A69 


3A 


FB 


FF 


3 308 


0A6C 


E6 


04 




3309 


0A6E 


C8 


• 




3310 


0A6F 


• 


• 




3311 


0A6F 


21 


6C 


FF 


3312 


0A72 


36 


FF 




3313 


0A74 


?E 


CO 




3314 


0A76 


7£ 


• 




3315 


0A77 


FE 


17 




3316 


0A79 


CA 


81 


OA 


3317 


0A7C 


3C 


• 




3318 


0A7D 


7 7 


• 




3319 


0A7E 


32 


20 


8 7 


332U 


OAbl 


• 


« 




3321 


OABl 


CC 


27 


OC 


3322 


0A84 


« 


• 




3323 


0A84 


• 


• 




332 4 


0AB4 


• 


m 




3325 


0A8 4 


3 A 


70 


FF 


3326 


0AB7 


Eb 


40 




3327 


0A89 


CO 


• 




332B 


0A8A 


3A 


64 


FF 


3329 


A 8 1) 


Eb 


20 




3330 


0A8F 


CO 


• 




3331 


0A90 


• 


• 




3332 


0A90 


• 


• 




3333 


0A90 


• 


• 




3334 


0A90 


3£ 


FF 




3335 


0A92 


CD 


OB 


07 


3336 


0A95 


CD 


4D 


10 


3337 


0A9B 


C4 


OA 


15 


333B 


0A9B 


C9 


• 


• 



; LINE FEED PRUCESSOR ♦ 

CONDLF EQM $ 

I.UA KBJMPR ;GET THE STRAP SET'IJnGS 

A^MI LINWRP ;WHAP AFOUnD ENABLED? 

BZ ;yES - LF NOT HEyniPED 

LNFEED Eyll $ 

LXI H,SP0WL ;CLEAP SPUW LATCH 

■MVT M,SPOWUF 

Mvl L,CURROW-PASE ;GET CUHSUP FUW 

1^0 V A, M 

;IS CURSUH IN BOTTON- BUI*-? 
;YES - PULL UP THE DISPLAY 
;M0 - HOvE CUHSOH TO VEXJ HO 
; STORE ^!E'Af PO''l NUi^BEH 
;SET SCHEEi^ Cl'RSUR 



CPI ^AXHOW 

J'l 1,NF100 

IiMR A 

MOV i'i,A 

ST A JOCRRW 

LNFIOO EQU $ 

CZ HULLUP 



;CHnLL UP IF AX bOlTOM) 

BUILD FIRST BLOCK OF NEw ROw IF NECESSaRY 

LDA MFLGS ;GET BLOCK XFP PENDING FLAGS 

AM SFNTER/256 ; ENTER PE^iDING? 

RimZ ;y£S - DO i^OT BUir^O NEW K0«< 

LDA inFLG2 ; NO - GET 1/0 FLAGS 

ANT XDS2BF ; DISPLAY TU 1/0 BUFFER'? 

RivZ ;YES - DU NOT BUILD NFa ROa 

ACQUIRE MEMORY FOR EDIT MODE IF NFFUFD 



M V I A , - 1 
CALL RCADKO 
CALL CKEDIT 
CNZ FRECNT 
RET 



; LOCATE BEGTNNi^JG OF NE»^ 

;PUw 
;CHECK FUR SUFFICIENT FREE 

; RETURN 
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3340 


0A9C 








3341 


0A9C 








3342 


0A9C 








3343 


0A9C 








3344 


0A9C 








3345 


0A9C 








3346 


0A9C 








3347 


0A9C 








3348 


0A9C 








3349 


0A9C 








3350 


0A9C 








3351 


0A9C 








3352 


0A9C 








3353 


0A9C 








3354 


0A9C 


22 ( 


:9 f 


^F 


3355 


0A9F 








3356 


0A9F 


EB 






3357 


OAAO 








3358 


OAAO 


AF 






3359 


OAAl 


32 ( 


:6 I 


'f 


3360 


0AA4 


3E ( 


:o . 




3361 


0AA6 


32 ( 


:5 F 


'f 


3362 


0AA9 


CD ■ 


76 I 


L9 


3363 


OAAC 


CB 


» I 




3364 


OAAO 


3E 1 


n^ 




3365 


OAAF 


32 ( 


22 F 


'f 


336b 


0AB2 


21 ( 


)6 ( 


)7 


3367 


0AB5 


22 i 


36 F 


^F 


3368 


0AB8 


C9 


• 





LSTLUP - UPDATE "hSTLlN" 

ENTRY: H,L = ADDRESS TO BE STORED 

EXIT J D,E = LSTLIi^ = H^LCENTFY) 
A,H,L DESTROYED 
LSTDCD = 
PRUFLD SET TO INDICATE PROTECTED 
FIELD OF FORMAT MODE ENABLED 



LSTLUP EQU $ 

SHLD LSTLIN 

LSTLUl EgU $ 
XCHG 

LSTLU2 EQU $ 
XRA A 
STA LSTDCD 
MVI A,STPR 
STA LSTFMT 
CALL CHKFMS 
RZ 

MVI A,-l 
STA PROFLD 



;SfcT NEW "LSTLIN" VALUE 
;PUT "LSTUN" \/ALUE INTO D,E 
;CLEAH LAST DISPLAY CODE 



; INITIALIZE LAST FORMAT 
; CONTROL CODE TO "STPR" 
; FORMAT MODE? 
;N0 - RETURN 

;YES - SET PROTECT FLAG TO 
; INDICATE PPUTECTED FIELD 
LXI H,ZRETRN INITIALIZE FIELD CHECKING 
SHLD CHKRTN ; ROUTINE 
RET 
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3370 


0AB9 


• 


« 


• 


;f»^f4;*:r)r)|tt4'3^*t»**** 


3 3 7 1 


0AB9 


« 


• 


, 


; MEfMOHY LUCK OFF * 


3372 


0AB9 


• 


• 


• 


. * ♦ *. ♦ :^ ♦ * ♦ 1c * 5 


>: * ♦ 41 ♦ f , ♦ 41 


3373 


0AB9 


• 


• 


, 


MLKOi-O 


F,QU 


$ 


3374 


0A69 


3A 


6B 


FF 




LDA 


MLKROW 


3 3 7 5 


OABC 


R7 


• 


• 




OR A 


A 


3 3 76 


OAB^:* 


C2 


CO 


10 




JUZ 


iMLKOF 


337 7 


OACO 


• 


• 


• 


ivlLKOt-F 


Fgn 


$ 


337B 


OACO 


21 





00 




LXI 


ri,0 


3379 


0AC3 


2 2 


6A 


FF 




vSHLD 


MLKFbG 


33B0 


0AC6 


3E 


04 


tt 




MVI 


A,MFMLUK 


33U1 


OAce 


C3 


U 


4B 




JMP 


ZClMDI 


iiaZ 


OACB 


« 


• 


• 


; ♦ * 4r 4: ♦ ♦ »■ » Tjt jf :» +. Jf 4i ,t f . 3»: 


3 38 3 


0AC6 


• 


« 


• 


; MFF.rih/ L0( 


:k UN ♦ 


3384 


OACB 


• 


• 


m 


. ♦ 4; 4f ;». * $ ♦, 4 ■;f 4 f ♦ ♦ ♦ ♦ ♦ ♦ 


33B5 


OACB 


• 


a 


• 


iMLKON 


Fyii 


$ 


33Bb 


OACB 


3A 


CO 


FF 




LDA 


cnRRow 


33B7 


OACE 


B7 


« 


• 




OKA 


A 


i3Bb 


OACF 


C2 


Db 


OA 




JiMZ 


MLU005 


33B9 


0AU2 


Cu 


4D 


10 




CALL 


CK£I)IT 


3390 


GADS 


CO 


• 


• 




PWZ 




3391 


0AD6 


• 


• 


# 


HLUOOh 


FQU 


$ 


3392 


0AD6 


3 2 


6B 


FF 




ST A 


tv(LKRUW 


3393 


0AD9 


• 


• 


• 


Ml.UOlO 


FQII 


$ 


3394 


0AD9 


3b 


04 


• 




'■^ V I 


A,f^.KMLUK 


339b 


OADB 


Ob 


00 


• 




MVT 


B,0 


3396 


OAUD 


21 


6A 


FF 




LXI 


H,MLKf LiG 


3397 


OAEO 


70 


• 


, 




MUV 


M,B 


339d 


OAE! 


C3 


OE 


4B 




vT/vlP 


ZSTMDl 



;GET Mfci'-^URY LOCK RUW 
;StT FUR FULL LOCK OUT? 
;N0 " CLtAH LfJCK GUT OnLY 
;YLS - TURW UFF mFMOHY LUCK 
;StT MKMURi LOCK ROW and 

;FLAG 10 ZfcPU 
;TUPi\i UFF MFMOHY LOCK 

;FLAG 



;GfcT CURRENT CUPiSOR HO*^ 
;SET FUR nvEKFLOvk INHIBIT/ 
J ho - SFT MFMQkY LUCK KOrt 
;FLI1 s^iOuFY 

;YES - DUH'T ALLOW LOCK UUT 
;!JU - SFI HFMORY LUCK ROw 



;TURN MFtMORY LUCK FLAG 
;0N ANU OOf'j'i bLif^'K LEu 
;(CLt,AR THE iMF'^^ORY LUCK 

;flag) 
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3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
341b 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
34 37 
3438 
3439 
3440 



0A£4 
0AE4 
0AE4 
0AE4 
0AE4 
0AE4 
0AE4 
0AE4 
0AE4 
0AE4 
0AE4 
0AE4 
0AE4 
0AE4 
0AE4 
0AE4 
0AE7 
0AE8 
OAEB 
OAEE 
OAEE 
OAEE 
OAEl 
0AF2 
0AF3 
0AF3 
OAF 3 
OAF 3 
0AF6 
0AF6 
0AF7 
0AF7 
OAFA 
OAFB 
OAFC 
OAFD 
OAFE 
OBOl 
OROl 
OBOl 
0B03 
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OBJECT CODE SOURCE STATEMENTS 

MLKSCH - LOCATE MEMORY LOCK ROW ♦ 

ENTRY: DON'T CAPE 



EXIT : Z - MEMORY LOCK ROW NOT FQUWD 
A,C,H,L DESTROYED 
NZ - MEMORY LOCK ROw FOUND 

H,L = ADDRESS OF LAST LOCK ROW 
(POINTS TU LSB OF NEXT LINE 
POINTER) 
A,C DESTROYED 



3A 
B7 
C8 



2A 

4F 

CD 
B7 
C8 
23 
OD 
C2 



3A 6B FF 

B7 . 

2A CB FF 

CA 01 OB 



6b Ft- 



CB FF 



6D 



F7 OA 



F6 FF 
C9 . 



MLKSCO 



EQll $ 
LDA MLKROW 
OKA A 
LHLD TOPLIN 
JZ NZEXXT 



MLKSCH 



EQU 
LDA 
ORA 
RZ 

. t :t; ^ 4^ # 4: f 4^ ^ ;^ 

; SEARCH FO 

; 9): 4: ^ j|t « * f ^tc 4: 3|( 

LHLD 
MLKSCl EQU 
MOV 
MLS 120 EQU 
CALL 
ORA 
RZ 
INX 
DCR 
JNZ 

NZEXIT EQU 
OKI 
RET 



MLKROW 
A 

R ROW * 

TOPLIN 

$ 

C,A 

$ 

CHAIN 

A 

H 
C 
MLS120 

$ 
377Q 



; LOCATE FIRSi' UNLOCKED ROW 
;GET MEMORY LOCK ROW 
;SET FOR PARTIAL SCPEFM LOCK 
;(SET FOR TOP DTSPLAif LINE 
;N0 - RETURN FOUND (NZ) 
YES - LOCATE ME^OPi LOCK ROW 

;GET MEMORY LOCK ROW 

;SET FOR PARTIAL SCREEN LOCK 
;N0 - RETURN 



;GET TOP LINE ADDRESS 

; LOCATE LINE (A-REG) 

;PUT LINE NUMBER IN C-REG 

;GET ADDRESS OF NEXT LINE 
;DOES NEXT LINE EXIST? 
;N0 - RETURN FAIL (Z) 
;YES " SET TO NEXT LINE PTR 
;ALL LINES FOUND? 
;N0 - DO NEXT LINE 



;SET NZ, S 
/RETURN (ZERO FLAG FALSE) 
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ITEM 

3442 
3443 
3444 
3445 
3446 
3447 
344b 
3449 
3 450 
3451 
3452 
345 3 
3^54 
3455 
345b 

345 7 
3 45 8 
3459 
3460 
3461 
3462 
3463 
3464 

346 5 
3466 
3 467 
3468 
3469 



LOC 

0BO4 
0B04 
0BU4 
0B04 
0B04 
0B0 4 
0H04 
0B04 
0BU4 
0Bu4 
0PO4 
0P04 
0B07 
0B07 
OBOA 
OBOB 
OBOE 
OB 10 
OB 12 
OB 13 
OBI 6 
0B16 
0B19 
OBI 9 
OBI A 
OB ID 
OBie 
OBIF 
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CD 47 06 

« • 

21 6 A FE 

Bb 

C2 19 OB 

3fc: 04 

06 FF 

70 . 

CO OE 



CD 14 



AF 

21 9 A FE 

77 , 

C9 . 

00 . 



MLOCK - TUHN -ON MEMORY LUCK FULL CGNDITIUN * 
ENTHY: DON'T CARE 



EXIT : 



A = 
Z = T 

MLKTMH = 



-1 (377B) 



MLOCKO 



MLOCK 



MLuCKl 



MI..K010 



Egu 

CALL 

ew^i 

LXI 

ORA 

JN7 

MVI 

MVI 

MOV 

CALL 

KQU 

CALL 

Eyli 

XHA 

LXI 

lAOM 

RET 

NOP 



PTBIOO 

$ 

H^r-'iLKFLG 

^.LKOiO 

A,ME;4L0K 

B,377Q 

M,b 

ZSTMOl 

$ 

ZBELL 

$ 

A 
HrNRUWS 

M,A 



; RESTORE PROPER DISPLAY PAHM 

;SET H,L TO ("lEMORy LOCK FLAG 
; MEMORY ALREADY LOCKED? 
;YES - DON'T SOOf^O BELL 
;N0 - FORCE MEMORY LOCK ON 

;AnD BLl.\iKlNG 
;SET ME^^OR^ LOCK FLAG 

; SOUND BELL AND REiURN A = 
; SOUND THE BbLL 

;SET Z-FLAG 

; (SET H TO DATA PAGE) 
; CLEAR l>]ROwS FOP RCADDR 
; RETURN I A = 0, Z= T) 
;riOP FOR PATCH TO "PT772" 



13255-90003 
ITKM LOC 



3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 



0B20 
0B20 
0B20 
0B20 
0B20 
0B20 
0B20 
0B20 
0B20 
0B20 
OB 20 
0B20 
0B20 
0B20 
0B20 
0B21 
0B22 
0B23 
0B24 
0B25 
0B26 
0B28 
0B2B 
0B2C 
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MOVCHR - MOVE CHARACTER STRING 

ENTRY: H,L = SOURCE POINTER 

B,C = DESTINATION POINTER 



7E 
7 
8 
2 
3 
B 
fc 
2 
7 
9 



CE 
20 



EXIT 



MOVCHR EQU 
MOV 
ORA 
RZ 

STAX B 
I NX H 
OCX 
CPI 
JwZ 
ORA 
RET 



B,C = NEXT STORAGE LOCATION 
H,L = END OF SOURCE STRING 
Z - TERMINATED BY A NULL BYTE 
NZ - TERMINATED BY AN EOF 



$ 

A,M 
A 



GET DATA BYTE 

IS IT A NULL? 

YES - RETURl^ (Z - TRUE) 

NO - STORE THE BYTE 

INCREMENT TO NEXT SOURCE BY 

B ; DECREMENT TO NEXT OEST BYTE 

EOP fWAS LAST BYTE AN EOF? 

MOVCHR ;N0 - DO NEXT BYTE 

A ;YES - SET Z-FALSE 

RETURN 
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ITEM 



Loc OBJECT codf: soupce statements 



FAGK 101 



349fcj 


0B2D 


• 


• 1 




. 44)(:4e:((4c4^4:44:^« 


3497 


0B2D 


• 


• 




; NEXT 


PAGE * 


349B 


0H2D 


• 


• < 




; t*t***'«f*** + # 


3499 


0B2D 




• < 




ImEXTPG 


Egu S 


3500 


0B2D 


E 


18 , 






MVI A,MAXR0W+1 


3501 


0B2F 


E 


6B , 






MVI L,MLKROW 


3502 


0B31 


b 


• • 






vSUB M 


3503 


0B32 


■'^D 


45 OB 




CALL NXllOO 


3504 


0B35 


• 


« 


• 


NX TO 40 


EQU $ 


3505 


0H3S 


3A 


6B FF 




LUA Jv,i,KRUW 


3506 


0B3B 


32 


CO FF 




ST A CURHOW 


3507 


0B3B 


CD 


C5 21 




CALL CDRPRT 


350B 


0B3F 


CD 


7b 1 


19 




CALL CHKFMS 


3509 


OB 41 


C2 


C4 ] 


[U 




JNZ FLUSH 


3510 


0B44 


C9 


• 






RET 



COHPUTF NUMBFH 
;TtJ ROLL lip 



OF LINES 



;SET CURREirr CURSOR POSITluN 
;T0 MEMORY LOCK ROW AND 

;left margin 

;FORNAl/SnFT KEY DEF1^E MODE 
;YES - TAB TO NEXT FIELD 
;N0 - RETURN 



13255-90003 
ITEM l.OC 



3512 
3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 



0B45 
0B45 
0B45 
0B45 
0B45 
0B45 
0B45 
0B45 
0B45 
0845 
0B45 
0B45 
0B45 
OB 45 
0B46 
0B48 
0B49 
0B4A 
0B4A 
084B 
0B4E 
0B51 
0B52 
0855 
0B56 
0B59 
0B59 
0B59 
0B59 
0B59 
0B59 
0B59 
0B5A 
0B5B 
0B5C 
0B5D 
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4:f4t;Jc)tt:|::f4:*t************** 



4F 
2E 
71 

23 

• 

71 

CD 

21 

4E 

CA 

OD 

C2 



23 
7E 
91 
4F 
C9 



NXTPGl - ROLL UP N LINES 



ENTRY: 



EXIT 



A = NUMBER OF ROWS fO ROLL UP 
H = BASEH 



NXTIOO 
NXTPGl 



WXTllO 



C = NU 
A,B,D, 



27 

82 



DC 
FF 



59 OB 



4A OB 



EQU 

Egu 

MOV 

MVT 

MOV 

INX 

EQU 

MuV 

CALL 

LXI 

MOV 

oz 

DCR 
JMZ 



TERMINATE 
ROLLED 
*♦♦♦♦♦♦*♦♦ 
NXT120 EQU 

MOV 
SUB 
MUV 
RET 



C,A 
LrROLLCT 

M,C 

H 

$ 

ROLLUP 

H,ROLLCT 

CM 

NXT120 

C 

NXTllO 

f f 4( ¥ ;^ ;ti 4c t f ^ 

ROLL UP - 

$ 

H 

k,i* 

C 

C,A 



MBER OF LINES ROLLED 

MMROLL+ 

E DESTROYED 



;PUT ROLL PARAMETER IN C-PEG 
;SAVE ROLL PARAMETER 



;ROLL UP SUCCESSFUL? 
? (RECALL ROLL COUNT) 

;N0 - EXIT 

;ALL LINES DONE? 

;N0 - ROLL UP ANOTHER LINE 

YES - EXIT (C = 0) 

RETURN NUMBER OF LINES ♦ 

;GET NUMBER OF LINES TO BE 

/ROLLED UP 
;CUMPUTE ACTUAL NUMBER DONE 
;PETURN VALUE IN C-PEGISTER 
;RLTURN 
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ITEM LOC OBJECT CODK SOURCE STATEMENTS 



PAGF; 103 






3549 


0P.5F 








»^4t4^*^if.t^^*******>^**^*ilh*^*1'*=^^**'i^'¥^**^** 


3550 


0B5E 








; GFT 


ADDRESS OF NEXT 


* 


3551 


0B5F: 








; RAM 


BLOCK 


• 


♦ 


3552 


0R5E 








; entry: 




♦ 


3553 


0B5?': 








; E, BIT 7 


= 0, 4K iNCREMEiVTS * 


3554 


0B5E 












= 1, 256 


* 


3555 


0B5F. 














♦ 


3556 


0B5F 








BIT 


= 0, IN tun 


1 -DISPLAY RAM ♦ 


3557 


0B5K 












= 1 , DISPLAY HAM * 


3558 


065t: 














* 


355y 


0B5E: 








; il = 


IF 


^IPST ENTRY 


' OF HOUTIME * 


3560 


0B5F 














* 


3561 


0B5P 










CALL 


NXSBLK 


4 


3562 


ob5f: 














* 


3563 


0B5K 








; exit 


• 




* 


356^ 


OflSE 










(H,L) = ADDRFS5 


. OF NEXT * 


3565 


oBse 












BLOCK 


♦ 


3566 


0B5P 










A = 


) IF EMD OF 


MENiORY * 


3567 


0B5E' 










K SE 


r TO INDICATE APPRO P. RAM ♦ 


3568 


085^ 










OTHE 


^ PEGS. UfvCHANGED, FLAGS ARE, ♦ 


3569 


obsk 








;+**:^*4=tJ(<**t *♦ + ♦♦♦♦♦♦* t***********^*^***** 


35 70 


ob5p: 








NXSBlK 


EQli 


$ 




3571 


0B5F: 


C5 








PUSH 


B 




3572 


0B5F 


AF 








XHA 


A 




3573 


0B60 


BC 








CMP 


H 


;H = 0? 


3574 


0B61 


C2 


75 C 


)6 




JNZ 


NXBIOO 


;N0 - ADVANCE TO ^'EXT BLOCK 


3575 


0B64 


2 A 


80 f 


,^. 




I.HLU 


BUKBGN 


;IS THERE AUi NON DISPLAY 


3576 


0Bb7 


9 


• t 




NXB060 


Fgu 


$ 




3577 


oeo7 


3 A 


8C F 


'F 




LDA 


BUFENDf 1 


;MEwaHY? 


35 7 8 


OBbA 


BC 


• 4 






CHP 


H 




3579 


0B6B 


D2 


83 ( 


)B 




JHC 


NXB200 


;yes, EXIT 


35B0 


0B6F 


2A 


AA F 


^F 




LhLU 


D.SPBGfN> 


;N0, USE DISPLAY ^EMuRY 


35«1 


0871 


IC 


• < 






ItiR 


E 


; INDICATE DlSPLAic ^jFHGHY 


35B2 


0B72 


C3 


83 ( 


)B 




J MP 


NXB2U0 


;FXT1 


3583 


OB 7 5 


• 


• « 




HXBIOO 


Egu 


$ 




3584 


0B75 


B3 


. , 






OH A 


£ 


; INCREMENT BY 4K fBIT 7=0) 


3585 


OB76 


01 


00 1 







LXI 


B,10000Q 


;(SET FOR 4K TnCRFK.ENT) 


3586 


0B79 


F2 


7t: f 


>B 




UP 


NXB150 


;YES - COMPUTE NEXT BLOCK AD 


35B7 


0B7C 


06 


01 . 






M V I 


B, 256/256 


;N0 - INCREMENT BY 256 ONLY 


358d 


0B7F 


• 






NXbl50 


EQU 


$ 




3589 


0B7F 


09 








HAD 


B 


;BUMP POINTER 


3590 


0B7F 


OF 








RHC 




/TESTING NON-DISPLAY AREA? 


3591 


OB 80 


D2 


67 C 


)B 




JNC 


NXBOoO 


;YES - CHECK UPPER BOUNDARY 


3592 


0Bd3 


• 






NXB200 


FyU 


$ 




3593 


OB 8 3 


7C 








MOV 


A,H 


;U WE WENT OVER TuP OF 


3594 


0BB4 


• 






« 

r 






MEMORY H,= 


3595 


0B84 


CI 








POP 


B 




3596 


0B85 


C9 








RET 
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ITEM 

3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3t>25 
3626 
3627 
3628 
3629 
3630 
3631 



LOC 

0B86 
0B86 
0B86 
0B86 
0B86 
0B86 
0B86 
0B86 
0B86 
0B86 
0B86 
0B86 
0R86 
0B86 
0B86 
0B87 
0887 
0B88 
0B89 
0B8B 
0B8E 
0B8F 
0B90 
OB 91 
0B92 
0B93 
0B94 
0B95 
0B97 
0B98 
0B99 
0B99 
0B99 
0B9A 
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NXTCHR - GET NEXT CHARACTER IN DISPLAY LIST ♦ 

ENTRY: D,K = ADDRESS OF CURRENT CHARACTER 

EXIT : Z = T, CHARACTER IS NOT AN EOL LINK 
A = DISPLAY CHARACTER 
0,E = ADDRESS OF CHARACTER 
F, NEXT CHARACTER IS EOL LINK 
A DESTROYED 
D,E = ADDRESS Oi- NEXT LINE LINK 



EB 

IB 
lA 
FE 
DA 
EB 
2B 
6E 
67 
EB 
7B 
2F 
E6 
CO 
lA 



BF 
C9 



DO 
99 



OF 



NXTCHO EQU $ 

XCHG 
NXTCHR EQU $ 

DCX U 

LDAX D 

CPI LNKLIM 
OB JC 

XCHG 

DCX 

MOV 

MOV 

XCHG 

MOV 

CMA 

ANI 

RNZ 

LDAX D 



NCHOIO 

H 

L,rt 

H,A 

A,£ 

BLKSM 



;PUT POINTER INTO D,E 

;GET THE NEXT DISPLA)f 

?CHAHACTER 
;IS IT A LINK? 
;N0 - EXIT 

;YES - GET NEW ADDRESS 
;GET LSB OF LINK 



PUT ADDRESS INTO D,E 
PUT LSB INTO A-REGISTER 
END OF LINE LINK (LOWER 

;BITS NOT ALL ONES)? 
YES - RETURN Z FALSE 
NO - GET THE DATA BYTE 



FOU 



NCHOIO EgU 
CMP 
RET 



;S£T Z TRUE 
; RETURN 
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ITKM 

3633 
36 34 
3o35 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3b46 
364? 
364B 
3649 
3650 
3651 
3652 
3o53 
3654 
3655 



LQC 

0B9B 
0B9e 
0B9B 
0B9B 
0B9B 
0B9B 
0B9B 
0B9B 
0B9B 
0B9B 
0B9C 
0B9C 
0B9D 
0B9D 
0B9E: 
0B9e 
0B9F 
0B9F 
OBAl 
OB A 3 
08A4 
0BA7 
0BA8 
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OF 
OF 
OF 
OF 



E6 
C6 

E5 . 

CD CD 

El . 

C9 . 



OF 
30 



FF 



FAROUT - SEND STATUS BITS * 
ENTRY: A = PARITY BITS TO BE SENT 



EXIT ; A-E DESTROYED 



PAH0T4 



PAR0T3 



PA ROT 2 



PAROTl 



PAROUT 



Eg II 
RRC 
EQO 
RRC 

Egu 

RRC 
EQU 
RRC 
EUU 

I\(Vl 

AD I 

PUSH 

CALL 

POP 

RET 



/ROTATE DOWN 4 BITS FIRST 



S; 



$ 
1 7 

ZERO 

H 

ECONTF 

H 



;GET BITS 0-3 

;ADO IN ZERO BASE TO FORCE 
;DISPLAVA8LE CHARACTER 

;Pt;PFnRM output function 

; RESTORE H,L 
; RETURN 



13255-90003 



ITEM 

3657 
3658 
3659 
3660 
3661 
3662 

366 3 
3b64 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3o72 

367 3 
3674 
3675 
3676 
367 7 
367 8 
3679 
3680 
3b81 
3o82 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 



LOC 

0BA9 

0BA9 

0BA9 

0BA9 

0BA9 

OBAB 

OBAD 

OBAE 

OBBl 

0B84 

0BB4 

0BB4 

0BB4 

0PB4 

0BB4 

0BB4 

0BB6 

0BB6 

0BB6 

0Bb6 

0BB6 

0BB6 

0BB6 

0BB6 

0BB6 

0BB6 

0BB6 

0BB6 

0BB6 

0BB9 

0BB9 

OBBC 

OBBF 

OBCO 

OBCl 

0RC4 



Rev AUG-Ol-76 ^ sssssrssssss 

object'code source statements ^^^^.i^^.. 

; PREVIOUS PAGE * 

PREVPG EQU S 

M\fl A,-MAXR0W-1 

MVI L,MLKROW ;COMPUTE NUMBER UF ROWS TO 

AUD M ;ROLL DOwM 

CALL PPVIOO 

JMP NXT040 



3E E8 
2E 6B 
86 



CD 
C3 



CD 
21 
C8 
34 
C2 
C9 



B6 
35 



OB 
OB 



00 



PRVPGl - ROLL DOWi'^ FOR CURSOR POSITIONING 
ENTRY: H,L = CURROW+ 



PRVPGl Egu $ 

MVI M,0 



;StT CURRENT ROW TO ZERO 

PRVIOO - ROLL DOWN N LINES 

ENTRY: A = -NUMBER OF LINES TO POLL DOWN 
H = BASER 



EXIT 



A-L DESTROYED 



32 82 FF 



C5 
82 



OB 
FF 



B9 OB 



PRVIOO EQi) $ 

STA KOLLCT ?SAVE THE ROLL COUNT 

PRVUO Egu S ^ . .o 

;LINE ROLLED DOWN? 
;(SEI H TO DATA PAGFJ 
;N0 - RETURN 
;ALL LINES DONE? 
;N0 - DO ANOTHER LINE 
;yES - RETURN 



CALL 


ROLLDN 


LXI 


h^ROLLCT 


PZ 




INR 


M 


JNZ 


PRVUO 


PET 
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ITEM 



LOC 
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3694 


0HC5 




• 




'4^t*^*t^.t^lii4-*'^^^*^t^*^*^il^***.^^****1f*** 


3695 


0BC5 




• 




' ROLLDN - 


ROLL DISPLAY DOwN ONE LINE 4- 


3696 


0BC5 




• 




':ti:^t^*^*^**^^^-¥4'^*^*4li**^t4**i^*t**^***-¥* 


3697 


OBCS 




• 








3698 


0BC5 




• 




• ENTRY: 


DON'T CARE 


3699 


0BC5 




• 








3700 


0BC5 




• 




' EXIT : 


NZ - ROLL DuWM SUCCESSFUL 


3701 


OBCS 




• 






Z - ROLL DOWN FAILED 


3702 


0BC5 




• 






ALL REGISTERS DESTRUYED 


3703 


OBCS 




• 








3704 


0BC5 




• 


ROLLON EgU 


$ 


3705 


0BC5 


CU 


EE 


OA 


CALL 


HLKSCB 


3 7 06 


OBCf^ 


CA 


EF 


OB 


JZ 


RLDO^O 


3 707 


OBCB 


• 


• 




4.4.* + t4'**4^ + ** + ********4** 


3708 


OBCB 


• 


• 




MEMnHY LOCK ROLL DOWN ♦ 


3709 


OBCB 


• 


•' 




*itii^^:^f:^^4-^:^HJtlit^t**¥^**^^^ 


3710 


OBCB 


ee 


• 




XCHG 


;LAST LOCKED LINE ADDR TO 0, 


3711 


OBCC 


2A 


CB 


FE 


LBLD 


TOPLiN ;GET TOP LINE ADDRESS 


3712 


OPCF 


23 


• 




INX 


H ;vSEt ADDRESS TU PREVIOUS LiN 


3 713 


OBDO 


23 


• 




INX 


H ; POINTER 


3714 


OBDl 


CD 


6D 


19 


CALL 


CHAIN ;GET PREVIODS LIWE'S ADDRESS 


3715 


0BD4 


B7 


• 




OH A 


A ; PREVIOUS LINE EXIST? 


3710 


0BD5 


CB 


• 




RZ 


;'M0 - RETURN 


3717 


0BD6 


D5 


* 




PUSH 


D ;YES - ROLL DOwN THE LINE 


371b 


0BU7 


CD 


DA 


09 


CALL 


LINDLO ; DELETE ISl' HiME ABOVE DiSP 


3 719 


OBDA 


21 


A3 


FF 


LXI 


H,lHf^O ; DECREMENT TOP MNE 


3720 


OBDO 


35 


• 




DCP 


M ;NU^BER 


3721 


OBDE 


El 


• 




PUP 


H ; RECALL LAST LOCKED LINE ADD 


3722 


OBDF 


CD 


39 


OA 


CALL 


LlWlNA ;ADD line BELOa LOCKED LINES 


3 723 


0Bb:2 


3A 


6B 


FF 


LDA 


MLKROW ;GET LOCK ROW NUMFiEP 


37 24 


0B£5 


3D 


• 




DCP 


A ; ADJUST FOR COMPARE 


37 25 


0BE6 


21 


C7 


FF 


LXI 


B,LSTROW ;COMfc>AHE TO LAST ROW DONE 


37 26 


0BE9 


BE 


• 




CHP 


M ;DID it ROLL DOWN? 


3727 


OBEA 


FA 


18 


OC 


Jt^ 


RLD090 ;YES - UPDATE DISPLAY PTRS 


372d 


OBED 


B4 


• 




ORA 


H ;N0 - FORCE NZ AND EXIT 


3729 


OBEF 


C9 


• 




RET 


; RETURN 
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ITEM 



LOG 
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3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 

3770 

3771 

3772 

3773 

3774 



OBEF 
OBEF 
OBEF 
OBEF 
OBEF 
0BF2 
0BF3 
0BF6 
0BF9 
OBFA 
OBFB 
OBFC 
OPFE 
OCOt 
0C02 
0C03 
0C06 
0C07 
OCOA 
OCOA 
OCOA 
OCUA 
OCOA 
OCOD 

ocue 

OCOF 
OCIO 
OCll 

ocii 
ocn 

OCll 

ocn 

OCll 
0C13 
0C16 
0C18 
0C18 
0C19 
OCIA 
OCIC 
OCIF 
0C22 
0C23 
0C24 



3A 
B7 
CA 
21 
46 
77 
C5 
3E 
CD 
CI 
78 
32 
CO 
C3 



2A 
23 
23 
B6 
C8 



7E 
3C 
FE 
C2 
2A 
23 
23 
C3 



6B FF 



OA 
CO 



FF 
OB 



16 FF 
CD 79 
2E C7 



18 
05 
C9 



OC 
FF 



07 



CO FF 



C5 OB 



CB FF 



OF 



16 

FF 



; NORMAL ROLL DOWN * 

RLD080 EQII $ 
LDA 
ORA 
JZ 
LXI 
MOV 
MOV 
PUSH 
MVI 



MLKROW 

A 

RLD085 

H,CURROW 

B,M 

M,A 

b 

A,-l 
CALL RCADRO 
POP B 

A, fa 

CURROW 



MOV 
STA 
RNZ 
JMP 



ROLLDN 



;GET MEMORY LOCK ROW 
;IS IT ZERO? 

;YES - DO "NORMAL ROLL DOWN 
;N0 - TRY TO ALLOCATE LINES 
;T0 memory lock ROw 

;SAVE CURRENT ROw NUMBER 
;(SET FOR COLUMN ZERO) 

;IS MEMORY AVAILABLE? 
; (RESTORE CURRENT ROW 
; NUMBER) 

;N0 - RETURN FAIL 

;YES - RETRY MEMORY LOCK ROL 



DISPLAY NOT LOCKED - DO NORMAL ROLL DOWN 



RLD085 



Egu 


$ 


LHLD 


TO PL IN 


I NX 


H 


INX 


ri 


ORA 


M 


RZ 





TOP LINE IS NOT FIR 
ADVANCE POINTERS 

MVI D,-i ; 

CALL TOPUPD ; 



RLD090 



MVI 
EQU 
MOV 
INR 
CPI 
JNZ 
LHLD 



L,LSTROW- 

S 
ArM 

A 
MAXROW+1 
STOPEA ; 

LSTLIN 



;GET TOP LINE ADDRESS 
;S£T TO PREVIOUS LINE 

? ADDRESS 
;ANV PREVIOUS LINES? 
;N0 - DON'T DO ROLL DOWN 
i!ES - ROLL ONE LINE DOWN 

ST LINE * 

FLAG TO DECREMENT TLINO 
UPDATE TOP LINE POINTERS 
BASE ;GET LAST ROW PROCESSED 



53 OC 



INX H 
INX H 
JMP ROL200 



; INCREMENT 

NOT ROLL OFF - STORE ROW 
;GET ADDR OF LAST LINE DONE 
;SET TO PREVIOUS LINE 
; ADDRESS 
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: = =i: = ss 


ssssszs: 


:s:sz= 


S5=:: 


:sssss 




ssszs 




s s s = = s: z = :: z s z s 5 =; s s s = s = = s z = =; = s s =. = 


ITEM 


LOC 


OBJECT 


CODE 


SOURCE 


STATEMENTS 


PAGE 109 




ssssrsrs: 


:ss = £ 


= 3:= = 




ss:s£s = s 


zz:x:zs 




ssrzzzzzszssssszzzrsszzszsrsszz 


377b 


0C27 


• 


• 


« 


;*f*******^4:******** + *»*»***»**4:*t*** 


3777 


0C27 


m 


• 


, 


; rolLup - 


ROLL UP 


DISPLAY ONE LINE * 


377b 


0C27 


m 


• 


• 


.♦:f»* + 1tt4-*****^ftJ^* ♦*♦*♦♦♦♦♦♦*♦♦♦»♦*** 


3779 


0C2.7 


• 


a 


• 


ROLLUP 


EQU 


$ 




3780 


0C27 


CD 


EE 


OA 




CALL 


MLKSCH 




3781 


0C2A 


CA 


66 


OC 




JZ 


RUL080 




3782 


0C2O 


• 


• 


• 


;^3(F**$*^^^*1i7^^t**^i^ilfii^t^ 


3783 


0C2D 


. 


• 


• 


; MEHOHY LOCK ROLL- 


UP ♦ 


3784 


0C2D 


• 


• 


• 




3785 


0C2D 


7fc: 


• 


• 




MOV 


A,M 


;li> THERE A NEXT LINE? 


3786 


0C2e 


B7 


• 


• 




OkA 


A 




3787 


0C2F 


C8 


• 


• 




nz 




;NU - DON'T DO PULL UP 


3788 


0C30 


CD 


DA 


09 




CALL 


LINDLO 


;YES - RENiUVE FIRST UNLOCKED 


3789 


0C33 


21 


A3 


FF 




LXI 


H,TLi^JO 


;lihe 


3790 


0C36 


34 


• 


• 




INR 


M 


/INCREMENT TUP LINE NUMBER 


3791 


0C37 


2A 


CB 


FF 




LHLD 


TOPLIN 


;GfcT TUP DISPLAY LIME ADORES 


3792 


0C3fl. 


3A 


68 


FF 




LDA 


MLKROW 


; FORCE END-OF-PAGE IF DISPLA 


37 93 


0C3D 


F6 


20 


• 




OR I, 


i^lAYEOP 


;IS CURPtNTLi REFRESHING 


3794 


0C3F 


32 


20 


8 7 




STA 


lOCRRW 


; MEMORY LOCK BOUNDAPy ROw 


3795 


0C42 


CD 


39 


OA 




CALL 


LININA 


;ADD LINE ABOVE DISPLAY 


379b 


0C45 


3A 


6B 


FF 




LDA 


MLKROW 


;GET LUCK ROiN fMUMRER 


3 797 


or48 


21 


C7 


FF 




LXI 


H,LSfROW ;GET LAST ROw PRUCES3FD 


3798 


0C4B 


96 




• 




SUB 


lA 


;DID IT ROLL UP? 


3799 


0C4C 


FA 


74 


OC 




JM 


ROL090 


;YE5 - UPDATE LINE POINTER 


3800 


0C4F 


CO 








9NZ 




;mU - KETUKN (Z = FALSE) 


3801 


0C50 


77 








MUV 


M,A 


;SAMfc. - FORCE LAST ROW = 


3802 


0C51 


• 






HOLIOO 


Egu 


$ 




3803 


0C5I 


2E 


C3 






MVI 


L, TOPLIN 


;S£T CUPRE.NiT LINE 10 TOP LINE 


3804 


0C53 


• 






R0L200 


Ego 


5 




3805 


0C53 


5E 








MOV 


R,M 




380b 


0C54 


• 






R0LnP2 


Egu 


S 




3807 


0C54 


2C 








IlvP 


L 




3808 


0C55 


5b 








MUV 


D,M 




3809 


0C56 


• 














3810 


0C56 


• 






; RULUP3 - 


UPDATE 


LSTLIN AND CURADR 


3811 


0C56 


, 














3812 


0C56 


• 






ROLUPS 


Egu 


$ 




3813 


0C56 


KB 








XCHG 




;SET LSTLIN 10 NEW ROW 


3814 


0C57 


• 






ROLUPC 


Egu 


$ 




3815 


0C57 


CD 


9C 


OA 




CALL 


LSTLUP 




3816 


0C5A 


EB 








XCHG 




;PUT NEW ROW ADDRESS INT H,L 


3817 


0C5R 


2B 








ncx 


H 


;SET TO LSB OF NEXT LINE PTR 


3818 


0C5C 


22 


C3 


FF 




SHLD 


CUR ADR 


;SET CURADR TO TOP LINE 


3819 


0C5F 


EB 








XCHG 




; RESTORE D,E AND H,L 


3820 


0C60 


AF 








XRA 


A 


;SET LAST COLUMN PROCESSED 


3821 


0C61 


32 


C8 


FF 




SI A 


LSTCOL 


;D0NE TO ZERO 


3822 


0Cb4 


B3 








ORA 


E 


;SET Z-FLAG FALSE 


3823 


0C65 


C9 








RET 




; RETURN 
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3H2b 
38 26 
3b27 
3B28 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 
3838 
3839 
3840 
3841 
3842 
3843 
3844 
3845 
384b 
3847 
3848 



LOC 

0C66 
0Cb6 
0C66 
0C66 
0C66 
0C69 
0C6A 
OCbB 
OCbO 
OCfoD 
OCbR 
OCbF: 
OCbE 
OCbR 
OCbF. 
OCbE 
0C71 
0C74 
0C74 
0C75 
0C76 
0C79 
0C7A 

or7P 



Rev 

ESSSSS 

OBJEC 



AUG-01 
T CODE 



CO 
21 

4E 
00 
FA 
71 
B4 
C9 



2A CB FK 

B6 

C8 

lb 

• 
3C 



-7b 

sssxsssr 

SOUPCE 

sxsssrss 
; *♦♦♦♦ 
; NOHM 
; ♦♦♦♦♦ 
BnL080 



9 OF 
7 FF 



51 OC 



SXAXEhENTS PAGE 1 10 

^ 1^ « t :^ f $ « i|[ « ¥ ♦ 
AL PULL-UP ♦ 

Egu s 

LHLD TOFLIN 

HKA M 

HZ 

M V I I) , 1 



li\R A 
^ :» « 4i f ;^ $ 4t 1 1 f « « « ♦ 
hUiE IS i^OT LAS 
NCh; t-OIMEPS 

i<nnJPi Euii $ 

CALL TOPUPO 




TU NEXT MME POIW 



;♦♦♦♦♦ 
; TOP 
; ADVA 



HOL090 



LXT 

EQU 

MUV 

OCR 

JiM 

MUV 

OHA 

PET 



H,LSTRUW 

$ 
CM 
C 

RULIOO 
M,C 



;SET I. SB 
T LINE ♦ 



; UPDATE TOP LIhF PUlNTtRS 
;GET LAST HOtfl # PRuCcSSEU 



DECKFMEnT 

LINE ROLLED OFF SCREEN 
STOHE UPDATED LSTPOw 
SET Z-FLAG 10 FALSE 



13255-90003 



1TEN< LOC OBJKCT CODE SOUPCF vSTATE.MENTS 



; CHAR SET SELECT ♦ 

SCHHST EQII $ 

LXl H,CHHSTe 

J^^p e:6CAPo 
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3B50 


0C7C 


• 


, 




3851 


0C7C 


• 


, 


» 


3852 


0C7C 


• 


• 


» 


3853 


0C7C 


• 


, 




3B54 


0C7C 


21 


58 27 


3855 


QClf 


C3 


81 04 


385b 


0C82 


• 


• 




38 5 7 


0C8 2 


• 


• I 




3858 


0C82 


, 


• i 




3859 


0C82 


• 


• < 




3860 


0C82 


79 


• < 




3861 


0C83 


E6 


OF , 




3862 


0C85 


07 


« < 




3863 


0C86 


7 


• i 




3864 


0C87 


07 


• « 




3865 


0C88 


7 


• < 




3866 


0C89 


3 2 


72 F 


>' 


3867 


0C8C 


C9 


• < 


t 



;SET FUR CHARACTEP SET SELEC 



SET NEW ALTEPMAXE ChAHACTEP SET 



5CHS11 


EQii 


$ 






mjv 


A,C 


;PUT INPU 




AN I 


I7g 


pRXTHACT 




RLC 




; SH TET TU 




PLC 




;ALTEPN 




PLC 








PLC 








STA 


CHRSET 


;S'inKE CriAH 




PET 




;PETUPN 



T CHAHACTEP IN A-HE 
CHARACTEP SET NUMBE 

pnSITTUN FOP 
ATE CHAPCTFP SET 



SET SELECT CTL 



13255-90003 



ITEM 

3869 
3870 
3871 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 



LOC 

0C8D 
0C8D 
0C8D 
0C8D 
0C8O 
0C8D 
0C8O 
0C8D 
0C8D 
0C8D 
0C8D 
0C90 
0C91 
0C93 
0C96 
0C99 
0C9C 
0C9F 
0CA2 
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OBJECT CODE SOURCE STATEMENTS PAGE 112 

SFKYOF - PUT NORMAL DISPLAY ON SCREEN 
ENTRY; DON'T CAPE 
EXIT : ALL REGISTERS DESTROYED 



CD 
C8 
3E 
CD 
CD 
C2 
21 
22 



8C 

F7 
DC 
47 
AE 
64 
D2 
AE 



13 
10 
OC 
26 
FF 
OC 



SFKifUF F.QU 


$ 


CALL 


CHKSFK 


PZ 




MVI 


A,377Q-D 


CALL 


CLCMFL 


CALL 


CKDSPF 


JNZ 


SFUOIO 


LXI 


H,RTABLE 


SHLD 


HNGTA 


JMP 


SFQOIO 



;NORMAL DISPLAY ENABLED? 

;YES - RETURN 

SKY ?N0 - SWAP DISPLAY 

; CLEAR SOFT KEY MODE FLAG 

; DISPLAY FUNCTIONS ENABLED? 

;YES - DON'T RESET RANGE TBL 

;NQ - RESTORE NORMAL 

jCHARACTER FUNCTION TABLE 
;TURN ON NORMAL DISPLAY 



13255-90003 
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ITEM 

3889 
3890 
3891 
3892 
3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
390 3 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
39U 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
392i 
3922 
3923 
3924 
3925 
3926 
3927 
3928 



Lac 

0CA5 
0CA5 
0CA5 
0CA5 
OCAS 
OCAS 
OCAS 
OCAS 
OCAS 
OCAS 
OCAS 
0CA8 
0CA9 
OCAB 
OCAC 
OCAE 
OCAE 

ocaf; 

OCAE 
OCbl 
0Cb4 
0CB7 
OCBA 
OCBA 
OCBA 
OCBA 
OCBA 
OCBA 
OCBA 
OCBA 
OCBA 
OCBA 
OCBA 
OCBA 
OCbD 
OCCO 
0CC3 
0CC6 
0CC9 
OCCC 



OBJECT CODE 



CD 
CO 

CD 



CD 
CD 
CD 
C3 



CD 
CA 
CD 
CA 
C2 
C3 



BC 

• 

08 

00 



69 
OE 

20 
A4 



8C 
lA 
A6 
8D 
lA 
B6 



21 
ID 
IE 
06 



19 
23 
12 
OC 
23 
14 
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SFKYON - PUT SOFT KE^ DISPLAY ON SCREEN * 
ENTRY: DON'T CARE 



FXIT : MZ 



ALL REGISTERS DESTROYED 



SFKYON 



Egu 

CALL 

RNZ 
>MV1 
CALL 



CHKSFK 

A,DEFSKY 
STCMFL 



EXCHANGE DISPLAY 



SFOOIO 



CATL 
CALL 
CALL 
JMP 



$ 

SWA? 

RSTDSP 

FLDSHX 

KCADRA 



;SOFT KEY DEFINE ^^ODE? 

;YES - RETURN 

;N0 - SWAP DISPLAY 

; SET SOFT KFi MODE FLAG 



;SrtAP DISPLAY PARAMETERS 
;TURN ON THE DISPLAY 
;RESCAW LliME TO SET PROPER 
; FIELD ATTKIBUIE 



SFKYDS - DISPLAY CHAHACTEP IN SOFT KEY MODE ♦ 

ENTRY: DCHAR = CHARACTER TO BE DISPLAYED 

EXIT : IF CHARACTER FROM KEYBOARD, 

CHARACTEP IS ADDED TO DISPLAY 
OTHERWISE, 140RMAL DISPLAY FS RESTORED 



SFKYDS 



EQU 

CALL 

JZ 

CALL 

CNZ 

JNZ 

JMP 



$ 

CHKSFK 

DSPCHR 

DCXB2D 

SFKYOF 

DSPCHR 

FDESCl 



;SOFT KEY DEFINE MODE? 
;N0 - USE NORMAL ROUTINE 
; INPUT FROM KEYBOARD? 
}HU - SWAP DISPLAY 

;AND USE NORMAL ROUTINE 
;YES - DISPLAY CHARACTER 

AND KILL "CURADV" FLAG 



13255-90003 Rev AUG-01-76 
ITEM LOC OBJECT CODE SOURCE STATEMENTS PAGE 

; SFTRST - SOFT RESET * 

SFTRST EQU $ 

CALL lOBSYC 

DI 

MVI A,l 

STA KSTTMR 

JHP GOl 



114 






3930 


occc 


, 


• 


• 


3931 


occc 


• 


• 


• 


3932 


occc 


• 


• 


• 


3933 


occc 


• 


• 


• 


3934 


occc 


CD 


6E 


15 


3935 


OCCF 


F3 


• 


• 


3936 


OCDO 


3E 


01 


• 


3937 


0CD2 


32 


DO 


FF 


3938 


0CD5 


C3 


DA 


00 



?WAIT UNTIL CTU'S FREE 
; DISABLE INTERRUPTS 
;S£T RESET TIMER FUR 

; SECOND ONLY 
;D0 SOFT RESET 



NE 



ITEM 

3940 
3941 
3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 



LOG 

0CD8 
0CD8 
OCOB 
0CD8 
0CD8 
OCDB 
OCDC 
OCDF 
OCOF 
OCEO 
0CE2 
OCES 
0CE5 
0CE6 
0CE6 
0CE8 
0CE8 
OCEB 
OCEB 
OCEB 
OCEB 
OCEB 
OCEE 
OCEP 
OCFO 



OBJECT CODE 



CD 8C 
CO • 
3A 12 



47 
3E 
CD 

78 

06 

C3 



OB 
08 



OE 
EO 



9 
FE 



CD 8C 

CO . 

AF . 

C 3 DF OC 
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; SO - SHIFT OUT * 

SHFTOT EQU $ 

CALL CHKSFK 

PNZ 

hO^ CHRSET 
SHFTl EgU $ 

MOV B,A 

MVl A,SWCHAR 

CALL ZKBCTL 



; DEFINE SOFT KEY MODE? 
;YES • DON'T SWITCH CHAR 
GET CURRENT ALT CHAR SET 



SET 



SHFT2 



MOV 
EQU 
MVI 



A,B 

$ 

B,17Q 



JMP DISFCl 

; SI - SHIFT IN ♦ 

SHFTIN EQU $ 

CALL CHKSFK 

RNZ 

XhA A 

JMP SHFTl 



;PUT NEW CHAR SET IN B-REG 
;SET CHARACTER SWITCH IN 
; KEYBOARD FOR POSSIBLE 
FOREIGN MODE ENABLE 
; RECALL i^Ew CHARACTER SET 
; ENTRY FOR SELF"TEST 
;SET MASK TO SAVE DISPLAY 

ENHANCEMENT BITS 
;ADD CODE TO DISPLAY 



? DEFINE SOFT 
;YES - DON'T 



SET FOR 
;SET 



BASE 
CODE 



KEY MODE? 
SWITCH CHAR 
CHARACTER 



SET 



13255-90003 
ITEM LOC 
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; STATUS - RETURN TERMINAL STATUS * 

STATUS EQU $ 

LXI B,SSTAT ;SET BLOCK TRANSFER FOR 

OMP SBLXFO ;FUR TERMINAL STATUS 

; STATGO - TRANSMIT TERMINAL STATUS ♦ 



3966 


0CF3 


• 


• 




3967 


0CF3 


• 


• 




3968 


0CF3 


• 


• 




3969 


0CF3 


• 


• 




3970 


0CF3 


01 


00 


02 


3971 


0CF6 


C3 


CA 


lb 


3972 


0CF9 


• 


• 




3973 


0CF9 


• 


• 




3974 


0CF9 


• 


• 




3975 


0CF9 


• 


• 




3976 


0CF9 


01 


FF 


FD 


3977 


OCFC 


CD 


70 


10 


3978 


OCFF 


06 


5C 




3979 


ODOl 


CD 


BB 


17 


3980 


0D04 


21 


CI 


17 


3981 


0D07 


CD 


14 


OD 


3982 


ODOA 


21 


F7 


FF 


3983 


ODOD 


7E 


• 


• 


3984 


ODOE 


E6 


FE 


• 


3985 


ODIO 


77 


• 


• 


3986 


0011 


C3 


ID 


12 



STATGO FgU 

LXI B,-1-SSTAT 

CALL CLBLXF ;CLEAP 

MVI B,ABCKSL 

CALL ESCOUT 

LXI H,XPUTDC 

CALL STAPAR 

LXI H,eRRFLG 

MOV A,M 

ANT J77Q-OCMERR 

MUV M,A 

JMP SDTERM ;SEND TERMINATOR AND RETURN 



STATUS PENDING FLAG 
;SEND <ESC>-<\> 

;SET OUTPUT ROUTINE ADDRESS 

; OUTPUT STATUS BITS 

;CLEAP DATA COMM ERROR FLAG 



3988 

3989 

3990 

3991 

3992 

3993 

3994 

399b 

3996 

3997 

3998 

3999 

4000 

4001 

4002 

4003 

4004 

4005 

400 b 

4 007 

4008 

4009 

4010 

4011 

4012 

4013 

4014 

4015 

4016 

4017 

4018 

4019 

4020 

4021 

4022 

4023 

4024 

4025 

4026 

4027 

4028 

4029 

4030 

4031 

4032 

4033 

4034 



LOC 

on 14 

0D14 

0D14 

0D14 

0D14 

0D14 

0D14 

0O14 

0014 

0D14 

0014 

0017 

0017 

0017 

0017 

OOIA 

OOIB 

OOIC 

ODIF 

OOIF 

ODIF 

OOIF 

0022 

0023 

0026 

0027 

0D2A 

0D2A 

002A 

002A 

00 2D 

00 2 F 

0031 

0034 

0034 

0034 

0034 

0037 

0038 

003A 

0D3B 

003C 

0030 

0D3E 

0D3F 

0041 

0042 



OBJECT CODE 



3A 
2F 
3C 
CD 



3A 

6F 
CD 
70 
CD 



3A 
Eb 
F6 
CD 



2 A 

7C 
Eb 
OF 
OF 
OF 
47 
7C 
Eb 
BO 
CD 



Ab 



9D 



FB 



9F 



9B 



F3 
07 
08 
9F 



6F FF 



04 



70 



9B OB 



FF 

FF 
OB 

FF 
OB 



FF 



OB 
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STAPAR - OUTPUT STATUS BITS ♦ 

; ENTPY: H,L s ADDHESS OF OUTPUT ROUTINE 

EXIT ; CNTFAD = ADDRESS OF OUTPUT ROUTINE 
ALL REGISTERS OfcSTRuyED 



STAPAR Egu $ 

SHLD CNTFAD 

OUTPUT SIZE OF RAM 



;SfcT OUTPUT ROUTINE VECTOR 



LDA DSPBGN+1 ;C0MPUTE NUMBER OF 256-BYTE 
CMA ;PAM BLOCKS IN DISPLAY 

IWR A ;ahea 

CALL PAR0T2 ;TRANSf4TT MEMORY SIZE IN K'S 

OUTPUT KEYBOARD INTERFACE STRAP SETTINGS 



LDA KBJMPR 
MOV L,A 
CALL PAROUT 
MOV A,L 
CALL PAkOT4 



JTHANSMIT STRAPS A-0 
fSAVE JUMPER VALUES 

; RECALL JUMPER VALUES 
/TRANSMIT STRAPS E-H 



OUTPUT LATCHING KEYS STATUS 

LDA MDFLG2 ;GeT TERMINAL MODE FLAGS 2 
ANI CAPSLK+BLKMOt+AUlOLF ; EXTRACT BITS 
ORI log ;ADU bit 3 TO INDICATE 2645 
CALL PAROUT ;SENU LATCHING KEY STATUS 

; 

; OUTPUT TERMINAL (2640) TRANSFER PENDING FLAGS 

; 

LHLD HFLGS2 ;GET TERMINAL MODE FLAGS 

^OV A,H ;MASK FOR SECONDARE STATUS 

ANI SSTAT2/256 ;PENDING BIT 

RRC ;SHIFT BIT INTO STATUS 

RRC ; RESPONSE POSITION 

RHC 

MOV B,A 

MOV A,H ;GET OTHER DISPLAY RELATED 

ANI (SENTER-»'SFCTKY + SCRSEN)/256;XFR BITS 

ORk B ;AD0 in SECONDARY STATUS 

CALL PAR0T4 /SEND TRANSFER PENDING BITS 



13255-90003 
ITEM LOC 
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4036 

4U37 

4038 

4039 

4040 

4041 

4042 

4043 

4044 

4045 

404b 

4047 

4048 

4049 

4050 

4051 

4052 

4o53 

4054 

4055 

4056 

4057 

4058 

4059 

4060 

4061 

4062 

4063 

4064 



0045 

on^5 

0D45 

0045 

0D47 

0n4A 

0040 

0D4F 

0D51 

0D51 

0D52 

0D55 

0D56 

0D59 

0059 

0059 

0059 

0D5A 

0D5B 

0D5C 

0050 

005^ 

005^" 

0060 

0061 

0062 

0063 

0054 

0065 



06 
3A 
FE 
C2 
06 

• 

00 
3A 
BO 
CD 



7C 
07 
7D 
17 
4 7 
7C 
OF 
OF 
OF 
OF 
78 
17 
C3 



00 
4P 

46 
51 
08 



7 
9F 



FF 



FF 

b 



OUTPUT ERROR COt^DlHON H.AGS 



STAOIO 



MVl 
LDA 
CPI 
JNZ 

EQU 

NOP 

LDA 

HRA E 

CALL PAHOUT 



B,0 

inCERR 

F 

STAOIO 

B,IOeRRB 

S 

ERRFLG 



;SeT FOR WO X/0 ERROR 

;GET I/O ERROR FLAG 

;I/0 ERROR OCCUt?RED? 

;N0 - GET OTHER ERROR FLAGS 

;YES - SET I/O ERROR lUT 

;InSTR. DELETED iO FIX BUG 
;GET THE FRROR FLAGS 
; MERGE WITH EXISTING BITS 
;TRftNS,MIX ERROR STATUS 



OUTPUT DFVICE TRAiMSFER PEwDIMG FLAGS 



9F 06 



MOV 
RLC 

MUV 

RAL 
MUV 
MUV 
PRC 
RRC 
RRC 
RRC 
MOV 
RAL 
JMP 



A,H 

A,L 

B,A 
A,ri 



A,B 
PAROUT 



;GeT TERMINAL ivfODE 1 FLAGS 
;PUT I/O DONE FLAG IN C-FLAG 
;GET TEPMNAL MODE 2 FLAGS 

;add IN 1/0 DorxE flag 

;SAVE TEMPORARY RESULTS 
; RECALL TERMINAL MODE 1 FLAG 
;PUT DEVICE STATUS IWTiJ 
;C-FLAG 



; RECALL ACCUMULATED BITS 
;ADD IN DEVICE STATUS 
?SEND DEVICE XFR PENDING BIT 



ITEM 






40&b 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
407& 
4077 
407d 
407 9 
40B0 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 



LOG 

0D68 
0D68 
0D68 
0Dt>8 
0D68 
0068 
0068 
0D68 
0D68 
0068 
0068 
0068 
0068 
OObB 
0060 
006F 
0072 
0073 
0074 
0077 
0079 
007A 
007 A 
007B 
00 7 C 
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♦ ♦♦^'t**********:******* ♦♦♦♦♦♦ ♦♦♦♦ + ♦♦♦**♦♦**** 

STCHR1 - SET INITIAL OlSfLA^ CHAHACTEH IN ♦ 
NEW DISPLAY BLOCK ♦ 

ENTRY: H,L = ADDRESS OF FIRST DISPLAY 
IN BLOCK 



3A 
E6 
3E 
CA 
2B 
77 
3A 
F6 
23 

7 7 
AF 
C9 



F4 
80 
CC 
7A 



29 

80 



EXIT 



A = 

H,L Ut^CHAwGEO 



STCHHl 



FF 



00 



48 



STCOIO 



EQU 
LDA 

ktn 

MVI 

JZ 

OCX 

MQV 

LDA 

ORT 

lax 

EQU 
MOV 
XHA 
Pt,T 



$ 

MDFLGl 

FORGN 

A,EOL 

STCOIO 

H 

IKRSALT 
2 000 

H 
$ 

M,A 
A 



;GET SOFT MHuE FLAGS 
/FOREIGN MODE ENrtBl.ED? 

; (SET TO STORE EOL) 
;N0 - STORE EOL ONLY 
;YES - STORE EOL AND DISPLAY 

;COWTROL B^TE TO CAUSE 

/FOREIGN CHARACTER SET TO 

;BE DISPLAl^FD 



; STORE FIRST DISPLAY 
; CLEAR A -REGISTER 
/RETURN 



CHAR 
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ITEM 

4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 



LOC 

0D7D 
0D7D 
0D7D 
0D7D 
0D7D 
0080 
0D81 
0D83 
0086 
0D89 
0D8C 
0D8C 
0D8C 
0D8C 
0D8C 
0D8C 
0D8F 
0D91 
0D94 
0D97 
0D9A 
0D9C 
0D9F 
0DA2 
0DA3 
0DA5 
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OBJECT CODE 



CD 
CO 
3E 
CD 
21 
C2 



3A 
E6 
21 
C2 
3A 
E6 
C2 
CD 
F3 
3E 
CD 



08 
08 
11 
93 



FA 

04 

51 

D7 

6E 

80 

D7 

6E 

• 

05 

08 



-76 

SOURCE STATEMENTS PAGE 120 

; TEST - PEHFOBM TERMINAL SELF TEST * 



4D 10 



48 
28 
15 



FF 

OF 
IC 
FF 

IC 
15 



48 



TEST 



EQU 

CALL 

RNZ 

MVI 

CALL 

LXI 

JNZ 



CKEDIT 

A,CK10KY 
ZKBCTL 
H,TSTCTU 
lORMGO 



;edit mode 
;y£S - DON 



ENABLED? 
'T DO SELF-TEST 



;I/0 CONTROL KEY DOWN ALSO? 

;(&ET FOR CTU SELF-TEST) 
;YES - DU CTU SELF-TEST 
NO - DO TERMINAL SELF-TEST 



; PERFORM TERMINAL SELF-TEST 

TRMTST EgU $ 

LDA KBJMP2 ;GET KEYBOARD JUMPERS 2 

ANl NOTFST ; SELF-TEST INHIBiTED 

LXI H,NOTSMS ; (SET MESSAGE ADDRESS) 

JNZ DSPMSl ;YES - DISPLAY MSG AND EXIT 

LDA DFLGS ;GET DATA TRANSFER FLAGS 

AM XBF2l)S ;DATA FROM I/O BUFFER 

JNZ DSPMSl ;YES - DON'T DO SELF-TEST 

CALL lOBSYC ;WAIT UNTIL CTU'S IDLE 

DI ; DISABLE INTERRUPTS 

MVI A,STRTST ; SET KEYBOARD FOR SELF-TEST 

CALL ZKBCTL ; START-UP 
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ITEM 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

412B 

4129 

4130 

4131 

4132 

413 3 

4134 

4135 

4136 

413 7 

4138 

4139 

4140 

4141 

4J142 

4143 

4144 

4145 

4 A 46 

4147 

414cl 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

4158 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 

4167 

4168 

4169 



LOC OBJECT CODE SOURCE STATEMENTS 



PAGE 121 



onA8 
or)A8 

0DA8 
00A8 
0DA8 
0DA8 
0l)A8 
ODAB 
ODAR 
ODAB 
OOAE 
OHAF 

ODAF 
OHAF 
ODAF 
ODBC 
OUB? 
0D65 
0nb7 
ODBA 
ODBC 
ODBF 
0DC2 

onc5 
onc6 

0DC7 

O^iCA 

ODCB 

ODCE 

ODCF 

ODCE 

ODCE 

ODCE 

ODCF 

OODl 

0DD4 

0DD5 

0DD5 

0DD8 

0DD8 

0DD9 

0DD9 

ODDC 

ODDD 

ODDE 

ODDF 

ODEO 

ODEl 

0DE2 

0DE4 

0DE5 



21 



U 
19 



7C 
FE 
D2 
FE 
CA 
FE 
CA 
CD 
CA 
AF 
B5 
CA 
7C 
C3 



2B 
16 
CD 
3C 

CA 

• 
AF 

11 

4F 
4o 
7C 
OF 
OF 
6F 
26 
79 
C3 



6/ 
E8 
80 
AB 
88 
AB 
A3 

ce 



D 

00 
15 
OD 



B 



00 



F3 OE 



U 



Ok 



; ROM TEST * 

• t 

? CALCULATE CHECKSU^^ ♦ 
; FOR EACH 2K ROM * 

LXT hr-NUf'^K ?SET FUP Si ART ADDkKSS = 

* 
t 

TSTOIO E^U $ 

LXI [),NUM2K ;IMCRFMENT START ADDn BY 2K 

DAD U 



IS CURRENT ADDRESS A RbN-? 



MiJV 

CPl 

JNC 

CRT 

viz 

CRT 

JZ 

CALL 

JZ 

XRA 

OR A 

JZ 

MUV 

J(^P 



A,ri ;PUT 

134000^/256-1 
TST050 ?yES 
100000Q/25b ; 

TSTOiO ;yes 

1^4000\2/256 

TSTOIO 

lORMGl 



MSB TiMTO A-REGISTER 
; ADDRESS > 48K? 
- GU TU HEX I TEST 

I/n SpaCE? 

GU TH NEXT RO^i liT.UCK 



TO NEXi ROM BLOCK 



,N 



TST0 20 

A 

Li 

Tsroio 

A,H 
iST0 30 



;yES - GO 

;l)UES THE ROM EXIST? 
?\ES - CHECK THE POM 
;r!0 - CHECh FOR NO PU^^ 
;RO^i INSTALLED? 
;N0 - GO TU WEXT HUM 
;yES - REPORT POSSIBLE 
; MISPLACED ROM 



; CALCULATE CHECKSUM ♦ 



TSTn20 



Eg I) 

DCX 
MV.I 
CALL 
INP 



$ 

rt ; RESTORE START AUDRESS 

D,ivU(^2K/256 ;SET TO SU.M 2K SPACE 
CHKSUM ;CALCULAiE CHECKSUM 
A ;= 377 ? 

.:^4i*^»»*!^*-t **♦*♦♦*♦♦*♦♦♦♦♦*♦♦*♦♦ ♦♦♦•♦♦♦♦♦♦♦*** 
JZ TSTOIO ;YES - DO NEXT POM BLOCK 

.,)::#;**4L:f:»t*t****=tf**** ♦♦♦♦*♦♦*♦♦♦*♦*♦♦ ********** 

' NO - REPORT BAD RON^ 



;SET POM ERROR N^ESSAGE ADDR 
?SAVE EXPECTED VALUE 
;GET VALUE FOUND 
; CON VERT ROM ADDRESS TO 
;ROM NUMBER (0,2, 4,.., J 

?SET AS ERROR ADDRESS 

; RECALL EXPECTED VALUE 
; REPORT ERROR 



XRA 


A 


TST030 EgU 


S 


LXI 


D,ROBERP 


MOV 


C,A 


MUV 


B,M 


MOV 


A,ri 


PRC 




RRC 




MOV 


L,A 


MVI 


H,0 


MOV 


A,C 


JMP 


TST600 
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ITtM 

4171 

4172 

4173 

4174 

417b 

417b 

4177 

4178 

4179 

4180 

4181 

4182 

4183 

4184 

4185 

4186 

4187 

4188 

4189 

4190 

4191 

4192 

4193 

4194 

4195 

4196 

4197 

4198 

4199 

4200 

4201 



LOG 

0DE8 

ODE 8 

0DE8 

0DE8 

0DE8 

0DE8 

0Dt8 

0Dfc:8 

ODEB 

ODES 

ODES 

ODES 

0De8 

ODEA 

ODED 

ODEO 

0DF3 

0DF4 

0DE5 

0DF7 

0DF8 

0DF9 

0DF9 

0DF9 

0DF9 

0DF9 

0DF9 

0DF9 

ODFC 

ODFF 

OEOO 
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******* *^:$:^$^^i^t*t'il^t****^*^*iti^^ 

HAM TEST ♦ 

CALCULATE CHECKSUM ON * 

EACH 4K BLUCK. * 

TFST EACH 256 BYTE SECTION ♦ 

HECHECK CHECKSUM. * 
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3E 
32 
21 

CD 
44 
40 
16 
63 
02 



CD 
CD 
02 
C2 



80 
20 
00 
FF 



5E 
81 



OB 
08 



E = 



T5T050 



EUU 
MVI 
ST A 
LXT 

Call 

MOV 
MUV 
MVI 
MUV 
STAX 



F9 OD 



'^:^:$4.t***** 

; CALCULATE 
; STORE c 
• ^^t****4^** 

TSX060 Eyu 
CALL 
CALL 
STAX 



A,CRTOFF ;TUPN OFF VlUEU 

lOCRKW 

h,10BUF ;SET H,L TO 1/U BUFFER U 

CLRALl ;CLEAR THE I/O BUFFER 

B,H ;SET B,C = IUBUF2 

C»L ; (H,L s 10BUF2J 

D, 100000/256 ;SET n,F FUR 4K INCREMEN 

HfE ;SET H TO TO Tt^DlCATE STAR 

B ;SET CHECKSUM t OR LAST 

BLOCK TO ZERO 
****** ***********:^^^t************^ 

CHECKSUM FOP EACH HAH BLOCK AND * 
HECKSUM IW "IUBUF2" ♦ 

$ 

NXSBLK ;GET NEXT BLOCK ADURESS 

CHKSUM ;COHPUTE CHECKSUM 

B ; STORE CHECKSUM VALUE 

TST060 ;CONTIrUtE IF NUT LAST BLOCK 



FC 



EF 
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CHECK KACH 25b BYTE HA^i SECTIOw 

MOV E,L ;SET K TO ZERO TO INDICATE 
; TESTING OF FAST RAM AREA 

mi H,FSTRAM/?56 ;START OF FAST HAM (L=0) 

TST090 EQII $ 

; TEST THE RAM IN THE FOLLOWING STEPS 

; I. SAVE THfc: SECTION'S CONTENTS 

LXl B,IOB"F ;I/0 BUFFER 
TSTIOO Egu $ 

MOV A,H ;Bi'TE TO BE SAVED 

ST AX b 

INR C ;SET TO NEXT SAVE ADDRESS 

; 2 SET EACH BYTE = MSB .XOR. LSB OF AUDR 

MOV A,L 

XRA H 

MOV ^i,k 

INR L ;all b^tes done? 

JUZ TSTIOO ;N0 - DO THE NEXT BYTE 
; J. WAIT 

; APPROX 2 HS, 5000 CLOCK CYCLES 
TSTU5 Eg 11 $ 

MOV A, A ;N0 OP 

IWR L 

JNZ TST115 
; 4. CHECK FACH MEMORY LOCATION 
; COMPLEMENT IT 

;D = 0, COUNTER 
;L= 37 VB 



4203 


0E03 


• 


4204 


0E03 


• 


4205 


0E03 


• 


420b 


0E03 


5D 


4207 


0E04 


, 


420B 


0E04 


26 


4209 


0F06 


• 


4210 


0F06 


• 


42U 


0E06 


• 


42Ji2 


0E06 


• 


4213 


0E06 


• 


4214 


0EO6 


01 


4215 


0E09 


, 


421b 


0EU9 


7e 


4217 


OEOA 


02 


4218 


OEOB 


OC 


4219 


OEOC 


• 


4220 


OEOC 


7D 


4 221 


OEuD 


AC 


4222 


OEOE 


77 


4223 


OEOF 


2C 


4224 


OEIO 


C2 


4225 


0E13 


» 


4226 


0E13 


• 


4227 


OF 13 


• 


4228 


0E13 


7F 


4229 


OF 14 


2C 


4230 


0E15 


C2 


4231 


0E18 


• 


4232 


0E18 


• 


4233 


0E18 


55 


42 3 4 


0E19 


2D 


4235 


QEIA 


• 


4236 


OEIA 


7D 


4237 


OEIB 


AC 


4238 


OFIC 


BE 


4239 


OEID 


C2 


4240 


0E20 


• 


4241 


0E20 


2F 


4242 


0E21 


77 


4243 


0E22 


20 


4244 


0E23 


15 


4245 


0E24 


C2 


424b 


0E2 7 


• 


4247 


0E27 


• 


4248 


0E27 


• 


4249 


0E27 


7F 


4250 


0E2R 


2D 


4251 


0E29 


C2 



OE 



MOV D,L 

OCR L 

TST120 EgU $ 

MOV A,L 

XRA H 

CmP H 

JNZ TST510 



;CALCULATE EXPECTED VALUE 

;same: as before? 
;nu - report error with 
expected/foufmd bytes 



OE 



;SET COMPLEMENT 

;D0ME with this SECTION? 



27 OE 



CMA 

MOV M,A 

OCR L 

DCR D 

JNZ TST120 
! 5» WAIT AGAIN 

APPROX 2 MS, 5000 CLOCK CYCLES 
TST125 EQU $ 

MOV A, A ;nu OP 

DCR L 

JNZ TST125 ;L00P FOR 256 TIMES 
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ITEM 



LOG 



4253 


of:2c 




4254 


0E2C 




4255 


0E2C 




4256 


0E2C 




4257 


0E2C 


ID 


425B 


0E2D 


AC 


4259 


0E2E 


2F 


4260 


0E2F 


BE 


4261 


0E30 


C2 


4262 


0E33 


• 


4263 


0E33 


OA 


4264 


0E34 


7 7 


4265 


OK 3 5 


03 


4266 


0E36 


2C 


4267 


0E37 


C2 


4263 


0E3A 


• 


4269 


0E3A 


• 


4270 


0E3A 


• 


4271 


0E3A 


• 


4272 


0E3A 


IC 


4273 


0E3B 


ID 


4274 


0E3C 


C2 


4275 


Of:3F 


63 


4276 


0E40 


IE 


4277 


0E4? 


* 


4278 


0E42 


• 


4279 


0E42 


• 


4280 


0E42 


CD 


4281 


0E45 


B7 


4282 


0E46 


C2 
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6. CHECK VALUES. RESTORE OHIGINAL VALUE 
B,C = ICBUP^ 



EF 



2C OE 



42 



C8 



5E OB 



06 OE 



TS1130 



Egu 
MOV 
XFA 
CMA 
CMP 
JNZ 



LDAX 

MOV 

TNX 

INR 

JNZ 

DONE WITH 
DO NEXT? 

INR 
OCR 
JNZ 

MOV 
MVI 



$ 
A,L 

H 

M 
TST51 

B 

M,A 

B 

L 

TST13 

:): « 4c 4" >ic >|( 

THIS 

*♦♦♦♦♦ 
E 
E 

TST14 
H,E 
E,200 



;SAME AS BEFORE? 
?N0 - REPORT ERROR WITH 
EXPECTED/FOUND BifTES 

; RESTORE 

; BLOCK COMPLETED? 
;N0 - DO NEXT BYTE 

SECTION. ♦ 

4: f 4c 4^ 4: 4c 4: 4^ 4: If' * 

;IF E = 



0, WE JUST TESTED 







TST140 



EQU $ 
CALL NXSBLK 
ORA A 
JNZ XST090 



;FAST RAK 

;H=0, INDICATE START 
;BIT 7 = 1 MEANS 256 
BYTE INCREMENTS 



;GET NEXT BLOCK ADDRESS 
;LAST BLOCK DONE? 
;NQ, TEST NEXT 
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ITEM! 

^1264 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
'4312 
4313 
4314 
4315 
4316 
4317 



LQC 

oh:49 
ok:49 
oe:49 

0E49 
0K49 
0E49 
0E49 
0E4A 
0E4C 

oe:4f 

0E4P' 
0E51 
0E52 
0F,5 3 
0E54 
0E55 
0E55 
0E55 
0E55 
0E55 
0E55 
0E58 
0E5B 
0E5C 
0E5F 
0E6O 
0E61 
0E62 
0E65 
0E68 
0E68 
0Eb8 
0E69 
0E6A 



OBJECT CODE 
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59 
2e> 
CD 

16 
7E 
73 
F5 
63 



FC 
FF 

10 



5fc 
81 



OB 
08 



CO 

CD 

6F 

CA 68 OE 

OA . 

95 . 

6F . 

CA 55 OE 

C3 ED OE 



Fl , 
95 . 
C2 ED OE 



♦ ;iL*:;|iHc#*jJEt *♦♦♦♦*♦ ♦♦*2»tt4;*4:)tL4::tc 

CHECK ORIGINAL CHECKSUMS * 



B,C = I0BUF2 



MOV 
MVT 
CALL 
; (H,L) = I 
MVI 
MOV 
MQV 

PUSH 
MOV 

; RE-CALCOLA 
; COMPARE 
; ♦ ♦ ♦ ♦ t ♦ * ♦ ♦ 4^ 4= 
TSTlbO EQlt 
CALL 
CALL 
MOV 
JZ 

LDAX 
SUB 
MOV 
JZ 
JMP 

TST160 EQU 
POP 
SUB 
JNZ 



E,C 

ri,IOBUF 

CLHALl 

0BUF2, 

D, 10000 

A,M 

n,E 

PSW 
H f E 

TE CHEC 
TO INIT 

$ 

NXSBLK 

CHKSUM 

L,A 

TST160 

B 

L 

L,A 

TST150 

TST5U0 

$ 

PSW 
L 
TST500 



;SET E TO 
/256 ;SET H 

; CLEAR THE 
TOP HALF OF I 
0/256 ;SET D 
;GET CHECK 
;SET STORE 
?SAVE TOP 
;SET H TO 

:<t 3^ :jc ♦ if 3)1; * 3^ Jjt ;f t * 4^ 

KSIIM FOR EACH 
lAL STOKED VA 



ZERO 

TO I/n BUFFER #1 

T/G BUFFER 
/O BUFFER 

,E FOP 4K INCREMEN 
SUM FOR TOP BLOCK 

BiTE TO ZERO 
Bf.OCK CHECKSUM 
TO livDlCATE STAR 

RAM BLOCK AND * 
LUE * 



;GET NfciXT BLOCK ADDRESS 
; COMPUTE CHECKSUM FOR BLOCK 
;SAVE COMPUTED VALUE lH L-RE 
;LAST BLOCK - CHECK 1ST VALU 
;RECALL ORIGINAL CHECKSUM 
;D0 CHECKSUMS MATCH? 

; (SET L TO ZERO IF TRUE) 
;YES - GO TO NEXT BLOCK 
;N0 - REPORT ERROR 



; RECALL 1ST STORED CHECKSUM 
;D0 CHECKSUMS MATCh? 
;N0 - REPORT ERROR 
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ITEM 

4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
433b 
43 39 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 



LOC 

0E6D 
0E6D 
0E6D 
0E6D 
0E70 
0E72 
0E72 
0E74 
0E75 
0E76 
0E79 
0E79 
0E7C 
0E7F 
0E80 
0E81 
0E84 
0E84 
0E87 
0E8A 
OEdC 
0E8E 
0E91 
0E9 4 
0E97 
0E98 
0E99 
0E9B 
0E9E 
0E9F 
0EA2 
0EA5 
0EA6 
0EA8 
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CD 14 48 
3E CO . 



D6 
F5 
AF 
32 



3A 
32 

E6 
FE 
CC 
CD 
21 
34 
7E 
F£ 
CA 
B7 
F2 
CD 
Fl 
FE 
C2 



10 



68 FE 



CD B8 21 

CD 69 OA 

Fl . 

F5 . 

CD E6 OC 



68 
89 
07 
04 
02 
lA 
68 



40 
79 

84 
96 

80 
72 



FF 
FF 



20 
23 
FF 



OE 

OE 
20 



OE 



; DISPLAY TEST PATTE 

CALL ZBELL 
MVI A, 3000 

TST200 EyU $ 

SUI 2og 
POSH PSW 
XHA A 
STA rCHAK 

TST220 EQU $ 

CALL CRf^ET 
CALL CONDLF 
PQP PSw 
PUSH PSW 
CALL SHFT2 

TST240 EQU $ 

LDA XCHAR 
STA DCHAR 
ANI 7 
CPI 4 
CZ CUHAD2 
CALL DSPCHR 
LXT H,TCHAR 
M 

A,M 
CPI 64 
JZ TST220 
A 

TST240 
CALL CRLF 
POP PSW 
CPI 2000 
JNZ TST200 



♦ *♦♦ 
HN ♦ 

♦ ♦*♦ 

/SOUND THE BELL 

;SET INITIAL CHARACTER 



SET 



INR 

MOV 



ORA 
JP 



;SET TO NEXT CHARACTER SET 
;SAVE CURRENT ENHANCEMENT 
;SET CHARACTER TO NULL 



;D0 CP 

;DQ LF IF WRAPAROUND DISABLED 

; RECALL CURRENT ENHANCE*^ENT 
;AND SAVE IT AGAIN 

;PUT ENHANCEMENT ON DISPLAY 

;GET CURRENT ENHANCEMENT COD 
;STOHF CHAR FOR DISPLAY 
; EVERY 8 CHARS INSERT 2 BLNKS 

;TIME TO ADD TWO BLANKS? 

;YES - ADVANCE CURSOR TWICE 

; DISPLAY THE CHARACTER 

MNCREMENT DISPLAY CttAHACTER 
;GET NEW CHARACTER 

;IF 64 THEN NEW LINE 
;ALL CHARACTERS DONE? 
;N0 - CONTINUE 

;YES - DOUBLE SPACE BKTWEEN 
/CHARACTER SETS 

;ALL CHARACTER SETS DONE? 

;N0 - CONTINUE DISPLAY 
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ITEM LOC OBJECT CODE SOURCE STATEMENTS FAGe"i27 

4354 OEAB « • , ; *^**^f.^**^7(ii*^^4itt*******^'¥'¥**** 

4355 OEAB ... ; DISPLAY ENHANCEMENT PATTERN ♦ 

4356 OEAB . , . ; ♦'♦^♦♦♦♦♦♦^♦♦♦♦if ♦♦♦♦♦♦* ♦♦♦♦♦♦♦^^^ 

4357 OEAB Pb . . PUSH PSi^ ;SAVe ENHANCEMENT CODE 

4358 OFAC CD 69 OA CALL CONDLF ;D0 LF IF i^PAPARUUNO DISABLE 

4359 OEAF . . . TST420 EyU $ 

4360 OEAF Fl . . PUP PSW ; RECALL CURRENT ENHANCEMENT 

4361 OEBO F5 . . PUSH PSw ;SAVE ENHANCEMENT AGAIN 

4362 OEBl 06 40 . SUI lOoO ;CGMPUTE ASCII DISPLAY CODE 

4363 0EB3 CD 14 23 CALL DSPTST ;DiSPLAY THE CHARACTER 

4364 0EB6 Fl . . POP PSW . ; RECALL CURRENT ENHANCEMENT 

4365 0EB7 1C . . INR A ;INChE^^ENT ENHANCEMENT 
43bb 0EB8 FE 90 . CPI 220Q ;LAST ENHANCEMENT DONE? 

4367 OEBA CA C4 OE JZ TST440 ;YES - DISPLAY SIATUS 

4368 OEBD F5 • . PUSH PSW ;N0 - SAVE ENHA^'CF^^P'NT CODE 

4369 OEBE CD DE 21 CALL DISPCO ;ADD ENHA^CEMENT TU DISPLAY 

4370 OECl C3 AF OE JMP TST420 /DISPLAY ASCII DISPLAY COPE 

4371 0FC4 ... ; 

437,2 0EC4 , , , TST440 EgU i> 

4373 0EC4 At . . XHA A 

4374 0EC5 CD DE 21 CALL DISPCO /RETURN TO NORMAL VIDEO 

4375 0EC8 CD 02 2u CALL CURAD2 /ADVANCE CURSOR TWICE 

4376 OECB , , , ;***3»(*3»i***:H:t;i^4r3jt*;|t****t*j»: + *3»: 

437 7 OECB ... ; DISPLAY TERMINAL STATUS ♦ 

4378 OECB . . . ; ♦♦♦♦♦♦♦^(♦♦♦^♦jut*;***** ♦♦♦=•'* 

4379 OECB 21 F7 FF LXI H,ERRFLG ;SET ERROR FLAG TO 

4380 OECE 7E . . MOV A,M ; SELF-TEST SUCCESSFUL 

4381 OECF F6 02 , ORI TESTOK 

4382 OEDt 77 . , mqv h,k 

4383 0ED2 21 14 23 LXI H, DSPTST ;S£T H,L TO OUTPUT ROUTINE 

4384 0ED5 CD 14 OD CALL STAPAR ;DlSfcLAY TERMINAL STATUS 

4385 OEDa CD 05 20 CALL CURADV ? PUT SPACE BETWEEN STATUS 

4386 OEDB CD 29 26 CALL STA2G2 

4387 OEDE CD 96 20 CALL CRLF 

4388 OEEl CD 96 20 CALL CRLF 

4389 0EE4 . . , ; ♦♦♦♦♦♦t**»4f* %»♦♦♦♦♦♦♦;♦ 

4390 0EE4 ... ; TERMINATE SELF-TEST ♦ 

4391 0FE4 , , , /♦♦♦♦♦♦♦♦»»:»(4;»4i*****j»>»* 

4392 0EE4 3E 06 , MVI A,ENDTST /RESTORE KEYBOARD LED'S 

4393 0EE6 CD 08 48 CALL ZKBCTL 

4394 0Ee9 FB . , EI ; RE-ENABLE INTERRUPTS 

4395 OEEA C3 23 20 JMP CRADVl /RESET CURSOR ADVANCE FLAG 
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ITEM 

4397 

4398 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 

4407 

4408 

4409 

4410 

4411 

4412 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 

442 7 

4428 

4429 

4430 

4431 

4432 

4433 

4434 

4435 

4436 

4437 

4438 



LOC 

OEED 
OEED 
OEEE 
OEEF 
OEEP 
OEEO 
0EF3 
0EF3 
0EF3 
0EF3 
0EF3 
0EF3 
0EF3 
OFF 3 
0EF3 
OFF 3 
0EF3 
0FF3 
0EF3 
0EF4 
0EF4 
0EF5 
0EF8 
OEFB 
OEFE 
OFOl 
0FO4 
OF 05 
0F08 
0FO9 
OFOC 
OFOE 
OFOE 
OFU 
OF 14 
OF 17 
OFIA 
OF ID 
0F20 
0F22 
0F23 
OF 2 6 
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AF 
6F 

• 

46 
11 



EB 

E5 
21 
22 
CA 
21 
22 
C5 
CD 
Fl 
CD 
36 

21 
22 
CD 
21 
22 
3A 
E6 
Fl 
CA 
C7 



3B OF 



50 
EB 
OE 
00 
EB 



02 
CE 

# 

10 
ED 
2E 
42 
EF 
6E 
01 



OF 
FF 
OF 
FD 
FF 



02 08 



08 



FU 
FF 
08 
OF 
FF 
FF 



?PEPORT RAM ERROR 

;SET Z TRUE FOR ADDRESS ONLY 

; FORCE L-REGISTER TO BE ZERO 



TST500 EgU $ 

XRA A 

MOV L,A 

TST510 EQU $ 

MOV B,M ;PUT VALUE FOUND IWTO B-REG 

LJ(I D,RA.MERR ; SET D,E TO ERROR MESSAGE 

REPORT ROM/Ram TEST ERROR ♦ 



ENTRY: D,er = ADDRESS AT WHICH ERROR OCCURRED 
H,L = ERROR MESSAGE ADDRESS 
Z - DISPLAY ERROR ADDRESS ONLY 
NZ - DISPLAY PARAMETERS ALSO 
A = EXPECTED VALUE 
(H,LJ = VALUE FOUND 



54 12 



TST600 EQU 
XCHG 



PUSH 

LAI 

SHLD 

JZ 

LXl 

ShLD 

PUSH 

CALL 

PUP 

CALL 

MVl 

Egu 

LXI 

SHLD 

CALL 

LXI 

SHLD 

LDA 

ANI 

POP 

JZ 

RST 



TST610 



H 

H,ERREOP 

MSGPT4 

TST610 

H,I06UF2 

MSGPT4 

B 

BINOCT 

PSw 

BINOCT 

M,EOP 

$ 

H,I0BUF2+1 

MSGPT3 

BN2DEC 

H,RXMERR 

MSGPT2 

DFLGS 

SDACOM 

H 

HANGUO 

;o 



;(H,L) = MESSAGE ADDRESS 
CD,E) = ERROR ADDRESS 
;SAVE THE MESSAGE ADDRESS 
;SET EOP FOR SHORT MESSAGE 

;Z - SHOW ADDRESS ONLY 
;SET BUFFER ADDRESS 

;SAVE VALUE FOUND 
;CONVERT BINARY 10 OCTAL 
; RECALL VALUE FOUND 
/CONVERT Pl^iARY TO OCTAL 
; TERM I W ATE i^•ITH "EOP" 

6 ;CONVERT FAILURE ADDRESS 

/CONVERT TO DECIMAL ASCII 
;SET REST OF LITERAL 

;GET DATA TRANSFER FLAGS 
;TEST FROM DATA COMMV 

/(RECALL MESSAGE ADDRESS) 
;NU - SHOW MESSAGE AND HANG 
YES - RESET THE TERMINAL 



ITEH 



LOC 
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4440 


0F2 7 


4441 


OF 2 7 


4442 


0F27 


4443 


0F27 


4444 


0F27 


444b 


0F37 


4446 


0F37 


4447 


0F37 


444« 


0F3B 


4449 


OF 3 9 


4450 


0F3B 


4451 


0F3F 


4452 


0F3F 


4453 


0F3F 


4454 


0F42 


4455 


0F42 


4450 


0F4? 


4457 


0F4A 


4458 


0F4A 


445 9 


0F4A 


4460 


0F50 


4<i6l 


0F50 


4462 


0F5t 


446 3 


0F51 


4464 


0F51 


4465 


0F59 


4466 


0F59 


4467 


OF 5 9 


446« 


0F6A 


4469 


0F6A 


4470 


0F6A 



42 



U 

4C 
E 



55 



4F 



4F 



4e 4F 



46 



4D 



52 



F 41 



54 45 52 



; MFSSAGt: STORAGE * 

BUFMSG eou s 

DB "BUFFER QVERF1.UW' ,EOP 

« 

RHMFRP FgU $ 

DB 'RUM',0 

RAMERR EQU i> 

DB "RAM',0 

INEBMS FQU $ 

DB "I/O' 

* 
f 

RXMFRP EgU « 

Db " ERROR ',0 

LDHtASG EgU J^ 

DB "LOADER' 

ERREOP EyU i> 

Db EOP 

r 

NOTSMS E^U S 

DB "MO TEST', EOP 

NODRVR EQU $ 

DB "NO DEVICE DRIVER', EUP 

TRMRDY EgU $ 

DB "TERMIWAL READi',EOP 
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4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

44B0 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 

4498 

4499 

4500 

4501 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 



0F79 

0F7 9 

0F79 

0F79 

0F79 

0F7A 

0F7B 

0F7C 

0F7F 

0F80 

0F81 

0F84 

OF 8 5 

0F85 

0F86 

0F86 

0F87 

OF 8 8 

0F8fi 

0F8E 

0F90 

0F91 

0F94 

0F95 

0F95 

0F95 

0F95 

0F95 

0F95 

0F95 

0F95 

0F95 

0F95 

0F95 

0F95 

0F95 

OF 97 

0F98 

0F9B 

0F9C 

0F9D 

0F9E 

0F9E 

OFAl 

OFAl 

0FA4 

0FA4 

0FA5 

0FA5 

0FA7 

OFAA 



23 
46 

4F 
21 
7A 
B7 
CA 
86 

77 

• 

60 
69 
22 
3A 
E6 
CO 
21 
OB 



3E 
F3 
32 
70 
2B 
71 

3A 

32 

• 
FB 



3 FF 
5 OF 



-76 

SOURCE STATEMENTS PAGE 130 

; TOPUPD - UPDATE TOP LINE POINTERS * 

TOPUPD Egu $ 

;PUT THE MSB INTO THE 

?B-REGISTER 
;SAVE lOP LINE'S LSB It^ C-RE 
; UPDATE TOP LINE NUMBER 



CB 
F8 
08 



FF 
FF 



FF FF 



3E 02 
32 80 
C9 . 



83 



INX 
MOV 
MtiV 
LXI 
MOV 
OR A 
JZ 
ADD 
TOPI 00 EQU 



H 

b,iA 

C,A 

H,TLINO 
A,D 
A 
TOPlOO 

M 
$ 



TOPUPl 



MUV M,A 

Egu $ 

MOV 
MOV 
SHLD 
LLA 



L,C 

TOPLIN 
CMFLGS 
DEFSKY 



;is tlino to be reset? 

;yes 

;r50 - increment op decrement 

; store updated tltno 

;set new top line pointer 



;GET COMMON FLAGS 
AN I DEFSKY ;SQFT KEY DEFINE MODE? 
RNZ ;YES - DON'T CHANGE SCREEN 

LXI H,OISPST+l ;GET DISPLAY START ADDRESS 
DCX B ;SET TO FIRST CHAP ADDRESS 

t ** it^* 4^ ^* >¥*** 4-* ****^**^***^***^ *****"** 
DISLNK - STORE LINK IN DISPLAY AREA * 



ENTRY: 



EXIT ; 



B,C = LINK TO BE STORED 

H,L = STORE ADDRESS FOR MSB PART 

H,L = LSB OF STORE ADDRESS 
A DESTROYED 
INTERRUPTS ENABLED 



DISLNK 



DISLNl 



DISLN2 



DISLN3 
DISLN4 



EQU 

MVI 

DI 

STA 

MOV 

DCX 

MOV 

EQU 

LDA 

EQU 

STA 

EQU 

Ei 

EQU 

MVI 

STA 

RET 



A,DMAOFF 

mCRRW 

M,B 

H 

M,C 

S 

CURROW 

$ 

lOCRRW 

$ 



ArRSTON 
lOKBCO 



;SET TO TURN OFF THE DMA 
; DISABLE INTERRUPTS 
;TUPN OFF DMA 
; STORE LINK'S MSB 

; STORE LINK'S MSB 

;SET CURSOR ROw POSITION 

;TURN DMA BACK ON ^IW 

;CURRENT CURSOR ROW ADDRES 

; RE-ENABLE INTERRUPTS 
;PE-ENABLE RESET KEY 



; RETURN 



ITEM 



LQC 



OBJECT CnOE 



4524 


OFAR 


• 


a , 


4525 


OFAB 


• 


• • 


4526 


OFAB 


• 


• * 


4527 


OFAB 


• 


• • 


4528 


OFAB 


CD 


76 I 


4529 


OFAE 


CO 


• • 


4530 


OFAF 


3A 


89 F 


4531 


0FB2 


Cb 


8F . 


4532 


0FB4 


C3 


EO 2 


4533 


0FB7 


• 


• • 


4534 


0FB7 


• 


* • 


4535 


0FB7 


• 


• • 


4536 


0FB7 


• 


• • 


45 37 


0FB7 


E6 


DF • 


4538 


0FB9 


2A 


C3 F 


4539 


OFBC 


77 


, , 


4540 


OFBD 


FE 


4E . 


4541 


OFBF 


C8 


• • 


4542 


OFCO 


FE 


4C • 


4543 


0FC2 


CB 


• • 


4544 


0FC3 


FE 


54 . 


4545 


0FC5 


CB 


• • 


4546 


0FC6 


70 


• • 


4547 


0FC7 


C9 


• • 
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; lYPSET " SET TYPE DEFINITION * 

TYPSET EgU $ 

CALL CHKFMS ; FORMAT/SOFT KEY DEFINE MODE 

R^lZ ;YES - DO SFT TYPE 

LDA DCHAR ;N0 - COMPUTE TYPE DEFINITIO 

ADI AbPHA-ZERO-6 ;CHARACTEP 

JMP DTSPCl ;ADD CHARACTER TU DISPLAY 

; SFKCHK - SOFT KEY ATTRIBUTE CHECK » 

SFKChK Eyn S 

FORCE INPUT TO UPPER CASE 
RECALL CHARACTER ADDRESS 
STORE UPPER CASE VALUE 
NORMAL ATTRIBUTE SET? 
YES - RETURi^ SUCCESSFUL 
LOCAL ATTRIBUTE SET? 
YES - RETURN SUCCESSFUL 
TRANSMIT ONLY SET? 
YES - RETURN SUCCESSFUL 
NU - RESTORE ORIGINAL 
; ATTRIBUTE AND RETURN NZ 



AN I 


377Q-400 


LHLD 


CURADR 


MUV 


M,A 


CPI 


N 


RZ 




CPI 


L 


RZ 




CPI 


T 


RZ 




MOV 


MrB 


PET 
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ITEM 

4549 

4550 

4551 

4552 

4553 

4554 

4555 

455b 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4564 

4565 

4566 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 

4588 

4589 

4590 

4591 

4592 

4593 



LOC 

0FC8 

0FC8 

0FC8 

0FC8 

0FC8 

0FC8 

0FC8 

0FC8 

0FC8 

0FC8 

0FC8 

0FC8 

0FC8 

OFCB 

OFCB 

OFCB 

OFCC 

OFCD 

OFCD 

OFCO 

OFCF 

OFCF 

OFOO 

0FD2 

0FD5 

0FD6 

0FD8 

OFDB 

OFDC 

OFOF 

OFEl 

0FE4 

0FE7 

0Ffc7 

0FE7 

0FE7 

0FE7 

OFEA 

OFED 

OF ED 

OFED 

OFED 

OFED 

OFFO 

OFFl 
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CD 



El 
23 



7E 
B7 
C8 
FE 
CA 
E5 
FE 
CA 
B7 
F2 
06 
CD 
C3 



CE 
ED 

• 

cc 

E7 

C8 
00 
E2 
CB 



XMS2DS - TRANSFER MESSAGE TO NORMAL DISPLAY 

ENTRY: H,L = POINTER TO MESSAGE 

EXIT : A-L DESIRQYED 

Z - TERMINATED BY A NULL BYTE 
NZ - TERMINATED BY AN FOP 



OF 
OF 

21 

OF 



XMDOOO EQU $ 

CALL DSPTST 

XMUOIO Eyu $ 
POP H 
INX ri 

XMS2DS EQU S 

MOV A,M 

ORA A 

RZ 

CPI EOP 

JZ XMD030 

PUSH H 

CPI EOL 

»JZ XMD020 

OKA A 

JP XMDOOO 

M V I B , 

CALL DISPC2 

JMP XMDOIO 



; DISPLAY ASCII CHARACTER AND 
ADVANCE CURSOR 

; RESTORE H AND L 
;MOVE 10 NEXT BYTE 
PROCESS THE NEXT BYTE 



SET THE SOURCE BYTE 

IS IT A NULL BYTE? 

YES - RETURN CZ - TRUE) 

IS IT END OF PAGE FLAG? 

YES - EXIT 

NO - SAVE H,L 

IS IT AU END OF LINE? 

YES - START A NEVv LINE 

IS CHARACTER ASCII? 

YES - DISPLAY IT 

NO - FORCE ENHANCEMENT CODE 

;T0 BE STORED AS IS 
GO TO NEXT BYTE 



EOL CODE - TERMINATE THE LIiME 



CD 96 20 
C3 CB OF 



CD 9b 20 

B4 

C9 . 



XMD020 EQU $ 

CALL CRLF 
JMP XMDOIO 



; PERFORM RETURN AND LIPJE FEE 
;DU NEXT hiTE 



EOP CODE - TERMINATE LINE AND EXIT 



XMD030 EgU $ 

CALL CRLF 
ORA H 
RET 



;PUT CURSOR IN NEXT LINE 

;SET Z FALSE 

; RETURN TEMTNATED BY EOP 



ITEM 



LOC 



OBJECT CODE 
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4595 


OFF 2 


• 


• 


» 


;^:^:^^:^f:^^^t***^*'^***t* 


459fcr 


OFF 2 


• 


• 


• 


; CAHRET - PERFORM DI 


4597 


0FF2 


• 


• 


> 


f t^***** *■$**** ^t^T^^-^* 


4598 


OFF 2 


• 


• < 


n 


CARRET EQU $ 


4599 


OFF? 


CD 


8C ] 


19 


CALL CHKSFK 


4600 


0FF5 


CA 


OB 1 


10 


JZ CAROIO 


4601 


0FF8 


• 






;:i^:^t***4'¥*********m^^* 


4602 


0FF8 


• 


• 


• 


; ROM BREAK 


4O03 


0Ff8 


• 




> 


;**'^*** ♦♦♦»♦♦♦*♦♦♦♦** 


4604 


0FF8 


C3 


02 


10 


JMP ZBRK2C 


4605 


OFFB 


• 




• 


ORG ZBRKl+400 


4b06 


1000 


• 




• 


ZBRK2 EOU $ 


4607 


1000 


50 






DB VERSN 


4608 


1001 


10 






DB ZBHK2/256 


4609 


1002 


• 






ZBHK2C EQU $ 


4610 


1002 


• 


, , 




.3|(;^t^*^«^ttVt«t*ft^%!(: 


4611 


1002 


CO 


A6 1 


2 


CALL DCXB2D 


4612 


1005 


CA 


lA : 


>3 


JZ OSPCHR 


4613 


1008 


CD 


80 ( 


)C 


CALL SFKYOF 


4bl4 


lOoB 


• 


• i 


1 


CAROIO EQU S 


4615 


lOOB 


21 


96 : 


10 


LXI H,CRLF 


4616 


lOuE 


C3 


ID :; 


li 


JMP DSPCHO 



SPLAY FUNCTIONS RETURN ♦ 

;SOFT KEY DEFINE MODE? 
;N0 - DO NORMAL PROCESSING 
♦♦*♦♦♦ 
2 ♦ 

;G0 TO NEXT HOH BLOCK 
OQ 

;POM PRESENT FLAGS 



;DATA FROM KEYBOARD? 

;YtS - DISPLAY RETURN CODE 

;N0 - RESTORE NORMAL DISPLAY 

;SET NORMAL ROUTINE EXIT 
; DISPLAY THE CHARACTER 



13255-90003 



ITEM 

4618 

4619 

4620 

4621 

4622 

4623 

4624 

4625 

4626 

4627 

462B 

4629 

4630 

4631 

4632 

4633 

4o34 

4635 

4636 

46 37 

4638 

4639 

4640 

4641 

4b42 

4643 

4644 

4645 

4646 

4647 

4648 

4to49 

4650 

4651 

4652 

4653 

4654 

4655 

4656 



LUC 

lOll 

1011 

1011 

1011 

lOll 

1011 

1011 

1011 

lOlt 

1011 

1011 

1011 

1011 

1011 

1011 

1011 

1011 

1011 

1011 

1011 

101! 

lOU 

1011 

1011 

1014 

1017 

1017 

lOlA 

lOlB 

lOlE 

1021 

1022 

1025 

1025 

1025 

1025 

1025 

1026 

1027 
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CHKLIM - CHECK PARAMETER BOUNDARY CONDITIONS » 



ENTRY: 



EXIT 



B = CURRENT VALUE 
C = MAXIMUM ALLOCABLE VALUE 
D,E = ADDRESS OF PARAMETER TO BE SET 
lODATA = PARAHFTEH VALUE (2 BYTES) 
lOPSCN = -1, NEGATIVE ADJUST^'ENT 
= 0, ABSOLUTE VALUE 
= fl, POSITIVE ADJUSTMENT 

NEW VALUE IN WORD ADDRESSED BY D,E 
A,C,H,L DESTROYED 



THIS ROUTINE SET THE NEW VALUE BY EITHER 
OR ABSOLUTE ADJUST WITHING THE LIMITS OF 
ZEHO AND THE i^AXIi^UM ALLO»vABLE AS SPFCTFTED 
THE C-REGISTER ON ENTRY 



THE LARGEST MAXIMUM VALUE IS 255 



3A DD FF 
32 DC FF 



CHKLIO 



CHKLIM 



3A 
87 
3A 
CA 
87 
F2 



AF 
12 
C9 



DF FF 



DC 
28 



FF 
10 



37 10 



EQU 

LDA 

ST A 

EwU 

LDA 

ORA 

LDA 

JZ 

ADD 

JP 



lOCSGN 

lOPSGN 

$ 

IODATA+1 

A 

lOPSGN 

CHK050 

A 

CHK070 



SET PARAMETER 
; INPUT SIGi^ 



SIGN TO 



;GET MSB OF INPUT VALUE 
; MAXIMUM EXCEEDED? 

?(GFT PARAMETER SIGN) 
;N0 - CONTINUE EVALUATION 
;NbGATIVE ADJUSTMENT? 
;NU - SET TO MAXIMUM VALUE 



DEFAULT TO MINIMUM VALUE CO) 



CHKOiO EQU $ 
XRA A 
STAX D 
RET 



;SET TD ZERO 

; STORE NEW VALUE 
;R£TUPN 



ITEM 

4d58 
4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4668 
4669 
4b70 
4671 
4t>72 
4673 
467 4 
4675 
4676 
4o77 
467B 
4679 
4680 
46B1 
46b i! 
46 83 
4684 
4685 
4686 
4687 
4688 
4689 
4690 
4691 
4692 
4693 
4694 
469li> 
4696 
4697 



LOG 

1028 
1028 
1028 
1028 
1028 
102B 
102C 
10 2D 
1030 
1033 
1034 
1034 
1034 
1034 
1034 
1035 
1036 
1037 
1037 
1038 
1038 
1038 
1038 
1038 
1039 
103A 
103A 
103A 
103A 
103A 
103B 
10 3E 
1041 
1041 
1041 
1041 
1041 
1042 
1045 
1046 
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PARAMETER < 256, EVALUATE FOR RELATIVE AMOUNT 



21 

87 
78 
FA 
C2 
7E 



U 

69 
D8 

• 

79 



12 

C9 



96 
DA 
12 
C9 



DE FF 



41 
3A 



10 
10 



86 

D2 34 

C3 37 



JO 
10 



CHK050 Ego $ 

LXI H,10DATA ;SET H,L Tu GET INPUJ VALUE 

ADD A ;PELATIVfc POSITIONING? 

MOV A,B ;(LOAD CURRENT VALUE) 

JM CHK.160 ; MINUS - SUBTRACT INPUT 

JNZ CHK150 ;PLUS - ADD INPUT 

MOV A,,M ;NONE - ABSOLUTE ASSIGN VENl 

CHECK UPPER LIMIT + 1 



; STORE ASSlGi^ED VALUE 

; MAXIMUM EXCEEDED? 

;N0 - RETURN 

;YES - USE MAXIMUM VALUE 



CHK060 EQU l> 

STAX D 

CMP C 

RC 

CHK070 EQV !J 

MOV A,C 

; STORE PARA^5ETER VALUE * 

CHKIOO Egu $ 

SI AX D ; STORE PARAMETER VALUE 

RET ; RETURN 



POSITIVE ADJUSTMENT - ADD INPUT 



CHK150 EQU $ 
ADD M 

JNC CilK060 
JmP CHK070 



;0»/EHFLOW? 

;N0 - USE SPECIFIED VALUE 

;YES - USE MAXIMUM VALUE 



25 lU 



NEGATIVE ADJUSTMENT - SUBTRACT INPUT 

CHK160 EQU $ 

SUB M ;UNDERFLOW? 

JC CHKOIO ;YtS - USE ZERO 

STAX D ;N0 - USE COMPUTED VALUE 

RET ;RE1URN 
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ITEM 

4699 

4700 

4701 

4702 

4703 

4704 

4705 

4706 

4707 

470« 

4709 

4710 

4711 

4712 

4713 

4714 

47 IS 

4716 

4717 

4718 

4719 

4720 

4721 

4722 

47 23 

4724 

4725 

4726 

4727 

4728 

4729 

47 30 

47 31 

4732 

4733 

4734 

4735 

4736 



LOC 

1047 

1047 

1047 

1047 

1047 

104A 

104C 

104D 

104D 

104D 

104D 

104D 

1050 

1052 

1053 

1053 

1053 

1053 

1053 

1053 

1053 

1056 

1058 

1059 

1059 

105C 

105F 

105F 

105F 

105F 

105F 

105F 

105F 

105F 

105F 

105F 

1062 

1064 
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3A 
E6 
C9 



3A 
E6 
C9 



3A 
E6 
CO 

3A 
E6 
C8 



F4 
01 



F4 
10 



64 
20 



F3 

02 



3A FB 
E6 08 
C9 . 



FF 



FF 



; CKDSPF - CHECK FOR 

;♦*♦***♦♦*♦♦*♦♦»♦*** 

CKDSPF EQU $ 

LDA f^DFLGl 

ANI DSPFNC 
RET 

; CKEDIT - CHECK FDR 

CKEDIT EgU $ 

LDA MDFLGl 

ANI EDIT 
PET 

GTMODE - DETERMINE 
Z = TRUE TF CHARAC 
% = FALSE IF PAGE 
1f.1(,i^K.K.%l^■^f.%i^•l(.i^%^^t|.'ll^%i^■i^ 
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DISPLAY FUNCTIONS ENABLED * 



GTMOUl 



GTMODE 



FgU 
LDA 
ANI 
RNZ 
EQU 
LDA 
ANI 
RZ 



I0FLG2 
XDS2BF 



MDFLG2 
BLKMDE 



;GET SOFT MODE FLAGS 

JMASK FOR DISPLAlt FUNCTIONS 

;flag and return 
edit mode enabled » 

;get soft mode flags 
;mask for edit flag and 

; RETURN 

MODE UF TERMINAL * 
TER MODE * 

MODE * 

;GET I/O FLAGS 

; DISPLAY TO BUFFER TRANSFER? 
pYES - RETURN PAGE MODE 
;N0 - CHECK REAL PAGE MODE 
;GET TERMINAL MODE FLAGS 2 
; BLOCK MODE ENABLED? 
;N0 - RETURN (Z=TRUE) 



CKLNMD - CHECK LINE MODE 

EXIT : Z = TRUE, LINE MODE 
= FALSE, PAGE MODE 
A,L DESTROYED 



CKLNMD 



EQU $ 

LUA KBJMPR 

ANI PAGSTR 

RET 



;GET THE STRAP SETTINGS 
;SET Z-FLAG 
; RETURN 



SSISSS 


sssssss: 




sss: 


;SSSSS 


rs3ssssssras;xs:ssxs5ss 


ITEM 


LOC 


OBJKCT 


CODE 


SOURCF, STAIEMENTS 




= = =:=:==:=: 




ZSS3 


(3s;^ss 


sssszsssxs::: 


:ss: = s:sxsxs 


473B 


1065 








f t **=¥**** **^^*'^***** 


4739 


1065 








; CKPPOT - 


CHECK PRO 


4740 


1065 








; CURSOR 


LOCATION 


4741 


1065 








j:^^i^>(f^^^^tt**t******^ 


4742 


1065 








CKPROT EgU 


$ 


4743 


1065 


3A 


C2 


FF 


LOA 


FROFLD 


4744 


1068 


3C 






INR 


A 


4745 


1069 


C9 






RtT 




47 46 


106A 


• 






;**f***»j|c**f|t4;j»::f:4c^4;!»: 


4747 


106A 


• 






; CKRMTE - 


CHECK FOR 


4748 


106A 


• 






-!){♦♦ 4it*1:****5tt**:****f 


4749 


106A 


• 






CKRMTE EQll 


$ 


4750 


106A 


3A 


FH 


FF 


LDA 


CMFLGS 


4751 


106r) 


E6 


10 




AMI 


REMSET 


4752 


106F 


C9 


• 




PET 
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ITECT STAXUb UF CURRENT ♦ 

;GET PROTECT FLAG 

;SET Z-FLAG (-1 => PROTECTED 

/RETURN 

REMOTE HODE ENABLED * 

;GET COMMON FLAGS 
;VAvSK FOR REMOTE FLAG 
;PET (t^Z => iES? Z => NO) 



13255-90003 

ITEM LOC 



4754 
4755 
4756 
4757 
4758 
4759 
4760 
47bl 
4762 
4763 
4764 
4? 65 
4766 
4767 
476H 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
47 81 
478 2 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 



1070 
1070 
1070 
1070 
1070 
1070 
1070 
1070 
1070 
1070 
1070 
10 70 
1070 
1070 
1070 
1070 
1070 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
107C 
107E 
107F 
1082 
1085 
1088 
1088 
1088 
1068 
1088 
108A 
108D 
lOSE 
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iti::^t***^4 ************ 1 4*********************** 

CLBLXF - CLEAR BLOCK THANSFER PENDING FLAG * 

t^ifi******:^*******:^*]^ ************************* 

entry: B = 377B-(ELAG 10 CLEAR FROM MFLGS) 
C = 377B-(FLAG TO CLEAR FROM MFLGS2) 

EXIT : H = BASEH 

A,B,L DESTROYED 

CLEARS THE SPECIFIED TRANSFER PENDING FLAG 
FROM "MFLGS". IF NO OTHER TRANSFER IS PENDING, 
THEN THE KEYBOARD IS UNLOCKED. OTHERWISE, 
THE NEXT TRANSFER PENDING IS SET UP. 



2A 
78 
A4 
67 
79 
A5 
6F 
22 
E6 
34 
01 
C2 
CD 



6F FF 



6F 
03 

• 

00 
CA 
F4 



FF 



00 
16 
15 



CLBLXF EgU 


$ 


LhLD 


MFLGS2 


MUV 


A,B 


ANA 


H 


MOV 


H,A 


MOV 


A,C 


ANA 


L 


MOV 


L,A 


ShLD 


MFLGS2 


ANI 


SB I MR Y 


OKA 


H 


LXI 


B,0 


JNZ 


SBLXFO 


CALL 


KBEN 



?GET TRANSFER PENDING FLAGS 
;CLEAR FLAG FROM "MFLGS" 



; CLEAR FLAG FROM "MFLGS2" 

; STORE NEW FLAG VALUES 
HEC 

;ANY more TRANSFER PENDING? 
;CSET FOR NULL FLAGS SET) 
;YES - SET UP NEXT BLOCK XFR 
;N0 - HE-ENABLE KEYBOARD 



CLRXON - CLEAR BLOCK TRANSFER TRIGGER 



CLHXGN 



3E 00 

CD 42 

37 . 

C9 . 



12 



Fgu 

MVI 
CALL 
STC 
RET 



A,CLRTRG ;CLEAR BLOCK TRaNSFER TRIGGE 
DCMCTL ; PERFORM DATACOV CONTROL 
;SET C-FLAG TRUE AND 
;RETUR(\J 



ITEM 

C792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4B0'2 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 
4813 
4814 
4815 
4816 
4817 
4818 
^4819 
4820 
4821 
4822 
48 2 3 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
4832 



LOG 

108F 
108F 
108F 
108F 
108F 
1091 
1094 
1097 
109A 
109D 
109E 
lOAl 
10A2 
10A3 
10A4 
10A5 
10A7 
lOAP 
10A9 
lOAB 
lOAC 
lOAF 
lOBO 
lOBl 
10B2 
1083 
10B4 
10B5 
10B6 
10B9 
lOBC 
108D 
lOCO 
lOCO 
lOCO 
lOCO 
lOCO 
lOCO 
10C3 
10C5 
10C6 



OBJECT CODE 



3e 

CD 
CO 
C2 
CO 
F8 
2 A 
7E 
B7 
C3 
Eb 
36 
23 
56 
36 
5F 
2A 
EB 
2 3 
23 
23 
7 3 
23 
7 2 
2A 
22 
El 
22 



3A 
E6 
C8 
C3 



FE 
01 
76 
C9 
3C 



Al 
AC 



F4 
04 



16 
19 
10 
IC 



C9 FF 



00 



CE 



AC FF 



FF 
FF 



Al FF 



Ft 
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; CLEARS - CLEAR DISPLAY FROM CURSOR POSITION * 



CLEARS EQU 
MVI 
CALL 
CALL 
JNZ 
CALL 
RM 

LHLD 
MOV 
ORA 
RZ 

PUSH 
MVI 
I NX 
MiJV 
Mvl 
MOV 
LHLD 
XCHG 
INX 
INX 
HMX 
MOV 
INX 
MOV 
LHLD 
SHLD 
POP 
5HLU 

MEMORY RELEASED ♦ 
CLEAR LOCK FLAGS ♦ 



$ ;CLEAR UNPROTECTED FIELDS 

A,3770-SDACOM ;ONLY BY CLEARING DATA 



CLRDFL 
CHKFMS 
CLSIOO 
CLEARL 

LSTLIN 

A,M 

A 

H 

M,0 

H 

D,M 

M,EOP 

E,A 

FPBLKS 

H 

H 

H 

M,E 

H 

M,D 

LLINE 

FRBLKS 

H 

LLXNE 



MLKOF 



D9 OA 



EQU 

LDA 

ANI 

RZ 

JMP 



MDFLGl 
MEMLOK 

MLOOIO 



;COMM INPUT FLAG 
; FORMAT/SOFT KEY DEFINE MODE 
;YES - CLEAR FIELDS ONLY 
;CLEAR LINE FROM CURSOR 
;FETURN if line NOT FOUND 
;GfcT CURRENT LINE ADDRESS 
;GfcT THE LSB VALUE 
;NeXT line EXIST (LSB # 0)? 
;N0 - RETURN 
;yES - ADD SUCCEEDING LINES 

;T0 FREE BLOCKS LIST 
;SET NEXT LINE POINTER TO 

; INDICATE NO NEXT LINE 

?S£T D,E TO TOP NEXT LINE 
;GET CURRENT FREE BLOCKS HEA 
;SET PREVIOUS LINE POINTER 
;IN FIRST SUCCEEDING LINE 
;T0 CURRENT FREE BLOCKS 
;HEAD 



;SET FREE BLOCKS HEAD TO 
;CURRENT LAST LINE 

;SET LAST LINE ADDRESS TO 
/CURRENT LINE 



; MEMORY LOCK ENABLED? 

;N0 - RETURN 

;YES "- SET LED ON WO/BLINKXN 



13255-90003 



itf:m 

4834 
4835 
4836 
4837 
4838 
4839 
4B40 
4841 
4842 
4843 
4844 
4845 
484b 
4847 
4848 
4849 
4850 
4851 
4852 
4853 
4854 
4855 
4356 
4857 
4858 
4859 
4860 
4861 
4862 
4863 
4864 
4865 
4866 
4867 
4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 



LOC 

IOC 9 
IOC 9 
10C9 
10C9 
10C9 
lOCC 
lOCD 
lOCD 
lODO 
lODl 
10D4 
1004 
1004 
1004 
1004 
1004 
1007 
lODR 
1009 
1009 
lOOC 
lOOD 
1000 
1000 
1000 
1000 
lOEO 
10E2 

ioe:3 

10E3 
10E3 
10K3 
10E4 
10E4 
10E5 
10E5 
10E8 
lOEB 
10 ED 
lOFO 
10F2 
10F3 
10F5 
10F8 
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PAGE 140 



F4 

F8 

C2 
04 
C2 



CD 

C8 

lA 

• 

32 

IB 



CO 
FE 
C8 



IB 

13 

CD 
C2 
Ft 
CA 
FE 
C8 
FE 
CC 
C3 



D 



4 
DO 



D 



C4 



C5 FF 



9C 
CE 



87 
E4 
CI 
09 
CE 

C4 
B8 
E5 



06 
10 

10 



lA 
10 



; FORMAT MuDE CLEAR SCREEN FROM CURSOR * 

*t4^*^****^*lF******t*$*^**^ ************** 

CLSIOO EQU 
CP 
RM 



RCADR4 ;L0CATE CHAR IF FORMAT MODE 
; RETURN IF MOT FOUND OR IN 

SOFT KEY OEFIME MODE 
;PAST EOL - START AT NEXT FL 
; CURSOR IN UNPROTECTED FIELD 
;YES - CLEAR REST OF FIELD 



JNZ CLSllO 

INR B 

JNZ CLS130 

^4^:i.:^^^^^ 4* ************ ********* 

CURSOR IN PROTECTED FIELD ♦ 

TAB 10 NEX'l UMPPOTECTEO FIELD ♦ 

^iH.^4:^^f-^4444il^t**^********* ******* 

CLSllO EQU $ 

CALL FLOSR 



CLS120 



RZ 
L[)AX 

Egu 

ST A 
OCX 



; SEARCH TO NEXT 
;N0 hORE FIELDS 
;GET END PROTECT 



FIELD 
- RF.TURN 
CHARACTER 



;SET LAST FORMAT CODE 
;SKIP OVER "ENOPR" CriAH 





$ 

LSTFMT 



jilL:lft**** ******************* 

; CLEAR UNPROTECTED FIELD * 

J :4^f.if:^if4ilf4'4tt ****** ********* 

CLS130 EQU $ 

CALL CLERUl /CLEAR FIELD 

CPl EOP JTERMINAIION AT END OF PAGE? 

RZ ;YES - RETURN 

J i^^^^^^^i^t 4 *********** *************** 
; SEARCH FOR NEXT UNPROTECTED FIELD ♦ 

J :^:^4i^4;/^::ili1lf.t **************** *********** 



CLS200 
CLS210 



OCX 

Egu 

INX 

Egu 

CALL 

JNZ 

CPI 

JZ 

CPI 

RZ 

CPI 

CZ 

JmP 





$ 



$ 

NXTCHR 

CLS200 

ENOPH 

CLS120 

EOP 

STPFLG 
CHRDL2 
CLS210 



ADJUST ADDRESS TO NEXT CHAR 

ADJUST k00i^it.S3 TO PHEV CHAR 

GET NEXT CHARACTFR 

SKIP OVER EOL LINK 

NEW FIELD? 

YES - CLEAR IT 

END OF DISPLAY? 

YES - RETURN 

NON-DISPLAYING TERMINATOR? 

YES - DELETE IT 

CONTINUE SEARCH 



ITEM 

4879 
4880 
4881 
4882 
4883 
4884 
4885 
4886 
4887 
4888 
4889 
4890 
4891 
4892 
4893 
4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 
4904 
4905 



LOC 

lOFB 
lOFB 
lOFB 
lOFB 
lOFB 
lOFB 
lOFB 
lOFe 
lOFD 
lOFF 
lOFF 
lOFF 
lOFF 
lOFF 
lOFF 
lOFF 
lOFF 
lOFF 
lOFF 
lOFF 
lOFF 
1100 
llOO 
1101 
llu2 
1103 
1106 



OBJEC 



2fe; 

It; 



AF 

« 

77 

23 

ID 

C2 

C9 
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• 

? ENTRY: H = BASEH 
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CLRALL EQU $ 

MVI L,HTBTBL-BASE ;SET ADDRESS AND NUMBER 
MVI E,HTBLEN ;0F BYTES TO BE CLEARED 

CLHALl - SET A REGION UF RAM TO ZERO * 

ENTRY: E = NUMBER UF BYTES IN REGION 
H,L = LOW ADDRESS OF REGION 

EXIT : A,E = 

H,L = H,LCENTRY) + E 



CLRALl 



CLAOIO 



00 11 



Egu 

XRA 

Egu 

MOV 
I NX 
DCR 
JNZ 
RET 



$ 

A 

$ 

M,A 

H 

E 

CLAOIO 



;SET A TO ZERO 

;SET BiTE 10 ZERO 
; ADVANCE TO NEXT B^TE 
?ALL BYTES DONE? 
;NU - DO NEXr BYTE 
;YES - RETURN 
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ITEM 

4907 
4908 
4909 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 



LQC 

1107 
1107 
1107 
1107 
1107 
1107 
llOA 
HOB 

hoe: 

HOE 
MOE 
HOE 
HOE 
1111 
1113 
1116 
H19 
11 lA 
HIB 
HIE 
HIF 
H20 
1123 
1126 
1127 
H2A 
H2A 
H2A 
112A 
H2A 
H2A 
H2D 
H2F 
1132 
H35 
1136 
1136 
1139 
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CD 
CO 
CD 



3A 

FE 
CC 
2A 
7E 
B7 
CA 
5F 
IC 
CD 
21 
34 
C3 



CD 
FE 
3A 
CA 
3C 



8C 



19 
5 21 



C7 
17 
27 
C9 



54 
C7 



86 
CC 
C7 
36 
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CURPHD - HOME DOWN TO FIRST COLUMN OF * 
FIRST LINE BEYOND END OF MEMORY * 

CURPHD Et?U $ 

CALL CHKSFK ; DEFINE SOFT KEY MODE? 

PNZ ;YES - IGNORE HOME DOWN 

CALL CURPRT ; NO - RETURN TO LEFT MARGIN 

? MOVE CURSOR TO NEXT ROW ♦ 



FF 
OC 

FF 



2A 11 



OC 
FF 



OE 11 



32 CO 
C9 . 



Ob 
• 

FF 
11 



FF 



HDCIOO 



EQU 

LDA 

CFI 

CZ 

LHLD 

MOV 

OKA 

JZ 

MOV 

INR 

CALL 

LXl 

INR 

JMP 



LSTROW 
MAXROW 
ROLLUP 
LSTLIN 
A,M 
A 

HDC200 
E,A 
E 

R0LUP2 
H, LSTROW 
M 
HDCIOO 



;IS LAST ROW DONE AT BOTTOM? 
;YES - ROLL UP THE DISPLAY 
;GET CURRENT ROW ADDRESS 
;GET LSB OF NEXT LINE POINTE 
;IS THERE A NEXT ROW? 
;N0 - TERMINATE HOME DOWN 
;YES - SET E TU NEXT LINE 

; POINTER OF NEXT LINE 
;SET "LSTLIN" AND "CURADK" 

;T0 NEXT LINE 
.•INCREMENT LAST ROW DONE 



4i;f*4E* ♦♦♦♦♦♦♦♦♦♦♦♦♦ 

LAST LINE FOUND ♦ 
SET ROW 



HDC200 



HDC210 



ECU 

CALL 

CPI 

LDA 

JZ 

INR 

EQU 

ST A 

RET 



NXXCHO 

EOL 

LSTROW 

HDC210 

A 

$ 

CURROW 



;GET 1ST CHAR OF LAS! ROw 
;LAST ROW EMPTY? 

;(GET LAST ROW POSITION) 
;YES - SET CURRENT ROW = LAS 
;N0 - SET TO NEXT ROW 



;SET CURRENT 
;RETUPN 



ROW NUMBER 



132b5-90003 



Kev AUG-01-7 6 



ITEM 

4946 
4947 
4948 
4949 
4950 
4951 
4952 
495i 
4yt)4 
4955 
495b 
4957 
4958 



LOC OBJECT CODE SOURCE STATEMENTS 



PAGE 14 3 



113A 
U3A 
113A 
113A 
113A 
113A 
113D 
1140 
1142 
lt45 
1147 
1149 
11 4C 



3 A 
32 

3E 
CD 
2E 
3b 
21 
C3 



CI 

DB 
7F 

AA 
D9 
FF 
60 
7t- 



FF 
FF 

• 
04 



2 7 

04 



CUPPUS - CURSOR FOSIXIONIMG ♦ 
INITIAL ENTHY POINT * 

CURPOS Eyli $ 



I.DA 

ST A 

MVI 

CALL 

MVI 

MVI 

LXI 

JMP 



CMRCOL ;SET NEin COLUMN LEFAULT TO 

NEwCOL fCUPRENT COLUMN POSITlOfJ 

Ari770-MwPl^ST 

CLPMF2 ; CLEAR NEvn' RU\« SET FLAG 

L,SCRNHW-BASE ; PRESET RELATIVE ROw 

M,-1 ; PARAMETER TO -1 

Vi,CRPTAB ;SET RANGE TABLE FUR CURSOR 

ESC A P A ? POS 1 T 1 n N I N G 



13255 

SSSSXJ 

ITEM 

4960 

4961 

4962 

4963 

4964 

4965 

4966 

4967 

4968 

4969 

4970 

4971 

4972 

4973 

4974 

4975 

4976 

497 7 

4978 

4979 

4980 

4981 

4982 

49B3 

4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 

4999 



•90003 

Esssssr 

LOC 

kXSSSSS 

14F 

14r 

14F 

14F 

14F 

151 

154 

15,6 

1&7 

15A 

15A 

15A 

15A 

ISA 

15C 

15F 

161 

162 

165 

165 

165 

165 

165 

168 

169 

16C 

16F 

171 

173 

176 

179 

17B 

17C 

170 

170 

180 

180 

183 

185 

188 



Rev AUG-01- 

ssssssssassasss 

OBJECT CODE 

sssrsssss«8S«88 



OE 

11 

2E 
46 

C3 



oe 
n 

2E 
46 
C3 



3A 
B7 
C2 
3fc 
CD 
OE 
11 
3A 
2E 
86 
47 



3A 

E6 
C2 



4F 

DB FF 

pi 

7D 



17 

D9 FF 

CO 

7D 



6B FF 

• 

80 

80 

39 

FF 

DA FF 

CO FF 

A3 



CD U 



88 
20 
87 




FF 
04 



76 

K8SCS8SSBasrSSSSS3SS8SSS&«SSSSSSSSSSS88SSSSSSSSSS = Si: 

SOURCE STATEMENTS PAGE 144 

88S8SSS8SXSSSSSSSSS83S88XSSSSSSSSaSS3 8SS8SSS8XSSS3: 

; NEI« COLUMN POSiTlOw IS DEFINED * 
ft:^^^^$t*************t **'¥*'* ******* 



CUKPOl 



EwU 
MVI 
LXl 
MVI 
¥0V 
JMP 



$ 



AND 
SET 



CMAXCOL ;SET MAXIMUM VALUF 
D,NEWCUL ;PARAMETER TO fat 
L,CURCOL-RASE J^CHKLIM" 

BrM 

CHP025 ;FVALUATE THE PAHPMKTFR 

; SCREEN ROW SPECIFIED ♦ 
f^^t ******* ************* 



cuRPoa 



Egu 

MVI 
liXI 
MVI 
MOV 
JMP 



CMAXRUW ;SfcT MAXIMUM VALUE 
D,SCHNHW ; PARAMETER TO BE 

L,CURROW-BASt ^'''CHKLIM" 

B,M 

CHP025 ; EVALUATE THE 
f ****************************** 

; NEW ROW POSITION IS DEFINED ♦ 
**$1^:$^ift******** *************** 



AND 
SET 



PARAMETER 



CUHP03 



CPP025 



CRP050 



EQU 

LLA 

HRA 

JNZ 

MVI 

CALL 

MVI 

I. XI 

LDA 

MVI 

ADD 

MOV 

Egu 

CALL 

EQU 

LDA 

ANI 

JNZ 



MLKROW 

A 

CRP050 

A,NWRWST 

SFTMF2 

C,255 

D,NEMRUW 

CURROW 

L,THNO 

M 

BrA 

$ 

CHKHO 

$ 

CHAR 

40g 

fcSCAPB 



;GET MEMORif LOCK ROW 
;MEMORSf LOCK ENABLED? 
;YES - IGNORE PARAMETER 
;N0 - SET NEW ROW SET 

;FLAG 
;5ET MAXIMUM VALUE AND 

/PARAMETER TO BE SET 
/COMPUTE CURRENT ABSOLUTE 

;PUW ADDRESS 

;PUT IT INTO B-REGISTER 

/EVALUATE INPUT PARAMETER 

/RECALL THE INPUT CHARACTER 
/IS IT AN UPPER CASE CHAR? 
/NO - CONTINUE ESC SEQUENCE 
YES - POSITION CURSOR 



13255-90003 
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ITEM 



•^5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
5010 
5011 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
502b 
5027 
.5028 
5029 
5030 



LOC OBJECT CODE SOURCE STATEMENTS PAGE 145 

UTE COMPLETED SEQUENCE * 
;)t ♦ ♦ ^ f ♦ ^ ♦ 4 * 4t 4: 4= ♦ 3f ♦ ;*: » ♦ f ♦ ♦ ♦ * 

LDA SCHNRW ;GET SCREEN HOW PARAMETER 

ORA A ;WAS wSCREEi\l ROW ADDRESS SET? 

JM CRP200 ;NU - SET ABSOLUTE ROW ADDR 

STA CURRUW ;yES - SET NEW SCREEN ROW 

ABSOLUTE ROW ADDRESS ♦ 
4: t ♦♦»»♦♦♦ ♦♦♦♦♦»♦♦****♦ 

EyU $ 

CM CRP500 ?FiND LOCATION OF NEW ROW 



118B 
1188 
1188 
1188 
118B 
U8C 
118F 
1192 
1192 
119^ 
1192 
1192 
1195 
1195 
1195 
1195 
1198 
1198 
1198 
1198 
1198 
119B 
119E 
119r 
U9F 
119F 
119F 
119F 
llAl 
11A3 



3A D9 FF 

B7 . 

FA 92 11 

32 CO / FF 



; ♦ 4i * * * ! 
; EXECi 
; ♦ 4^ * * * . 



; SET 
CRP200 



FC A6 11 



A OB FF 



32 
CD 
C8 



CI 

08 



FF 
07 



2E 89 
36 20 
C3 AS 



22 



SET COLUMN' ADDRESS 

LDA NEWCOL jGET NEW COLUMN ADDRESS 

LOCATE ADDRESS OF CHARACTER ♦ 

;URPu4 EQU $ 

STA ClJHCOL ; STORE NEW COLUMN ADDRESS 

CALL RCADDR ;FIND CHARACTER 

RZ ?CHARACTER FOUND - RETURN 

CHARACTER NOT CURRENTLY STORED * 
BUILD LINE OVER TO NEW POSITION ♦ 

MVI LrDCHAR ;SET Up BLANK FOR NEW POS. 
Mvl M,RBLNK 

JMP DisPLo ;build blocks 



13255-90003 



ITEM 

5032 
5033 
5034 
5035 
5036 
5037 
5038 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5065 
5066 
5067 
5068 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5081 
5082 



LOC 

11A6 
UA6 
tlA6 
11A6 
11A6 
HA9 
UAB 
UAC 
llAF 
llBl 
UB2 
UB4 
11B7 
UB9 
UBA 
UBB 
I IBB 
11 86 
UBB 
UBB 
UBD 
UBF 
UBF 
UC2 
UC3 
UC4 
UC5 
UC6 
11C7 
UCA 
UCB 
IICE 
UOl 
UDl 
UDl 
UDl 
UDl 
UOl 
UDl 
UDl 
UD3 
11D6 
UD9 
1109 
U09 
UD9 
UD9 
UDB 
UDE 
UDE 
UEl 
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; LOCATE NEW ABSOLUTE 
CRP500 EgU $ 



PAGE 146 



3A 
Ed 
C8 
3A 
2£ 
96 
2£ 
DA 
FE 
77 
08 



36 

D6 

CD 
7E 
91 
C8 
7 7 
AF 
CD 
CO 
3A 
C3 



6F 

80 

DA 
A3 

CO 
R4 
18 



83 
BF 



3E 04 
CD 39 
C3 DE 



FF 



17 
17 

45 



OB 07 



FF 
11 



17 
11 



3E FB 

CD AA 04 



ROW LOCATION * 



LDA MFLGS2 
AM NWRWST 
RZ 

LDA jMEWROW 
MVI L,TLINO 
SUB M 
MVr L,CURROw 
JC PHVPGl 
CFI MAXROi^+1 
MOV N;,A ; 
RC ; 

;♦♦♦*♦*♦♦♦♦*♦*♦*♦♦♦♦♦ 
; ROW IS AFTER BOTTOM 
; ROLL DISPLAY UP 

MVI M,MAXROW ; 
SUI MAXROW 
STROIO EQU $ 

CALL WXTPGI 
MOV A,^l 

SUB c ; 

RZ 

MOV M,A 

XRA A 

CALL RCADRO 

RNZ ; 

LDA NMROLL 

JMP STROIO 

CTIHSEN - CURSOR POS 



;G£T TERMINAL MODE FLAGS 
;NE« ABSOLUTE ROW SET? 
;NU - RETURN 

GET NEW ROW VALUE 

SUBTRACT ROW CORRESP. 

TO TOP OF PAGE 

LOCATE PREVIOUS ROW PAGE 

SET NEW P05^ 

RETURN IF SAME PAGE 

3^ J(t ♦ )»: 4 4 ♦ ♦ 5»t sjc 

OF PAGE ♦ 

SET ROW 
;SET ROLL COUNT 

;ROLL DISPLAi' UP 

;GET NUMBER OF ROWS TO ROLL 
SUBTRACT ROWS f'OLLED 
RETUF<N IF ROLL COMPLETE 

;SAVE NUMBER OF ROW TO ROLL 
;CSET TO FIND COLUMN 0) 

;BUILD NEW ROWS 
RETURN IF OUT OF MEMORY 

;GET # OF ROWS TO ROLL 

;RULL AGAIN 

ITION SENSE ♦ 



01 
C3 



00 
CA 



10 
16 



RLCRSN - SCREEN RELATIVE CURSOR SENSE 

RLCRSN EgU $ 

MVI A,RELSNS ;SET RELATIVE SENSE FLAG 

CALL SETMF2 

JMP CURIOO ;G0 set cursor sense FLAG 

CURSEN - ABSOLUTE CURSOR SENSE 

CURSEN EQU $ 

MVI A,3770-RELSNS 

CALL CLRMF2 ;CLEAR RELATIVE SENSE FLAG 
CURIOO Egu $ 

LXI BrSCRSEN ; SET UP BLOCK TRANSFER . 

JMP SBLXFO ?FOR CURSOR SENSE PENDING 



ITEM 

5084 

50813 

5086 

5087 

5088 

5089 

5090 

5091 

5092 

5093 

5094 

5095 

5096 

5097 

5098 

5099 

5100 

5101 

5102 

5103 

5104 

5105 

5106 

5107 

5108 

5109 

5110 

5111 

5112 

5113 

5114 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 



T.OC OBJECT CODE 



11E4 
llfc;4 

iifc:7 

UEA 

iife;c 

ItKF 
UFl 
11F4 

ur4 

11F4 
11F4 
11F7 
UFA 
UFD 
UFF 

1202 
1202 
1202 
1202 
1205 
1207 
120A 
120C 
120F 
1212 
1213 
1215 
1215 
1215 
1215 
1215 
1215 
1215 
1215 
1215 
1216 
1219 
121 A 
12 in 
121D 
1210 
1210 
1210 
1210 
1210 
1220 
1220 
1223 
1225 



01 
CD 
06 
CD 
3E 
CO 



21 

3 A 
CD 
3E 
CD 



3A 
C6 
3A 
06 
C2 
21 
86 
06 



C5 
CD 
Fl 
CD 



FF 
70 
26 
BB 
61 
CI 



CI 
CI 
23 
63 
CI 



6F 
04 
CO 
59 
15 
A3 

52 



CD F6 

CD 88 

3£ 07 

C3 42 



EF 



7 

FF 



FF 

FF 

2 
FF 
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CRS^iGO EQU 
LXl 
CALL 
MVl 
CALL 
MVI 
CALL 



; ♦♦♦♦♦ 
; OUTF 
; *♦♦♦♦ 



B,-1-$CRSEN 

CLBLXF 

B,AMPSND 

ESC OUT 

A,SMALLA 

XPUTDC 

UT CUPSOH COLUMN * 



;CLEAR CURSOR SENSE 
; PENDING FLAG 
;SEND <ESC>-<&> 



;TRANSMIT LOwEH CASE A 



♦ 3(c 4 :«( ^tr 3|t 

; ouxp 

;♦♦♦♦♦ 



LXI H,XFUTDC 

LDA CURCOL 

CALL bN2DEl 

MVI A,ALCC 

CALL XPUTDC 

UT CURSDH ROW * 



;SEND NUMBER 
;GET CUPREWT 
; CONVERT AND 



TO DATA COMM 
CURSOR COLUMN 
TRANSlyiTT VALUE 



; TRANSMIT LOWER CASE C 



TPAN 



LDA MFLGS2 

AM HELSnS 

LDA CURROW 

MVI a, I 

JNZ CRSIOO 

LXI H,THNO 

ADD M 

MVI b , R 

SMIT ROW PARAMETER ♦ 



;GET TERMINAL MODE FLAGS 
; SCREEN RELATIVE SENSING? 
;(GET CURSOR ROVv NUMBER) 
;(SET DEFAULT PARAMETER) 
;YES - OUTPUT SCREEN ADDRESS 



NO - COMPUTE 

;RUW NUMBER 

SET ABSOLUTE 



ABSOLUTE 
PARAMEIFR CHAR 



A = ROW VALUE 

B = ROW PARAMETER LETIER 



CRSIOO Egu 
PUSH 
CALL 
POP 
CALL 



SDTERM - S 
HS IF PAGE 

SDTERM EQU 
CALL 

SDTERl EQU 
CALL 
MVI 
JMP 



S 

B 

BN2DE2 

PSW 

XPUTDC 

^;t:3(ct4:4c4:(e:f 

END BLOCK 
MODE, OT 

♦ ♦♦*■**:♦♦ 4^ 
$ 

SDTRMl 

$ 

CLRXON 

A,ENDBLK 

DCMCTL 



;SAVE ROW PARAMETER LETTER 
;CQNVERT AND TRANSMIT VALUE 
; RECALL ROW PARAMETER LETTER 
;TRANS«viIT ROW PARAMETER CHAR 
FALL INTO "SDTERM" 

TERMINATOR ♦ 
HERwISE CRCLFJ ♦ 

;SEND TERMINATOR 

;CLEAR BLOCK TERMINATOR 
;TELL DATA COMM THAT LAST 
;CHARACT£R IN BLOCK IS OUT 



13255-90003 



ITEM 

5134 
5135 
513b 
5137 
5138 
5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5148 
5149 
5150 
5151 
5152 
5153 
5154 
5155 



LOC 

1228 
1228 
1228 
1228 
1228 
122B 
122C 
122E 
122F 
1231 
1234 
1234 
1234 
1234 
1234 
1234 
1234 
1234 
1234 
1237 
1238 
123B 
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21 

7E 
Eb 
77 
3C 
C3 



70 FF 



FE 



CD 
42 



CD 65 91 

Fl . 

C3 26 50 



DC2G0 - OUTPUT DC2 



DC 2 GO 



EQU 
LXI 
MOV 
AM 
MOV 
MVI 
JhP 



DC2 PENDING FLAG 



H,MFLGS 

A,M ;CLFAP 

(-l-SDC2)/256 

f"»,A 

A, PROMPT ;TELL DATA COMM ROUTINE 

DCMCTL ;SEND PROMPT CODE 

DCMTNT - DATA COMM INTERRUPT ROUTINE ♦ 

ENTRY: PSW "PUSHED" 

A = INTERRUPT CODE 



TO 



DCMINT 



EQU $ 
CALL INTVEC 
POP PS^. 
JMP ZDCINT 



;CHECK ALTERNATE INTERRUPT 
; RESTORE PSW AND A-REGISTER 
; EXECUTE NORMAL DATA COMM 
INTERRUPT ROUTINE 



ITEM 

5157 
5158 
5159 
5160 
5161 
5162 
516i 
5164 
5165 
5166 
516 7 
5168 
5169 
5170 
5171 
5172 
517i 
5174 
5175 
517b 
5177 
5178 
5179 
5180 
5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 



LOC 

123B 
123B 
1236 
123B 
123B 
123D 
1240 
1240 
1240 
1240 
1240 
124? 
1242 
1242 
1242 
1242 
1242 
1242 
1242 
1242 

1242 
1243 
1246 
1249 
124A 
124B 
124C 
124C 
124C 
124D 
124D 
1250 
1251 
1251 
1254 
1254 
1254 
1254 
1254 
1257 
1259 
125C 
125C 
125C 
125F 
1262 
1262 
1262 
1262 
1262 



OBJECT CODE 



3E 05 
C3 42 



06 



F5 
CD 
C2 
Fi 
3C 
C9 



Fl 

CD 
DO 

CA 



CD 
C3 



6A 
4C 



10 
12 



1 50 



4 48 



CD D6 
3E 04 
CD 00 



A5 
5C 



OF 
12 



SOURC 

; BPK 
6RKDC 



13255-90003 
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DC - EXhCUT^ DATA COMM BREAK ♦ 

EQU S 

MVI ArPUTBHK ;EXfc.CUTE DATACOM BREAK 

JMP DCMCTL ; CONTROL 



DXSMDM - DISCONNECT MODEM 

DISMDM EQU $ 

MVI A,DISCNT ;EXECUTE MODEM DISCONNECT 

UCMCTl. - PERFORM DATA COMM CONIROL FUNCTION * 

ENTRY: A = FUNCTION TYt^F NUMBER 

EXIT : Z - FUNCTION PERFORMED 

NZ - FUNCTION NOT PERFORMED 



DCMCTL EQU $ 

PUSH PSvx 
CALL CKRMTE 
JNZ DCCOlO 
POP PSW 
INR A 
RET 



DCCO 
DCMC 



10 



11 



DCERH 



EQU 
POP 

Egn 

CALL 
RNC 

Egu 

JZ 



PSW 
ZDCCTL 



ZBELL 

? DISPLAY TEST FAIL i^ 

HANGUO EQU $ 

CALL DSPMSO 
MVI A,FRCRST 
CALL STCMFL 



HNGOIO 



EQU $ 
CALL DISLN4 
JMP HNGOIO 



;SAVE A-REGISTER 

; REMOTE MODE ENABLED? 

;YES - PERFORM FUNCTION 

;N0 - RESTORE A-REGISTER 

; FORCE NZ 

; RETURN 



RESTORE A-REGISTER 
ENTRY TO FORCE DATA CUMM CT 
EXECUTE FUNCTION 
SUCCESSFUL - RETURN 
PROCESS DATA COMM ERROR 
NOT FATAL - SOUND BELL 

ESSAGES * 

; DISPLAY THE ERROR MESSAGE 
;SET TO FORCE FULL RESET 
;TF RESET KEY HIT 



; RE-ENABLE RESET ONLY 
;HANG TERMINAL 

♦ RESET KEY MUST BE HIT * 

♦ TO RESTORE TERMINAL * 

♦ OPERATION * 
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ITEM 

5209 
5210 
52U 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5226 
5227 
5228 
5229 
5230 
5231 
5232 
5233 
5234 
5235 
5236 
5237 
5238 
5239 
5240 
5241 
5242 
5243 
5244 
5245 
5246 
5247 
5248 
5249 
5250 
5251 
5252 
5253 



LOC 

1262 
1262 
1262 
1262 
1262 
1262 
1262 
1262 
1265 
1266 
1267 
126A 
126C 
126C 
126F 
1271 
1272 
1274 
1277 
12 7 A 
127B 
127B 
127B 
127C 
127D 
1280 
1283 
1286 
1286 
1286 
1286 
1286 
1288 
1288 
128B 
128B 
128B 
128B 
128D 
128D 
1290 
1291 
1292 
1295 
1296 
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DCNUM - ACCUMULATE PARAMETER FOR ESC SEO * 



21 

7E 
B7 
C2 
36 

3A 
D6 
5F 
16 
3 A 
2A 
EB 



19 
3D 
C2 
22 
C3 



06 
C3 



06 



DO FF 



6C 
RO 



88 
30 

• 

00 
D4 
DE 



7B 
DE 
8F 



01 
8D 



FF 
DD 



21 

7E . 

67 . 

C2 95 



FF 



FF 
FF 



12 

FF 
04 



FF 



EXIT 



Z TRUE 



DCNUM 



DCN005 



Egu 

I.XT 

MUV 
OHA 
JNZ 

MVI 

Eyu 

LDA 
SUI 
MOV 
MVI 
LDA 
LHLU lUDATA 



H,IOCSGN 

A,M 

A 

UCN005 

M,NOSIGN 

$ 

CHAP 

ZERO 

E,A 

D,0 

RADIX 



XCHG 

« 

DCNOIO Egu 
DAD 
DCR 
JNZ 
SHLD 
JMP 
; ♦♦♦ **+*4:f * 
; DC PLUS - 

DCPLUS EQU 
MVI 
JMP 

; DCMNUS - 

. :»; jj: if <c » ♦ ♦ ♦ ♦ * 

DCMNUS EQU 



;GET THE CURRENT SIGN 

; VALUE 
;RAS ANY SIGN BEEN SET? 
;yES - DON'T CHANGE IT 
;N0 - SET NO SIGN FLAG 

;GET INPUT CHARACTER 

;EXTRACT BINARY VALUE 

;PUT VALUE IN E-RFGISTER 

;SET MSB TO ZERO 

;GET RADIX OF NUMBER 

;GET ACCUMULATOR 

;PUT ACCUMULATOR IN U,E 



DCMOIO 



70 
C3 



04 
8F 04 



MVI 
EQU 
LXI 
MOV 
ORA 
JNZ 
MOV 
JMP 



$ 
D 
A 

DCNOIO 
lODATA 
ESCAPl 
♦♦♦♦♦♦♦♦* 
PLUS SIGN 

$ 

B,l 

DCMOIO 

MIWUS SIG 

$ 

B,-l 

$ 

H,IOCSGN 

A,M 

A 

ESCEND 

M,B 

ESCAPl 



/ACCUMULATE NEW VALUE 

; RADIX ADJUSTMENT COMPLETED? 

;N0 - CONTINUE ADDING 

;YES - SrORE NEW VALUE 

/CONTINUE ESCAPE SEQUENCE 

RECEIVED FOR PARAMETER * 

;SET B-REG TO SIGN VALUE 
;SET SIGN FLAG 

N RECEIVED FOR PARAMETER ♦ 



;GET CURRENT SIGN VALUE 

;SIGN SET ALREADY? 
;YES - ABORT ESCAPE SEQUENCE 
;N0 - SET SIGN VALUE 
/CONTINUE ESCAPE SEQUENCE 



ITEM 

%255 
5256 
5257 
5258 
5259 
5260 
52t)l 
5262 
5263 
5264 
5265 
5266 
5267 
526b 
5269 
5270 
5271 
5272 
527 3 
52 7 4 
5275 
5276 
5277 



LOG 

1299 
1299 
1299 
1299 
1299 
129C 
129D 
12A0 
12A3 
12A6 
12A6 
12A6 
12A6 
12A6 
12A6 
12A6 
12A6 
12A6 
12A6 
12A6 
12A6 
12A9 
12AB 
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CD 
C8 
CD 
DA 
C3 



3A 
E6 
C9 



6A 10 



14 

54 
D7 



6h: 
81 



50 
12 
IC 



FF 



; DC TEST - EXECU 

DCTEST EgU $ 

CALL CKHM 

RZ 

CALL ZDCT 

JC HANG 

JHP DSPM 

t ♦ ;|: 4; )»t 4 * ;)t * ♦ ♦ ♦ ♦ if * 

DCXB2D - SEE I 
DATA COMM OP 



TE DATA COMM SELF-TEST * 



TE ;REWOTe MODE ENABLED? 

;N0 - DON'T DO SEl^F-TEST 
ST ;CALL DATA COMM SELF-TEST 
UO ;HANG TERMINAL li- FATAL ERRO 
SI ;DiSPLAY MESSAGE AND EXIT 
IF SELF-TEST SUCCESSFUL 

F SOURCE OF CHARACTER IS ♦ 
I/O BUFFER ♦ 



EXIT 



Z - INPUT IS NOT FROM DATA COMM OR i/0 
NZ - INPUT IS FROM DATA COMM OR I/O 
A DESTROYED 



DCXB2D 



Egu 

LDA 

A (Ml 

RET 



$ 

DFLGS ;GET DATA TRANSFER 
SDACQMfXBF2DS ;SEI Z-FLAG 
.•RETURN 



FLAGS 



13255-90003 



ITEM 



LOC 
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5279 
5280 
5281 
5282 
5283 
5284 
5285 
5286 
5287 
5288 
5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 



12 AC 
12AC 
12AC 
12AC 
12AC 
12AE 
12B1 
1?B3 
1263 
12B3 
12B3 
12B3 
12B3 
12B5 
12B7 
12BA 
12BC 
12BC 
12BC 
12BD 
12C0 
12C0 
12C1 
12C4 
12C6 
12C9 
12CA 
12CD 



3E 
CD 
2E 



3E 
D3 
3 A 
03 



AF 
32 

76 
3A 
FE 
C2 
2D 
C2 
C9 



18 
Al 
64 



80 
70 
F5 
70 



F6 
03 
CO 

• 
BC 



OF 



Fb FF 



FF 



FF 



; DRL 
DEhAl 



; DEL 

; TIM 

;♦*♦♦ 
DELAY 



AYO - PAUSE FOR 1 

EQU $ 

MVT A,MAXRUW+1 
CALL DISLN2 
MVI LrlOO 

AY - DELAY 10 MIL 
ES COUNT XN L 

Egu $ 

MVI A,SETROM 

OUT PRUCSR 

LDA PRCCTL 

OUT PROCSP 



SECOND * 

; REMOVE CURSOR AND 
; RE-ENABLE RESEl KEY 
; DELAY FOR 1 SECOND 

LISFCONDS ♦ 

* 



;PfcSET THE TIMER 
;RES1GRE PROCESSOR STA 



TE 



DLiOlO 



DLY020 



Egu 

XRA 

STA 

EQU 

HLT 

LDA 

CPI 

JNZ 

DCR L 

JNZ DLYOIO 

RET 



$ 

A 

INTFLG 

S 

INTFLG 
TMRINT 
DLY020 



;CLEAR THE INTERRUPT FLAG 



;SLEEP UNTIL INTERRUPTED 

;GfcT INTERRUPT FLAG 

;TIMER INTERRUPT? 

;N0 - CONTINUE WAITING 
; ENOUGH TIMER INTERRUPTS? 
;N0 - CONTINUE TIMING 

;YES - RETURN 



II KM 

'5308 
5309 
5310 
53U 
5312 
5313 
5314 
5315 
5316 
5317 
5318 
5319 
5320 
5321L 
5322 
5323 
5 324 
5 325 
5326 
5327 
5328 
5329 
5330 
5331 
5332 
5333 
5334 
53 35 
533b 
5337 
533a 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5347 



LOC 

12CE 
12CE 
12CE 
12CE 
12CE 
12D1 
12D2 
12D4 
12D7 
12D8 
1208 
12D8 
12D8 
12D8 
12D8 
12DA 
12DD 
12E0 
12fc;3 
12E5 
12E8 
l2tB 
12EE 
12F1 
12F3 
12F6 
12F9 
12FC 
12FF 
1301 
1304 
1307 
1307 
1308 
1308 
1308 
1308 
1308 
1308 
130B 



OBJECT CODE 
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3A 
47 
3E 
CD 
CO 



3E 
CD 
C2 
3A 
E6 
11 
CA 
01 
3 A 
E6 
CA 
CD 
C2 
3A 
E6 
CA 
CD 

C8 



DE FF 



OC 
42 



08 
08 
99 
F8 
10 
OA 
8C 
00 
F3 
02 
OE 
8C 
22 
FA 
01 
22 
71 



48 
12 

FF 

00 

15 

40 

FF 

• 

13 

19 

13 

FF 

13 
17 



; <F> - SEND FUNCTION 



SNDCD2 



EQU 

LDA 

MOV 

MVT 

CALL 

RNZ 



lODATA 
B,A 

A,SNDFCT 
UCMCTL 



DATA ♦ 

;GET ACCUMULATED VALUE 
;PUT CODE INTO B-PEGISTER 
;SET DATA COMM CONTROL CODE 
; PERFORM FUNCTION 
;EXTT IF FUNCTION NOT DONE 
OTHERWISE, SEND SCREEN DATA 



DISPLAY SEND * 



DPSEND 



Egu 

MVI 
CALL 
JNZ 
LDA 
AN I 

Lxr 

JZ 
LXI 

LDA 

AN I 

JZ 

CALL 

JNZ 

LDA 

ANI 

JZ 

CALL 

RZ 



A,CKIOKY 

ZK6CTL 

DC TEST 

CMFLGS 

REMSET 

D,(RCKYCD 

iOKEYS 

BrSENTER 

MDFLG2 

BLK^SDF 

DPS200 

CHKSFK 

DPS220 

KBJMP2 

AUTTHM 

OPS220 

STTER.M 



01 00 40 
C3 D5 16 



;♦»*♦♦♦♦:♦♦»♦ ♦♦'♦'♦♦I'*** 
; FIRST TRANSMIT CHAR 
; TRANSFER PENDING 

DPSlOO EQU S 

LXI BrSENTER 
JMP SBLXFl 



;I/0 CONTROL KEY DOWN ALSO? 
;Y£S - DO DATA CONiM SELF-TES 
;GET COWMGN FLAGS 
;PEMOTE ENABLED? 
-ENTRCD)*2;CSET '^EY INDEX) 
;NU - PERFORM RECORD COMMAND 
;YES - SET XFR PENDING FLAG 
;N0 - GET TERMINAL MODE FLAG 
; BLOCK MODE ENABLED? 
?N0 - DO CHARACTER MODE STAR 
;S0F1 KEi MODE? 
;YES - DON'T SET TERMINATOR 
;YES - GET KEYBOARD JUMPERS 
JAUTO TERMINATE ENABLED? 
;NQ - DO DON'T MOVE CURSOR 
;YES - SET NON-DISPLAYING 

TERMINATOR 
;EXIT IF NOT SUCCESSFUL 

ACTER LOCATED - SET ♦ 
FLAG * 

;SET B,C XFR PENDING FLAG 
;FOR BLOCK MODE TRANSFER 



-76 



13255-^0003 
ITEM r.oc 
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5349 
5350 
5351 
5352 
5353 
5354 
5355 
5356 
5357 
5358 
5359 
5360 
5361 
5362 
5363 
5364 
5365 
5366 
5367 
5368 
5369 
5370 
5371 
5372 
537 3 
5374 
5375 
5376 
5377 
5378 
5379 
5380 
5381 
5382 



130E 
130E 
130E 
130E 
130E 
130E 
1311 
1313 
1315 
1318 
1318 
131B 
131B 
13 IE 
131F 
1322 
1322 
1322 
132? 
1322 
1322 
1325 
1328 
132A 
132B 
132E 
1331 
1331 
1331 
1331 
1331 
1334 
1337 
1338 



CD 
3A 
E6 
CO 
CD 
CA 



CD 
CD 
CO 
C3 



3 A FB FF 

E6 CO . 

EE 40 . 

C4 24 04 

CD CD 16 

CD 76 19 

CO . 

C3 C8 21 



D5 
70 
01 

5F 
IB 



F4 
76 



16 

FF 



10 
13 



17 
19 



SOURCE STATEMENTS PAGE 

AUTO TERMINATOR JUMPER NOT REMOVED - DO ♦ 
NORMAL DATA ENTRY FROM DISPLAY * 



154 



DPS200 



DPS210 



DPS2i5 



EQU 
LDA 
AN I 
XHI 
CNZ 

Eyu 

CALL 

EQU 

CALL 

RNZ 

JMP 



KBJMPP ;GET 
HNDSHKfDC2SND 



KEYBOARD JUMPERS 1 



HNDSriK 

CHKCTl 

$ 

SRLXFA 

$ 

CHKFMS 

CRRETl 



; HANDSHAKE ENABLED? 

;N0 - SET BLOCK TRIGGER 

;SET TRANSFER PENDING FLAG 

; FORMAT/SOFT KEY DEFINE MODE 
;YES - DON'T MOVE CURSOR 
;N0 - PUT CURSOR AT BEGINMN 
OF LINE CA = 0) 



SET KEYBOARD BLOCK TRANSFER 



C8 21 



DPS220 EgU 
CALL 
LDA 
AN I 
RNZ 
CALL 
JZ 

; f 4: « 3tL « 4^ 3|( 4l ^cf 

; DPSENl - 

. :)[ 4c f 4; 4. ;^ « % 4: 41 

DPSFNl E9U 
CALL 
CALL 
RNZ 
JMP 



$ 

SBLXFl 
MFLGS 
5DC2/256 

CKLNMD 
OPS215 

HOME CURSO 
♦ft******* 

$ 

XMOHME 

CHKFMS 

CRRETl 



;SET BLOCK MODE XFR PENDING 

;G£T TRANSFER PENDING FLAGS 

;DC2 TO BE SENT? 

;yES - DON'T MOVE CURSOR 

;LINE MODE? 

;YES - SET CURSOR IN LINE 

R FOR TRANSMISSION * 



;H0ME CURSOR 
; FORMAT/SOFT KEY 
;YES - RETURN 
;N0 - SET CURSOR 



DEFINE MODE 



TO COLUMN 



iTfc:M 

53B4 

5385 

538b 

5387 

5388 

5389 

5 390 

5391 

5392 

5393 

5394 

5395 

539b 

5397 

5398 

5399 

5400 

5401 

5402 

5403 

5404 

5405 

5406 

5407 

5408 

5409 

5410 

5411 

5412 

5413 

5414 

5415 

5416 

5417 

5418 

5419 

5420 

5421 

5422 

5423 

5424 



LOG 

133B 

1338 

133B 

133B 

133B 

133B 

133B 

13 38 

133B 

133B 

133B 

133B 

133E 

1341 

1343 

1346 

1346 

1348 

134B 

134E 

134«? 

134E 

134E 

134C 

1351 

1354 

1357 

135A 

135D 

135D 

1350 

1350 

1350 

1360 

1361 

1364 

1367 

136A 

136D 

1370 

1373 
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DPSGO - SfcND DISPLAY TO DATACOM 



CD 
C2 

32 



CD 
DA 
CD 
02 
C3 



FA 
47 
CD 
CA 
CD 
CA 
3A 
CD 
C3 



9C 
8A 
FF 
6D 



3E OD 
CD 08 
DC CI 



2C 
5D 
CI 
4K 
Bl 



59 
99 
78 
76 
03 
CI 
46 



25 
13 

• 
FF 



48 
17 



24 
13 
17 
13 
13 



8A 13 



10 
13 
19 
13 
50 
17 
13 



ENTRY: CURCOL,CUHHUW SET TO STAPTTwG 
LOCATION 



EXIT 



ALL PEGISTERS DESTROYED 



OPSGu 



WVI 

STA 
DSGOIO EQII 



Egu $ 

CALL INITDG 
JWZ USG200 

A,STPXFR 

TRHFCT 

$ 

A^STCHST 
CALL ZKBCTL 
CC XPUTDC 



;IN1T DISPLAY GET ROUTINE 
; TERMINATE IE NO CHARACTERS 
;5ET TERMINATOR FUNCTION TO 
; TERMINATE TRANSFER 

;SET CHARACTER SET FOR 

; FOREIGN TERMIJ'^ALS? 
;YES - OUTPUT SI /SO 



OUTPUT CHARACTERS FROM DISPLAY 



DSG020 EQU $ 

CALL GETDSP 
JC USGIOO 
CALL XPUTDC 
JNC 0SG020 
JMP DSG230 



;any character? 

;N0 - CHECK TERMINATION 

jyes - transmit the characte 
/continue if no data comm er 
;else, terminate output 



NON-CHARACTER FOUND - CHECK TERMINATION 

DSGIOO Egu $ 

JM DSG2aO ;END of DISPLAY - TERMINATE 

MOV B,A ;SAVE EXIT STATUS 

CALL GTMODE ; PAGE MODE ENABLED? 

JZ DSG210 ?N0 - END wITH CRtLF) 

CALL CHKFMT ; FORMAT MODE? 

JZ DSGUO ;N0 - SEND CR AND LF 

LDA RECSEP ;YES - END WITH RECORD 

CALL XPUTDC ; SEPARATOR 

JMP DSGOIO /CONTINUE THRU DISPLAY 



13255-90003 



ITEM 

5426 

5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 

5435 

543t> 

5437 . 

5438 

5439 

5^40 

5441 

5442 

5443 

5444 

5445 

5446 

5^47 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 

5461 

5462 

5463 

5464 

5465 

5466 

5467 

5468 



LOC 

1376 

1376 

1376 

1376 

137 6 

1378 

137B 

137E 

1381 

1384 

1387 

138A 

USA 

138A 

138A 

138A 

1380 

1390 

1393 

1396 

1399 

1399 

1399 

1399 

1399 

139C 

139F 

13A2 

13A4 

13A7 

13A7 

13A7 

13A7 

13A7 

13AA 

13AA 

13AD 

l3Ae 

13B1 

1361 

13B4 

13B7 

13BA 
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i I ' f EOL FOR NON-FORMAT PAGE MODE - SEWP CR AND LF 



3E 
CD 
CD 
CD 
CC 
CD 
C3 



3A 
CD 
CD 
CA 
C3 



CD 
C2 
3 A 
E6 
C4 



OD 
CI 
OA 
8C 
6F 
9£ 
46 



04 
CI 
59 
A7 

AA 



76 
A7 
F3 
04 
6F 



CD F6 

CD 20 

AF . 

32 6D 

• • 

01 FF 

CD 70 

C3 23 



17 
17 
19 
OA 
OF 
13 



50 
17 
10 
13 
13 



19 
13 

FF 

• 
OA 



16 

12 

FF 

■ 

BF 

10 

20 



DSGllO EQl) S 

MVI A,CP ;SEND RETURN 

CALL XPUTDC ;AND 

CALL SDTRM3 ?LINE FEED 

CALL CHKSFK ; SOFT KEY DEFINE MODE? 

CZ LNFEED ;N0 - DO LINE FEED 

CALL DISLNl ; SET DISPLAY CURSOR ROW 

J^5P DSGOIO ;C0NT1NUE THRU DISPLAY 



END Ot DISPLAY - SEND TERMINATOR 



DSG200 



; NON- 
DSG210 



J SE»^^D 
DSG220 
DSG225 



DSG230 



Eyu 

LDA 
CALL 
CALL 
JZ 
J MP 

♦ ♦♦♦♦ 
PAGE 

EQU 

CALL 

JNZ 

LDA 

ANT 

CNZ 

CR(L 

♦ *♦♦♦ 

Egu 

CALL 

Egu 

CALL 

XRA 

STA 

EQU 

LXI 

CALL 

JMP 



6LKTRM 
XPUTDC 
GTMODE 
DSG220 
DSG225 

MODE TERM 

j^ f « ;4r f f « ]*: f 
$ 

CHKFMS 
DSG220 
MDFLG2 
AUTOLF 
LNFEED 

F) TERM IN 

t ;f 4i 4: ♦ * t ♦ * 
S 

SDIRMl 

$ 

SDTERl 

A 

TRMFCT 

$ 

B,-1-S£N 

CLBLXF 

CRADVl 



;SEND BLOCK TERMINATOR 

;CHARACTER 
;PAGE MODE? 
;N0 - SEND CR(LF) 
;YES - CLEAR XFR PENDING 

INATION - SEND CR(LF) * 
^^^t***** ♦♦♦♦♦♦*♦♦♦*♦*♦*♦ 

;FOPMAT/SOfT KEY MODE? 
;YES - DON'T DO LTNE FEED 
;N0 - GET SOFT MODE FLAGS 
;6UT0 LINE FEED ENABLED? 
;YES - DO LINE FEED 

3)1 4; ]^ :^ 3|i t 

ATOP * 



FLA 



;SEND CRCLF) 

;MARK end of OUTPUT BLOCK 
;RESET TERMINATOR FUNCTION 
;T0 DELETE TERMINATOR 



TER 



;CLEAR ENTER PENDING FLAG 
;CLEAR CURSOR ADVANCE FLAG 
AND EXIT 



ite:m 

5470 
5471 

5472 
5473 
547 4 
5475 
5476 
5477 
547 8 
5479 
5480 
5481 
5482 
5483 
5484 
5485 
5486 
5487 
54B8 
5489 
5490 
5491 
5492 
5493 
5494 
5495 



LOC 

13BA 
13BA 
13BA 
13BA 
13BA 

nsA 

138A 
13BA 
13BA 
13BA 
13BA 
13BA 
13BA 
13BA 
13BA 
13BC 
13BF 
13BF 
13C0 
13C0 
13C0 
13C0 
13C3 
13C4 
13C5 
13C6 
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A20UTB - PUT BYTE INTO OUTPUT BUFFER ♦ 

ENTRY: A = BYTE TO BE OUTPUT 

EXIT ; H = BASEH 

B2DEMD = B2DEND + 1 
D,E,L DESTROYED 

ECOUTB - OUTPUT <ESC> 

ENTRY: B = SECOND CHARACTER iW ESCAPE SEQ 



21 

34 
6E 
77 
C9 



3E IB 
CD CO 



78 



B FF 



ECOUTB EgU $ 

MVI A, ESC 
CALL A20UTB 

B20UTB EQU $ 

mv 



A2UUTB EgU 
LXI 
INR 
MOV 

MOV 

PET 



A,B 



$ 



H,B2DEND 

M 

L,M 

M,A 



;SET A TO ESC 

;PUT ESC INTO OUTPUT BUFFER 

;PUT SECOK'D CHAR INTO A-REG 
FALL INTO OUTPUT ROUTINE 



; INCREMENT TO NEXT POSITION 
;GET NEW ADDRESS 
; STORE THE BYTE 
/RETURN 



13255-90003 



ITEM 

5497 

5498 

5499 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 



LOG 

13C7 

13C7 

13C7 

13C7 

13C7 

13CA 

I3CD 

i3CF 

13D2 

1303 

13D4 

13D5 

13D5 

1305 

13D7 

13DA 

13DC 

13DC 

13DC 

13DC 

13DC 

13DC 

13DC 

13DC 

13DC 

13 DC 

13DF 

i3eo 
i3e;i 



Pev AUG-01-76 ^..»«.- 

'oBJECl'cnOE SOURCE STATEMENTS ^___^ 

====== ^"Til^^f ♦♦^♦^♦♦♦^^♦♦♦f ♦*♦>♦♦****♦♦ 

. ENTLCL - ENTER LOCAL MODE ♦ 

a • • r 



PAGE 158 



CD 
CA 
3E 
21 
B6 
77 
C9 



3E 
CD 
3E 



21 
A6 
77 
C9 



ENTLCL 



4D 
05 
08 
F3 



04 
42 
EF 



F8 



10 
13 

FF 



FF 



EQU 

CALL 

JZ 

MVI 

LXI 

OKA 

MOV 

RET 



CKEDIT 

ENLIOO 

A, REMOTE 

H,MDFLG2 

M 

M,A 



?ED1T MOPE ENABLED? 

;N0 - GO INTO LOCAL MODE 

;YES - INHIBIT TRANSITION 

; LOCAL woPt 
; FORCE REMOTE FLAG ON 

; RETURN 



TO 



tNLlOO EgU l^^^^^^^^ .gj,^ DATACOM FOR LOCAL 

CALL DCMCTL fOPEHATION _ 

MVI A,3770-REMSE1 ;CLEAH REMOTE moDL FLAG 

^^♦♦♦♦♦♦♦* ♦♦♦♦*♦*»♦♦♦*♦ »*♦♦*♦* 
CLCMFL - CLEAR COMMON FLAGS * 

:».*♦♦♦♦»♦♦***♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 

ENTRY; A = 377B-FLAG BIT TO BE CLEARED 



EXIT : 

CLCMFL EgU 
LXI 
ANA 
MOV 
RET 



A,H,L DESTROYED 



H,CMFLGS 

M 

M,A 



;CLEAR THE FLAG BIT 

; STORE THE NEW SETTINGS 

; RETURN 



ITEM 



LQC 



OBJECT CODE 



SOURCE STATEMENTS 
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5527 
5528 
5529 
5530 
5531 
5532 
55 33 
5534 
5535 
5536 
5537 
5538 
5539 
55 40 
5541 
5542 
5543 
5544 
5545 
554b 
5547 
5548 
5549 
5550 
5551 
5552 
5553 
5554 
5555 
5556 
5557 
5558 
5559 



13E2 
13E2 
13E2 
13E2 
13E2 
13E5 
13E8 
13EA 
13ED 
13EE 
13EF 
UFO 
UFO 
UFO 
UFJ 
13F4 
13F6 
UF9 
UFB 
UFE 
1400 
1400 
1400 
1400 
1400 
1400 
1400 
1400 
1400 
1400 
1403 
1404 
1405 



CD 
CA 

3e 

21 
Ab 
7 7 
C9 



97 
32 
3E 
CD 
3E 
CD 
3E 



21 

B6 
77 
C9 



4D 
FO 
F7 
F3 



70 
FC 
AA 
03 
40 
10 




3 

FF 



FF 



8 FF 



EWTHEM - ENTER REMOTE MODE 



; 

ENTREM 



EQU $ 

CALL CKEDIT ?EDIT MODE ENABLED'^ 

JZ ENRIOO ;N0 - GO INTO REMOTE MODE 

MVI A,377Q-PEMOTE ;YES - INHIBIT 

LXI H,MDFLG2 ; TRANSITION TO REMOTE MODE 

ANA M ; FORCE REMOTE FLAG OFF 

MUV M,A 

RET .'RETURN 



ENRIOO EQU $ 

SUB A ;CLEAP THE DATA PENDING 

STA MFLGS ; FLAGS 

MVI A,3770-SBINRY-SDVREC 

CALL CLRMF2 ;CLEAR BINARY RECORD PENDING 

MVI A,SETREM ;SET DATACOM FOR REMOTE 

CALL DCMCTl ; OPERATION 

MVI A,REMSET ; SET REMOTE MODE FLAG 

; STCMFL - SET COMMON FLAGS * 

; ENTRY: A = FLAG BIT TO BE SEI 

; EXIT : A,H,L DESTROYED 

STCMFL EQU $ 

LXI H,CMFLGS 

ORA M ;ADD bit TO "CMFLGS" 

MOV M,A ; STORE NEW SETTINGS 



RET 



;RfcTURN 



13255-90003 
ITEM LUC 



5561 


1406 








5562 


1406 








5563 


1406 








5564 


1406 








5565 


14U6 








5566 


14U6 








5567 


1406 








5568 


1406 








5569 


1406 








5570 


1406 








5571 


1406 








5572 


1406 








5573 


1406 








5574 


1406 








5575 


1406 








5576 


1406 








5577 


1406 








5578 


1406 








5579 


1406 








5580 


1406 


^9 






5581 


140 7 f 


n 






5582 


1408 r 


)to 


DF , 




5583 


14UA :; 


U 


A6 F 


'f 


5584 


140D C 


:d 


F6 ( 


)A 


5585 


1410 




• I 




5586 


1410 


> 


• « 




5587 


1410 


t 


• a 




5588 


1410 


w 


• < 




5589 


1411 L 


)6 


08 . 




5590 


1413 ? 


>F 


• < 




5591 


1414 


>4 


• t 




5592 


1415 C 


:d 


6D 1 


.9 


5593 


1418 -, 


>2 


A4 f 


'F 


5594 


141B 


• 


• 




5595 


141B ] 


LA 


• 1 




5596 


141C F 


'E 


4e , 




5597 


HIE r 


)A 


32 1 


14 


5598 


1421 : 


JE 


10 , 


1 


5599 


1423 C 


:a 


11 \ 


17 


5600 


1426 C 


:o 


59 J 


10 


5601 


1429 t 


)i 


00 ; 


?0 


5602 


142C C 


:a 


CD ] 


16 


5603 


142F C 


:3 


D5 ] 


16 
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FCTKEY - FUNCTION KEY PRESSED (F1-F8) 

entry: C = FUNCTION KEY CODE (360-367B) 

EXIT : DFLGS(FCTK2D) = 1, FUNCTION KEY 
DATA XO BE USED AS NORMAL 
KEYBOARD CHARACTERS 
DFLGS(FCTK2D) = 

MFLGS(SFCTK^) = 0, KEY v^AS 
INTERPRETED LOCALLY ONLY 
MFLGS(SFCTKY) = 1, DATA WAITING 
FOR BLOCK TRANSFER TRIGGER TO 
SEND TO CPU 
ALL REGISTERS DESTROYED 



;COJ^PUTE NUMBER OF LINES TO 
;SEAkCh: 

; 2* (FUNCTION NUMBER) - 1 

; LOCATE THE ATTRIBUTE LINE 

PERFORM FUNCTION 

;COMPUTE LOCATION OF 
; ATTRIBUTE CODE 



FCTKEY EQU 


$ 


MOV 


A,C 


ADD 


A 


SUT 


FCTADJ 


LXI 


H,SFTKYS 


CALL 


MLKSCl 


; DEFINITION FOUND 


MOV 


kfU 


SUI 


ATBLOC 


MOV 


ErA 


«QV 


D,H 


CALL 


CHAIN 


SHLD 

* 


CURFKY 


LDAX 


D 


CPI 


N 


JC 


FCT200 


MVI 


A,FCTK2D 


JZ 


SETDFL 


CALL 


GTMODE 


LXI 


B,SFCTKY 


JZ 


SBLXFA 


JMP 


SBLXFl 



GET ADDRESS 
SAVE FIRST C 

TO FORCE SK 
GET ATTRIBUT 
NORMAL MODE? 
< - DO LOCAL 

;(SET DATA 
YES - SET NO 
> - SET BLOC 

;FOR FUNCTI 
SET FLAG FOR 

;FLSE SET F 



OF DATA LINE 
HARACTER ADDRES 
IP OVER "ENDPR" 
E CODE 

ONLY 
XFR FLAG) 
PMAL KEY XFR 
K TRANSFER 
ON KEY 

NOT PAGE MODE 
OR PAGE XFR 



ITEM 



LOC 



OBJECT CODE 






5605 
5t>06 
5607 
5608 
5609 
5610 
5611 
5612 
5613 
5614 
5615 
5616 
5617 
5618 
5619 
5620 
5621 



1432 
1432 
1432 
1432 
1432 
1435 
1436 
1436 
1439 
143C 
143F 
1441 
1444 
1447 
1449 
144C 
144E 



CD 

C8 

32 

CD 
3A 
FE 
C2 
3A 
E6 
CA 
OE 
C3 



42 



9C 
50 
9C 
OD 
32 
F3 
04 
32 
OA 
36 



FF 

03 

FF 

• 

14 

FF 

14 

14 



SOURCK STATEMENTS 
; PERFORM LOCAL ONLY 
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FCT200 



i'CT210 



EQU 

CALL 

RZ 

EQU 

STA 

CALL 

LDA 

CPI 

JivZ 

LDA 

AHl 

JZ 

MVI 

JMP 



GTFCTK 

$ 

CHAR IN 

CHINT 

CHAR IN 

CR 

FCT200 

MDFLG2 

AUTOLF 

FCT200 

C,LF 

FCT210 



KEY FUNCTION ♦ 

;GET FUNCTION KEY DATA 
;N0NE left - RETURN 

?SAVE FUNCTION KEY CHARACTER 

; PROCESS DATA LOCALLY 

; RECALL FUNCTION CHARACTER 

;IS IT A RETURN? 

;N0 - DO THE NEXT BYTE 

;YES - GET HARD MODE FLAGS 

;autu line feed enabled? 
;n0 - do next function byte 
;yts - perform line feed 

;FUNCTIOiM 



13255-90003 
ITEM LOC 
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5623 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 
5638 
5639 
5640 
5641 
5642 
5643 
5644 
5645 
5646 
5647 
5648 
5649 
5650 



1451 
1451 
1451 
1451 
1451 
1451 
1451 
1451 
1451 
1451 
1451 
1451 
1454 
1457 
145A 
145C 
145D 
145D 
145D 
145D 
145D 
1460 
1463 
1463 
1466 
140 7 
146A 
146D 



01 
CD 
3A 
E6 
CO 



CD 
CA 

21 

BE 
CA 
CD 
C3 



FF 
70 
6fc; 
10 



42 
ID 

04 

• 

ID 

CI 

5D 



DF 



FF 



FKEYGD - TRANSMIT FUNCTION KE)f 

ENTHY; DON'T CARE 

EXIT : MFLGSICSFCTKYJ = 

ALL REGISTERS DESTROYED 



FKEYGO 



Egu $ 

LXI B,-1-SFCTKY 
CALL CLBLXF 
LDA DFLGS 
FCTK2D 



AN I 
RNZ 



; CLEAR FUNCTION KEY 
; PENDING FLAG 
;GET DATA TRANSFER FLAGS 
; OPERATE AS NORMAL KEY? 
;YES - RETURN 10 VtMt LOOP 



TRANSMIT FUNCTION KEY DATA 



FKGOIO 



Egu 

CALL 

JZ 

LXI 

CMP 

JZ 

CALL 

JMP 



GTFCTK 
SDTERM 

H,BLKTRM 

M 
SDiERM 

XPUTDC 
FKGOIO 



;GET NEXT FUNCTION KEY CHAR 
?5END TERMINATOR IF NO MORE 
DATA 

? BLOCK TERMINATOR CHARACTER? 
;YES - OUTPUT TERMINATOR 
;N0RMAL DATA - TRANSMIT IT 
;D0 NEXT CHARACTER 



ITEM 



LOC 



OBJKCT CODE 






5652 
5b53 
5654 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
5662 
5b63 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
5671 
5672 
5673 
5674 
56 75 
5676 
5677 
5678 
5679 
5680 
5681 
5682 
56Bi 
5684 
5685 
5686 
5687 
5688 
5689 
5690 
5691 
5692 
5693 
5694 
5695 
5696 
5697 
5698 
5699 
5700 
5701 
5702 
5703 



1470 
1470 
1470 
14 70 
1470 
1472 
1475 
1476 
1478 
147B 
147B 
147B 
147B 
147B 
147D 
147D 
147F 
1482 
1485 
1488 
148 8 
1488 
1488 
1488 
148B 
148E 
1491 
1494 
1494 
1497 
149A 
149C 
149D 
149D 
149D 
149F 
14A2 
HAS 
14A7 
14AA 
14AA 
14AA 
14AA 
14AA 
14AD 
14B0 
14B3 
14B6 
14B6 
14B9 
14BC 
14BC 



3E 
CD 
CO 
06 
C3 



3E 
CD 
21 
C3 



CD 
CA 
CD 
C4 

CD 
3A 
FE 
CO 



3E 
CD 
CD 
3E 
C3 



CD 
CA 
CD 
C4 

s 

CD 
C3 



08 

42 

• 

FF 

7D 



06 00 



01 
OE 
8C 
Al 



8C 

94 

A6 

8D 

• 

B6 

69 

IB 



09 
11 
95 
01 
11 



8C 
B6 
A6 
8D 

• 

lA 
23 



48 
27 

04 



19 
14 
12 
OC 

14 

FF 



50 
04 

48 



19 
14 
12 
OC 

23 

20 
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; MNMDON - MONITOR MODE ON 



MNMDUN 



EQU 

MVI 

CALL 

RNZ 

MVI 

JMP 



A,SETMON 
DCMCTL 

B,377Q 
FDOIOO 



;SET DATACOM MONITOR 

;MOOE 
;DON'T MONITOR IF NOT SET 
;SET TU BLINK LED 
;SET FUNCTION TABLE 



; FDISON - TURN ON FUNCTION DISABLE MODE * 

.f5»t*4ttf)|(;»t#*.:^;|^*»tjff;|tf4t*:|i*4t ♦♦♦♦♦♦♦ ♦*♦*****♦♦ 

FDISON EQU S 



FDUIOO 



MVI 

EWU 

MVT 

CALL 

LXT 

JMP 



B,0 



SET FOR NO BLINK 



?TURN ON DISPLAY FUNCTIONS 

;flag 
;set h,l to new range table 
;set range table and exit 



ArDSPFNC 
ZSTMDl 
H,FDISTB 
ESCENl 

; FDISOF - TURN OFF FUNCTION DISABLE * 

FDISOF EQU $ 



FOFOIO 



CALL 

JZ 

CALL 

CNZ 

EQU 

CALL 

LDA 

CPI 

RNZ 



CHKSFK 
FOFOIO 
DCXB2D 
SFKYOF 

$ 

FDESCl 

LCHAR 

ESC 



;SOFT KEY DEFINE MODE? 

;N0 - DO NURMAL PROCESSING 

; INPUT FROM KEYBOARD? 

;W0 - RESTORE NORMAL DISPLAY 

; DISPLAY INPUT CHARACTER 

;V«AS THE LAST CHAR <bSC>? 
;N0 - RETURN 

YES - TURN OFF DISPLAY FCTS 



DFCTOF 



EQU 

MVI 

CALL 

CALL 

MVI 

JMP 



A,SETNRM ; RESTORE DATACOM 
2DCCTL ; NORMAL MODE 
ESCEND ;YES - TURN 
A,DSPFNC ;TURN OFF 
ZCLMDl ;flag 

; FUNCTION DISABLE ESCAPE ♦ 



TO 



OFF DISABLE MODE 
DISPLAY FUNCTIONS 



FDESC 



FDESCl 



EQU 

CALL 

JZ 

CALL 

CNZ 

EQU 

CALL 

JMP 



CHKSFK 

FDESCl 

DCXB2D 

SFKYOF 

$ 

DSPCHR 

C RAD VI 



;SOFT KEY DEFINE MODE? 

;N0 - DO NORMAL PROCESSING 

; INPUT FROM KEYBOARD? 

;N0 - RESTORE NORMAL DISPLAY 

/DISPLAY THE ESCAPE CODE 
; RESET CURSOR ADVANCE FLAG T 
FORCE ANALYSIS OF NEXT 
INPUT CHARACTER FOR Z 



13255- 


90003 Rev 


AUG- 


■01-76 








===:= = ==£==:sss3s=5=:sss=ssxs=s: 


sssss 


=S5S=SXS« 


ITEM 


LOC OBJECT CODE SOURCE 


STATEMENTS 


sss:=5=; 




rsssrrsirss 


:===:rsss==x: 


:s=s = 


SS==Z=Z3S 


5705 


14BC 


t a 


t < 


;Tl^:lf:l^4t^ill.:^44^:^^^^^t**** 


57 06 


14BC 


, , 


> « 


; FUWCTIUN 


TABLE FOR 


5707 


14BC 


» • 


> « 


;t^^t:t^4t************* 


5708 


14BC 


, , 


» t 


FNCTAB 


EQU 


$ 


5709 


14BC D8 12 , 




Dm 


DPSEND 


5710 


14BE 3B 12 , 




DW 


BRKDC 


5711 






DW 


DFCTGF 


5712 






Dw 


lOKEYS 


5713 


14C4 8C 15 , 




Dw 


iOKEyS 


5714 


14C6 8C 15 , 




Dii 


lOKEYS 


5715 


14C8 8C 15 . 




Ow 


lOKEYS 


5716 


14CA 8C ] 


15 , 




DW 


lOKEYS 


5717 


14CC 8C 15 , 




Dw 


lOKEYS 


571b 


14CE 






» 






5719 


0098 






ENXRCD 


E^U 


2300 


5720 


0090 






KCKYCD 


EQU 


2350 


5721 


009E 






6LKYCP 


EQU 


2360 


5722 


OOAO 






CTRDKY 


Egu 


2400 


5723 


0098 






FNCLWR 


Egu 


23ug 


5724 


OOAl 






FNCLIM 


Egu 


2410 


5725 


14CE 






« 
> f 






5726 


008G 






ESCSU 


Egu 


2160 


5727 


00E4 






fcSCLwD 


EQU 


3440 


5728 


OOFO 






F I CODE 


EQU 


3600 


5 729 


00t7 






F8C0DF 


Egu 


3670 


5730 


OlEO 






FCTBUl 


EgU 


F I CODE* 2 


57 31 


FFDF 






FCTADJ 


Egu 


-FCTADl/ 


5732 


OOFO 






STF0R2 


Egu 


3750 


5733 


OOFE 






STFORl 


Egu 


3760 


5734 


OOFF 






ENHNCF 


Egu 


3770 


5735 


14CE 






•t******** ♦♦♦*♦♦*♦*♦ 


5 7 36 


14CE 






; FUNCTION 


ADDRESSES 


5737 


14CE 






f:^tt>tf^**t*^ ********** 


5738 


14CE 






lOKYTB 


Egu 


$ 


5739 


14CE ( 


)2 : 


28 




Dw 


lOCKEY 


5740 


14D0 ( 


)5 : 


28 




DW 


REDKEY 


5741 


14D2 ( 


)B : 


28 




Dw 


RECKEY 


5742 


14D4 ( 


)E : 


28 




Dw 


SELKEY 


5743 


14D6 ] 


14 : 


28 




Dw 


CONDTN 


5744 


14D8 ( 


)8 : 


28 




Dw 


CTLPED 






PAGE 164 



;l^:$H.^4:^yifii^:^:^*j^7l^iifi**^l.******** 

TERMINAL FUNCTION KEYS ♦ 

ji^:^jlli'^f.}f.iif:fi:^:^^:^i^-ilf ************* 



230 - ENTER KEY 

231 - BREAK KEY 

232 - DISPLAY FUNCTIONS OFF 

233 - I/O CONTROL KEY 

234 - READ KEY 

235 - RECORD KEY 

236 - SELECT KEY 

237 - CONDITION TAPES 
240 - (CONTROL) READ KEY 



;ENTtP KEY CODE 

; RECORD KEY CODE 

; SELECT KEY CODE 

;CONTROL READ KEY CODE 

; FUNCTION CODE LOwER LIMIT 

;FUtJCTIOiM CODE UPPER LIMIT 

;<ESC>-<SO> CODE 

;<ESC>-<LOWER CASE D> CODE 

;F1 CODE 

;Fb CODE 

; FUNCTION CODE ADJUSTMENT 
256*256+FCTADl-l ?FACTOR 

;SeT FOREIGN MODE STEP 2 

;SET FOREIGN MODE STEP I 

; ENHANCE DISPLAY FUNCTION 
](c » ^ * ^ :r ♦ =f ♦♦*♦*♦ * 
FOR 1/0 KEYS * 

3llii(c44 Iff: :¥■********* 

;I/0 CONTROL KEY 

;read key 

; RECORD KEY 
; SELECT KEY 
/CONDITION TAPES 
; (CONTROL) READ KEY 



ITEM 



LOC OBJECT CODE 
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5746 
5747 
5748 
5749 
5750 
5751 
5752 
5753 
5754 
5755 
5756 
5757 
5758 



14DA 
14DA 
14DA 
14DA 
14DA 
14DE 
14DE 
14E0 
14E0 
14E4 
0008 
OOOE 
0002 



; DISPLAY STRINGS FOR SOFT KEY DISPLAY 

! ! ] AT6LIN EQU $ 

CO 20 IB DB EOL,ABLNK,ESC,ENDPH 

CC CO ! ' DB EOL,STPR 

ATBOIO EQU $ 

54 CS CI DB *T',SFKYAT,ENDPR, • ' 

80 30 66 DB NORMAL, '0 *, I46g, INVR5, 

ATBLOC EQU $-ATB010-l ; ATTRIBUTE LOCATION IN BLK 

ATBLEN EQU $-ATBHN-l ; ATTRIBUTE LINE LENGTH 

CHRLOC EgU 2 ;CHARACTER LOCATION IN STRIN 



13255-90003 



5760 
5761 
5762 
5763 
5764 
5765 
5766 
5767 
5768 
5769 
5770 
5771 
5772 
5773 
5774 
5775 
5776 
5777 
57 7 8 
5779 
5780 
5781 
5782 
5783 
5784 
5785 
5786 
5787 
5788 
5789 
5790 
5791 
5792 
5793 
5794 



14E9 
14E9 
HE9 
14E9 
I4e9 
14E9 
14E9 
14EC 
14ED 
14 ED 
HEF 
14F0 
14F1 
14F2 
14F4 
i4F5 
14F6 
14F8 
i4F9 
14FA 
14FA 
14FA 
14FA 
14FA 
14FA 
14FA 
14FA 
14FA 
14FA 
14FA 
14FC 
14FC 
14FD 
14FE 
1501 
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FNPTAB - FIND TAB MASK * 

EXIT: L,H = ADDR OF BYTE CONTAINING TAB BIT * 

A = MASK FOP TAB BIT * 

FNOTAB EQU $ 

3A CI FF LDA CURCUL ;GET CURSOR COLUMN 

47 



E6 
OF 
OF 
OF 
C6 
6F 
78 
Eb 
4 7 
04 



3E 80 

07 
05 
C2 FC 
C9 . 



F8 



78 



07 



14 



MOV 


B,A 


;SAVE IN B 


FNDTBl EQU 


S 




AN I 


3 70Q 


;MASK OFF 3 LSB'S 


RFC 




; RIGHT-ADJUST MSB'S 


RHC 






RKC 






ADI 


HTBTBL 


;ADD base of TAB TABLE 


MOV 


L,A 


;SAVE IN L 


MOV 


A,B 


;GET CURSOR COLUMN 


ANI 


7 


;GET 3 LSB'S 


MQV 


B,A 


;save in B 


INR 


B 


; ADJUST BIT NUMBER 


;*♦♦♦♦♦♦♦*♦♦♦*♦*♦*♦♦♦* 


; FNDTb2 - 


SET BIT 


n ♦ 


.♦tf^*;f*»j|c*f4(*4:3«i**;f»f* 


; ENTRY: 


B = BIT 


NUMBER TO BE SET 


; EXIT : 


A = BYTfe 
B = 


; WITH BIT N SET 


FNDTB2 EQU 


$ 




MVT 


A,200Q 


;SET Bil 7 OF A 


FTBIOO EQU 


$ 




RLC 




; SHIFT LEFT 1 POSITION 


DCR 


B 


; DECREMENT BIT COUNT 


JNZ 


FTBIOU 


;CONTINUE IF NOT DONE 


RET 




; RETURN 
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ITEM 
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; EXIT FORMAT MODE ♦ 

rORMOF EQU $ 

MVI A, FORMAT ;SET BIT TO BE CliEAPED 

STA PRQFLD ;SET PROTECT FLAG FOR UNPROT 

JMP ZCLMDl ;CLEAB FORHAT MODE FLAG 



5796 


1502 


• 


• 




5797 


1502 


• 


• 




5798 


1502 


• 


« 




5799 


1502 


• 


• 




5800 


1502 


3E 


08 




5801 


1504 


32 


C2 


FF 


5802 


1507 


C3 


11 


48 
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ITEM 

5804 
5805 
5806 
5807 
5808 
5809 
5810 
5811 
5812 
5813 
5814 
5815 
5816 
5817 
5818 
5819 
5820 
5821 
5822 
5823 
5824 
5825 
5826 
5827 
5828 
5829 
5830 
5831 
5832 
5833 
5834 
5835 
5836 
5837 
5838 
5839 
5840 
5841 
5842 
5843 



l.OC 

150A 
150A 
150A 
150A 
150A 
150A 
150A 
150A 
150C 
150F 
150F 
1510 
1511 
1512 
1513 
1514 
1517 
1519 
IS 19 
151C 
151D 
151E 
151E 
1520 
1521 
1522 
1523 
1525 
1528 
1529 
152 A 
152D 
1530 
1530 
1530 
1530 
1530 
1533 
1536 
1537 
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06 ' 

11 

• 

EB 

23 

23 

7E 

B7 

CA 

05 

C8 

CD 

54 

5D 

• 

E6 

6F 

7E 

2F 

E6 

C2 

05 

C8 

CD 

C3 



CD 
C2 
3C 

C9 



AA FF 



6D 



FO 



6D 
IE 



13 

OA 



19 
15 



06 
15 



FRECNT - CHECK THE NU^^BER OF FREE BLOCKS ♦ 

EXIT: 2=F, WOT ENOUGH FREE bLOCKS ♦ 
Z=T, ENOUGH FREE BLOCKS * 

FRECNT EQU $ 

MVI B,25 ?SET DESIRED NUMBER OF BLOCK 
LXI D,FRBLKS-2 ; SET TO FREE LIST HEAD 

FRCOio Eyn $ 

XCHG ;SET H,L TO ADDRESS OF LSB 
TNX H ;PARX OF PREVIOUS LINE 

IJVX H ; POINTER 

A,M ;GET LSB OF NEXT LINE LINK 

A ;ANY more FREE BLOCKS? 

FRCioo ;no - TPy to get more 
B ; enough free blocks? 

?YES - RETURN SUCCESSFUL 
;NU - GET NEXT LINE ADDRESS 
;SAVE NEXT LINE ADDRESS IN 
;D,E 



FRC050 



MOV 

ORA 

JZ 

DCP 

RZ 

CALL 

MOV 

MOV 

FQU 

ANI 

MOV 

MOV 

CMA 

ANI 

JNZ 

DCR 

RZ 

CALL 

JMP 



CHAIN 

D,H 

E,L 

$ 

360g 

L,A 

A,M 

;a 

BLKSM 

FRCOIO 

B 

CHAIN 
FRC050 



; COMPUTE ADDRESS OF NEXT 

; BLOCK LINK 
;GET THE LSB OF THE LINK 
IS IT AN EOL LINK (LOWER 

;FOUR BITS NOT ALL ONES)? 
;N0 - GO TO THE NEXT LINE 
; ENOUGH FREE BLOCKS FOUND? 
;YES - RETURN SUCCESSFUL 
;N0 - GO TO THE NEXT BLOCK 
; CHECK FOR END OF LINE 



; NOT ENOUGH FREE BLOCKS - TRY TO GET MORE * 

FPCJOO 

;REM0VE A LINE FROM DISPLAY 
; RECOUNT IF LINE FREED 

; (FORCE NZ) 
?RETUPN FAIL OTHERWISE 



EQU 


$ 


CALL 


PTBLK 


JNZ 


FRECNT 


IwR 


A 


PET 





ITEM 


hoc 


OBJKCT 


CODE 


SOU.RCE ST A 






s=:s = 


ssssssrss 


Bsrssssssxs 


5845 


1538 


• 


• 




;4:t^-^:(lit**** 


5846 


1538 


• 


• 




; FRNCTl - 


5847 


1538 


• 


• 




•♦♦♦ft**** 


5848 


1538 


• 


• 




FRNCTl F.gU 


5849 


1538 


3fc: 


OK 




MVI 


5850 


153A 


C3 


08 


48 


JMP 


5851 


153D 


• 


• 




;*;f*^**t** 


5852 


153D 


• 


• 




; FRNCT2 - 


5853 


153D 


• 


• 




;#«4e;i(«4c«4c:^ 


5854 


153D 


• 


• 




FRWCT2 EQU 


5855 


153D 


3E 


OF 




MVI 


5856 


153F 


C3 


08 


48 


JMP 



13255-90003 Hew AUG-01-76 

TEMEi\»TS PAGE 169 

FOREIGN MODE COf^TROL 1 t<ESC>-"<") * 
ft************ ♦***♦*♦♦**♦**♦»♦*»♦*♦♦♦ 
S 

A,FRNMD1 ;SET KEYBOARD FORFIGft MODE 1 
ZKBCTL 

4L#4e:t: ************************* ******** 

FOREIGN MODE CONTROL 2 (<ESC>-">'') » 

f:(c^4;4:*;4(;(tf;(c:f4t* ************************ 
$ 

ArFRNMD2 ;SET KEYBOARD FOREIGN MODE 2 
ZKBCTL 



13255-90003 



ITEM 

5858 
5859 
5860 
5861 
5862 
5863 
5864 
5865 
5866 
5867 
5868 
5869 
5870 
5871 
5872 
5873 
5874 
5875 
5876 
5877 
5878 
5879 
5880 
5881 
5882 
5883 
5884 
5885 
5880 
5887 
5888 
5889 



LOC 

1542 
1542 
1542 
1542 
1542 
1542 
1542 
1542 
1542 
1542 
1542 
1542 
1542 
1542 
1542 
1542 
1545 
1545 
1548 
154B 
154C 
154F 
1551 
1552 
1553 
1553 
1553 
1553 
1553 
1555 
1558 
1559 



Rev AUG-01-76 

OBJECT CODE SOURCE STATEMENTS 



PAGE 170 



CD 
C2 
EB 
22 
FE 
4F 
F8 



3E 
CD 
BF 
C9 



2A A4 FF 



86 
53 

• 

A4 

80 



OB 
15 

FF 



EF 
01 



GTFCTK - GET FUNCTION KEY 

entry: DOf^'T CAPE 

EXIT : NZ - FUNCTION KEY CHAR AVAILABLE 
A = C = FUNCTlOiM KEY CHARACTER 

Z - NO FUNCTION KEY CHAR AVAILABLE 
DFLGS(FCTK2U) = 
A DESTROYED 

D-L DESTROYED 



GTFCTK 



EOU $ 
LHLD CURFKY 



CALL 

JNZ 

XCHG 

5HLD 

CPI 

MUV 

Rhi 



NXTCHO 
GTFOIO 

CURFKY 
ADEL+1 
C,A 



;GET LAST FUNCTION KEY 

CHARACTER ADDRESS 
;GET THE i^EXT CHARACTER 
;E0L link - DO ROL EXIT 

; STORE NEiN ADDRESS 
;IS CHARACTER ASCII? 

;(PUT DATA IN C-REGISTER) 
;YES - RETURN 



EOL FOUND - CLEAR FCTK2D FLAG 

GTFOIO EyU $ 

MVI A,377Q-FCTK2D 

CALL CLRDFL ; CLEAR FLAG FRON^ FLAG WORD 

CMP A ;SET Z TRUE 

RET ; RETURN 



ITEM 



LOC OBJECT CODE 



5891 


155A 


• 




5892 


155A 


• 




5893 


155A 


, 




5894 


155A 


• 




5895 


155A 


CO 


E9 1 


5896 


155D 


B6 




5897 


155E 


77 




5898 


155F 


C9 




5899 


1560 


• 




5900 


1560 


• 




5901 


1560 


• 




5902 


1560 


• 




5903 


15b0 


CD 


E9 1 


5904 


1563 


EE 


FF • 


5905 


1565 


A6 


• • 


5906 


1566 


77 


• m 


5907 


1567 


C9 


a , 



EtilRY FOR COLUMN 



13255-90003 Rev AUG 
SOURCE STATEMENTS " " PAGE*"! 

; HTBSET - TAB SET ROUTINE ♦ 

HTBSET EQU $ 

CALL FNDTAB ;GET TABLE 
OR A M ;SET TAB 

MOV M^A 
PET ;R£TURM 

; HTBCLR - TAB CLEAR ROUTINE * 

HTBCLR EQU $ 

;Gfc,T TABLE 
;C0MPLEM£N1 
; CLEAR TAB 



-01-76 

ssss 

71 

zssr 



CALL FNDTAB 
XkX 377g 
ANA M 
MOV M,,A 
PET 



ENTRY 
MASK 



FOR COLUMN 



RETURN 



13255-90003 
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ITEM 

5909 
5910 
5911 
5912 
5913 
5914 
5915 
591b 
5917 
591 B 
5919 
5920 
5921 
5922 
5923 
5924 
5925 
5926 
5927 
592B 
5929 
5930 
5931 
5932 
5933 
5934 
5935 
5936 
5937 
5938 
5939 
5940 
5941 
5942 
5943 
5944 
5945 
5946 
5947 
5948 



LOC OBJECT CODE SOURCE STATEMENTS 



PAGE 172 



156B 
1568 
1568 
1568 
1568 
156B 
iSfaE 
156E 
156E 
156E 
156E 
1571 
1574 
1577 
1579 
157A 
157D 
1580 
1580 
1580 
1580 
1580 
1583 
1586 
1586 
1586 
1586 
1586 
1589 
158C 
158C 
158C 
158C 
158C 
158C 
158C 
158C 
158F 
1590 
1593 



21 
C3 



21 

CD 
3A 
£6 
C8 
32 
C3 



21 

C3 



21 
C3 



2C 
93 



3A 
93 
55 
01 

• 

4F 
6E 



lA 
93 



2F 
93 



21 C8 
19 . 
CD 6D 



8 

5 

FF 



FF 
5 



2b 

b 



; lOBNGO - FAST BINARY READ ESCAPE SEQUENCE * 

;***4i*3»:f»#:»**t*#*f;Hf**4c4( ♦♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦»♦*»*♦ 

lOBNGO Egi) $ 

LXI H,CTDCDP ; EXECUTE FAST BINARY READ 
JMP lORMGO ;IF I/O ROM PRESENT 

; lOBSiC - WAII FOR CTU IDLE * 



lOBSYC 



EQU 

LXI 

CALL 

LDA 

AM 

RZ 

ST A 

JMP 



H,BSYCHK 
lORMGO 
CMND 
HUN 

lOCERR 
I06SYC 



BUSY CHECK 



;G0 TO CTU 
; ROUTINE 
;GET CURRENT CTU COMMAND 
;TAP£ STILL RUNNING? 
;N0 - RETURN 
;YES - CLEAR "lOCEER" 
;CON'iINU£ WAITING 

; lOCTGO - I/O CONTROL ESCAPE SEQUENCE * 

incTGO Egu $ 

LXI H,10CNTL ; EXECUTE I/O CONTROL ESCAPE 
JMP XORMGO ;SEO IF 1/U ROM PRESENT 

; IDCTMN - MONITOR CARTRIDGE TAPES * 

j^^rlf^ JH: t^^ ^^^*^ ********* ***^***^***'^** 

lOCTMN EC)U $ 

LXI H,CTMON ;GET MONITOR ADDRESS 
JMP lORMGO ; EXECUTE IF CODE PRESENT 

• llL ********** ************ 

; lOKE^S - 1/0 KEY HIT ♦ 
.i^:if:^:^*ii^*4H^************** 

; ENTRY: D,E = KEY INDEX 



lOKEYS EQU $ 

LXI H,10KYTB-6 
DAD D 
CALL CHAIN 



;COMPUTE KEY FUNCTION ADDRES 
; EXECUTE KEY FUNCTION IF I/O 
ROM PRESENT 



ITEM 

5950 

5951 

5952 

5953 

5954 

5955 

5956 

595 7 

5958 

5959 

5960 

5961 

5962 

5963 

5964 

5965 

5966 

5967 

5968 

5969 

5970 

5971 

5972 

597 3 

5974 

5975 

597b 

5977 

5978 

5979 

59B0 

5981 

5982 

5983 

5984 

5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

5994 



: = s=:xs: 
LOC 

1593 

1593 

1593 

1593 

1593 

1593 

1593 

1593 

1593 

1593 

1593 

1593 

1593 

1593 

1594 

1596 

1599 

159A 

159D 

15A0 

l5At 

15A2 

15A3 

15A3 

15A3 

15A3 

15A3 

15A3 

15A3 

15A3 

15A3 

15A3 

15A3 

15A3 

15A3 

15A3 

15A3 

15A4 

15A6 

15A8 

15A9 

15AA 

15AB 

15AC 

15AD 



13255-90003 Kev AUG-01-76 
OBJECT CODE SOURCE STATEMENTS PAGE:'"l73"' 

lOHMGO - PERFORM FUNCTION IF OPTION ROMS ♦ 
ARE PRESENT * 

ENTRY; H,L = VECTOR TO BE ENTERED 

EXIT : NC - FUNCTION EXECUTED 

REGISTERS SET ACCORDING TO FUNCTION 
C - FUNCTION WOT EXECUTED 
A DESTROYED 



E5 

CO 
C8 
21 
22 
El 
37 
C9 



7E 
E6 
FE 
CO 
23 
7E 
BC 
C9 



00 

A3 

• 

59 

Fl 



15 

OF 
FF 



FO 
50 



lORMGO EgU 


$ 


PUSH 


ri 


MVI 


L,0 


CALL 


lORMGl 


RZ 




LXI 


H,NODRVR 


SHLD 


MSGPTl 


POP 


H 


SIC 




RET 





TO 



;PUT FUNCTION ADDR ON STACK 
;CHECK ROM START LOCATION 
;D0ES ROM EXIST? 
;YES - EXECUTE FUNCTION 
;N0 - SET ERROR MESSAGE 

;"N0 DEVICE DRIVER" 
; RESTORE STACK 
jRETURiV FUNCTION NUT 

; EXECUTED (C-TRUE) 

lORMGl - CHECK FOR PRESENCE OF OPTION ROM ♦ 
ENTRY: H,L = ROM STARTING ADDRESS 



EXIT 



Z => ROM EXIST 

H,L = H,L(ENTRY)+1 

NZ => RUM ABSENT 

A DESTROYED 

H,L = H,L (ENTRY) => ROM ABSENT 
H,L = H,L(ENTHY)+1 => WRONG ROM 



lORMGl EQU 
MUV 
ANT 
CPI 
RNZ 
INX 
MOV 
CMP 
RET 



9 

A,M 

3600 

P 

H 

A,M 

H 



;GET FIRST ROM BYTE 
;CHFCK UPPER 4 BITS ONLY 
;IS IT AN UPPER CASE P? 
;N0 - RETURN ROM ABSENT 
;YES - CHECK SECOND BYTE 
; SECOND BYTE OF ROM SHOULD 
; EQUAL HIGH ORDER EIGHT 
;BITS IN ITS PROPER ADORES 
RANGE 



13255-90003 
ITEM LOC 



5996 

5997 

5998 

5999 

6000 

6001 

6002 

6003 

6004 

6005 

6006 

6007 

6008 

6009 

6010 

6011 

6012 

6013 

6014 

6015 

6016 

6017 

601B 

6019 

60 20 

6021 

6022 

6023 

6024 

6025 

6026 

6027 

6028 

6029 

6030 

6031 



15AD 
15AD 
15AD 
15AD 
15AD 
15AD 
15AD 
15AD 
15AD 
15B0 
I5b3 
15B5 
1587 
15BA 
15BB 
156D 
l5bF 
15C2 
15C3 
15C6 
15C7 
15CA 
15CA 
15CA 
15CA 
15CB 
15CD 

i5ce 

15D1 
15D1 
15D1 
15D2 
15D3 
15D6 
15D6 
15D7 



Rev AUG-01-76 

OBJECT CODE SOURCE STATEMENTS 

lOINTP - I/O INTERRUPT PROCESSING ♦ 

ENTRY: "PSW" AND H,L PUSHED 
A = INTERRUPT CODE 



PAGE 174 



CD 
3A 
F6 
D3 
21 
6fc 
E6 
03 
3A 
A5 
FA 
87 
FA 



7D 
06 
B7 
CA 



04 
07 
D2 

78 



65 
F5 
40 
70 
00 

• 

BF 
70 
7F 



D 



D6 



Di 



91 
FF 



lOINlR 



Eyu 

CALL 

LDA 

ORI 

OUT 

LXI 

MOV 

AM 

OUT 

LDA 

ANA 

JM 

ADD 

vJM 



$ 

INTVbC 

PRCCTL 

POLL 

PROCSR 

HriOCRCL 

L,M 

37 70-POLL 

PPOCSR 

DEVFLG 

L" 

CTINTR 

A 

ZINTAL 



; INVALID DEVICE INTE 
^t*********'^*^* ******* 
MOV A,L 
MVI BrATSIGN 
ORA A 
JZ 101020 



IDiOlO EUU 
INR 
PLC 
JNC 

101020 EQU 
MOV 



$ 
B 

lOIOlO 

$ 

A,b 



;CHECK ALTERNATE INTERRUPT 
;GET CURRENT PROCESSOR STATE 
;POLL THE 1/0 BOARDS TO FIND 

;OUT WHO INTERRUPTED 
;D0 DUMMY 1/0 READ TO GET 

;PULL RESPONSE 

; RESTORE PROCESSOR STATE 
;GET POLL DEVICE FLAG 
;DEVICE DRIVER PRESENT? 
JCTU - DO CTU ROUTINE 
; ALTERNATE I/O INTERRUPT? 
;YES - GO CHECK INTERRUPT 
■^i^il^^^t***************** 
PRUPT - REPORT ERROR ♦ 

; RECALL POLL RESPONSE 
;COMpIJTE ERPOR CODE 
;ANY DEVICE INTERRUPTED? 
;N0 - DON'T LOOK FOR PIT 
YES - DETERMINE DEVICE 

; INCREMENT EKROP CODE 
; DEVICE TYPE FOUND? 
;N0 - CONTINUE LOOKING 
;YES - SET ERROR CODE 

FALL INTO ERROR REPORTER 



ITEM 

6033 
6034 
6035 
6036 
603 7 
6038 
6039 
6040 
6041 
6042 
6043 
6044 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
605 7 
6058 
6059 
6060 
6061 
6062 



LOC 

15D7 
15D7 
15D7 
15D7 
15D7 
15D7 
15D7 
15D7 
15DA 
15DD 
15DE 
15DF 
15EI 
15E4 
ISKS 
15E8 
15EB 
ISEB 
ISEB 
15EB 
15EB 
15EB 
15EB 
15EB 
15EB 
15EB 
15EE 
15F1 
15F2 
15F3 



OBJECT CODE 



21 
22 
77 
23 

36 
21 

At- 
32 
C3 



CD 
D2 
PI 
FB 
C9 



DE 
EF 



CE 
3F 

00 
54 



65 
07 



FF 
FF 



OF 

BB 
12 



91 
15 



13255-90003 Hev AUG-Ol-76 
SOURCE STATEMENTS PAGE 17,5 

INTEBR - REPORT INVALID INTERRUPT OCCURRED * 

EWTRY; A = ERROR CODE (ASCII CHARACTER) 



INTERR EQU $ 

LXI H,IODATA 
SHl,D MSGPT2 

MOV M,A 



INX 
MVI 
L.XT 
XRA 
STA 
JMP 



H 

iM , EOP 

H,INERMS 

A 

lOCTCO 

HANGUO 



;SET ERROR CODE !• OK ERROR 
; MESSAGE 



; REPORT IMTEHRUPT ERROR 
;STOP ANY CTU MOTION 

;AiNin HANG TERMINAL 



INTRPT - PROCESS UNEXPECTED INTERRUPTS ♦ 

ENTRY: "PSW" PUSHED 

A = INTERRUPT CODE 
C-FLAG CLEARED 



INTRPT EQU $ 

CALL INTVEC 
JNC INTERR 
POP PSrt 
El 
RET 



;ANY INTERRUPT HANDLER? 

;N0 - REPOhT ERROR 

;YES - RESTORE PSW 

; RE-ENABLE INTERRUPTS 

; RETURN TO INTERRUPTED CODE 



13255-9 

ITEM 

6064 
6065 
6066 
6067 
6068 
6069 
6070 
6071 
6072 
6073 
6074 
6075 
6076 
6077 
6078 
6079 
6080 
6081 
6082 
6083 
6084 
6085 
6086 
6087 
6088 
6089 
6090 
6091 
6092 
6093 
6094 
6095 
6096 
6097 
6098 
6099 
6100 
6101 
6102 
6103 
6104 
6105 



LOC 

15F4 
15F4 
15F4 
15F4 
15F4 
15F4 
15F4 
15F4 
15F7 
15F9 
15FA 
15FA 
15FA 
15FC 
15FF 

1601 
1601 
1601 
1601 
1601 
1601 
1601 
1604 
1605 
1605 
1605 
1605 
1605 
1605 
1605 
1605 
1606 
1607 
1607 
1607 
1607 
1607 
1609 
160C 
160C 
160C 
160K 



Rev AUG-01-76 

OBJECT CODE SOURCE STATEMENTS PAGE 176 

lOlNTR - I/O INTEPROPT PROCESSING ♦ 

KEYBOARD ENABLE * 

KBEN EgU $ 

3A 6E FF I.DA DFLGS 

E6 40 . ANI KBOLOK ;KEYBOARD LOCKED BY ESC SEQ? 

CO . . RNZ ;YES - DO NOT UNLOCK KEYBOARD 



21 

A6 



77 
C9 



3E 
CD 



3e 

C3 



3E 02 
CO 08 
3E BF 



E FF 



40 
U 



01 
08 



KEEN I EQU S 

MVI A,UNLKKB ;UNLaCK THE KEYBOARD 

CALL ZKBCTL 

MVI A,3770-KBDLOK JCLEAR LOCKED FLAG 

CLPDFL - CLEAR DATA TRANSFER FLAGS 

entry: a = FLAGS TO BE CLEARED 

CLRDFL EyU S 

LXI H, DFLGS 

ANA M ;MASK OUT FLAGS 

STOREA - STORE VALUE N A-KEG AND RETURN 

entry: a = VALUE TO BE STORED 

HrL = LOCATION TO BE STORED IN 



; STORE UPDATED VALUE 
; RETURN 



48 



STOREA EQU $ 

MOV M,A 
RET 

; KEYBOARD LOCK * 
.^♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 

KBLOKO EQU $ 

MVI A.KBDLUK ;SET ESCAPE SEQUENCE LOCK 
CALL SETOFL ;FLAG 

t 

KBLOK EQU $ 

MVI A,LOCKKB ;LOCK THE KEYBOARD 
JMP ZKBCTL 



ITEM 

6i07 
610B 
6i09 
6U0 
6111 
6112 
6113 
6114 
6115 
6116 
6117 
6118 
6119 
6120 
6121 
6122 
6123 
6124 
6125 
6126 
6127 
6128 
6129 
6130 
6131 
6132 
6133 
6134 
6135 
6136 
6137 
6138 
6139 
6140 
6141 
6142 
6143 
6144 
6145 
6146 
6147 



LOC 

1611 
1611 
1611 
1611 
1611 
1611 
1611 
1611 
1611 
1611 
1611 
1611 
1613 
1616 
1619 
161C 
161C 
16 IF 
1622 
1624 
1627 
1627 
162A 
162C 
162E; 
1631 
1631 
1634 
1636 
1639 
1639 
1639 
1639 
1639 
163C 
163F 
1640 
1640 
1643 
1644 
1647 



OBJECT CODE 



3E 
32 
21 

CD 

21 
22 
3E 
CD 

3A 
E6 
BE 
CA 

21 

3E 
Ci 



2A 

22 

EB 

• 

2A 

19 

22 

C3 



00 
D7 
04 
00 

88 
20 
FB 
DC 

9C 
08 
81 



18 

CO FF 

4A OF 

D6 IC 



00 
FF 

14 

FF 

• 

13 
27 

04 



DE FF 
05 FF 



D7 FF 

• • 

D7 FF 

27 16 



13255-90003 Rev AUG-01-76 
SOURCE STATEMENTS PAGE 177~ 

ESC & LOWER CASE B ♦ 

BINARY LOAOEH ♦ 

A SET ADDRESS = DIGITS * 

C COMPARE CHECKSUM ♦ 

D SXOHE B^TE * 

INCREMENT ADDRESS ♦ 

CALL ADDRESS * 

GITS 1,2,3,4, OR 5 * 



E 
Dl 

LOADR 



LOADRl 



LDHO 



EQU 

MVI 

ST A 

LXI 

CALL 

EUU 

LXI 

SHLD 

MVI 

CALL 

EgU ! 

LDA 

AW I 

MVI 

JZ 

LXI 

MVI 
JMP 



A,MAXR0W+1 

CUHROW 

H,LDRMSG 

DSPMSO 

$ 

H,0 

iiCHKSM 

A,FRCRST 

STCMFL 



; INITIAL ENTRY 

;SET CURSOR OFF THE SCREEN 

; DISPLAY THE LOADER MESSAGE 
;ENTRy TO NOT DISPLAX MESSAG 
; CLEAR CHECKSUM ACCUMULATOR 

;SET FORCE RESET FLAG 



CHAR 

4og 

A,377Q-FRCRST 



; RECALL INPUT CHARACTER 
;IS IT UPPER CASE? 



CLCMFL 

H,LDRTAB 
A,OCTRDX 
ESCAPO 



;YES - CLEAR FORCE RESET 

EXIT ESCAPE SEQUENCE 
;N0 - SET LOADER FUNCTION 
;SET FOR OCTAL RADIX 



AND 



<A> - ADDRESS PARAMETER - SET ADDRESS 

LDH3 EgU $ 

. LHLD LDATA ;GET ACCUMULATED DATA 

SHLD LADDK ;SET AS LOAD ADDRESS 

XCHG ;PUT VALUE INTO D,E 

LDR035 EyU $ 

LHLD LCHKSM ; ACCUMULATE CHECKSUM 

DAD D 

SHLD LCHKSM 

JMP LDRO ; RETURN TO SYSTEM 



13255-^0003 



ITEM 



LOC 
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OBJECT CODE SOURCE ST/VTEMENTS 
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6149 

6150 

6151 

6152 

6153 

6154 

6155 

6156 

6157 

6158 

6159 

6160 

6161 

6162 

6163 

6164 

6165 

6166 

6167 

6168 

6169 

6170 

6171 

6172 

6173 

6174 

6175 

6176 

6177 

6178 

6179 

6180 

6181 

6182 

6183 

6184 

6185 

6186 

6187 

6188 

6189 

6190 

6191 

6192 

6193 

6194 

6195 

6196 



164A 

164A 

164A 

164A 

164A 

164C 

164D 

1650 

1651 

1653 

1654 

1657 

165A 

165A 

165A 

165A 

165A 

165A 

165D 

1660 

1663 

1666 

1668 

166B 

166D 

1670 

1671 

1674 

1675 

1675 

1675 

1675 

1675 

1678 

1679 

167B 

167C 

167F 

1680 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

168A 

168D 



2E 
5E 
2A 
73 
16 
23 
22 
C3 



CD 
CD 
DC 
3 A 
E6 
C2 
3E 
32 
F3 
2A 
E9 



21 
7E 
F6 
77 
2A 
EB 
21 
7B 
A£ 

23 

7A 
A£ 
81 
CA 
C7 



DE 



05 FF 



00 



05 
40 



07 



FF 
16 



OF 
50 
12 
FF 



A5 
17 
51 
55 
01 
5A 
80 
20 



05 FF 



F7 FF 



04 



DE FF 



FF 



<D> - DATA BYTE PARAMETER - STORE DATA BYTE 



LDR4 EOU 
MVI 
MOV 
LHLU 
MOV M 
MVI D 
INX 
SHLD 
JMP 
*:»Lt ♦♦♦♦♦*♦* 
<E> - EXEC 
STOPPED 

liDR060 EgU 
CALL 
CALL 
CC 
LUA 
AfU 
JNZ 
MVI 
ST A 
DI 

LHLD 
PCHL 



L,LDATA-BASE 

t:,M ;GET ACCUMULATED DATA 

LADDR ;GET LOAD ADDRESS 

,E ; STORE THE BYTE 

,0 ;ZERO MSB FOR CHECKSUM 

H ; INCREMENT AND STORE NEW 

LADDR ;LUAD ADDRESS 

LDR035 ;ACCUMULATE CHECKSUM 

UTE entered CODE, WAIT UNTIL ClU'S ♦ 
BEFORE EXECUTING CODE * 

$ 

DISLi^4 ;PE-ENARLE RESET KEY 

ZGETDC ;PUPGE DATA COMM INPUT 

DCEPK ; PROCESS EKRUR IF ANY 

CMND ;GET CTU CUMJ4AND 

RUN ;CTU'S RUNNING? 

LDR060 ;YES - CONTINUE WAITING 

A,CPTOFF ;N0 - TURN OFF THE DISPLAY 

lOCRRW 

; DISABLE INTERRUPTS 
LADDR ;GET LOAD ADDRESS 

; START EXECUTION THERE 



<C> - CHECKSUM ENTRY 



LDRIO 



EWU 
LXI 

MUV 
OR I 

MOV 



$ ;CHECKSUM ENTRY 
H,ERRFLG ; DEFAULT TO GOOD CHECKSUM 



27 16 



A,M 

LDRCHK 

M,A 

LHLD LDATA 

XCHG 

LXI H,LCHKSM 

MOV A,E 

XRA M 

MUV C,A 

INX H 

MOV A,D 

XRA M 

OKA C 

JZ LDRO 

RST ; RESET 



;SET ERROR FLAGS 

;GET USER SPECIFIED CHECKSUM 



;COMPARE TO CALCULATED 
;CHECKSUM 



;D0 CHECKSUMS MATCH? 

;YES - RETURN NORMAL 

NO - RESET TERMINAL 



13255-90003 Hev AUG-01-76 

ITEM LOC OBJECT CODE SOURCE STATEMENTS PAGE 179^ 

6199 168E . • • ; PARAMETERIZED SEQUENCES INITIAL CONTROL ♦ 

6200 168E • • . ;*********»*****4!**'»^t***4t*******4;*5f'*******4: 

6201 168E , . . PRMSEQ EQU & 

6202 168E 21 32 27 LXI H,PPMTAB ;SET RANGE TABLE FOR 

6203 1691 C3 7F 04 JMP ESCAPA ; PARAMETERIZED KSC SEOUENC 



13255-90003 
ITEM LOC 
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OBJECT CODE SOURCE STATEMENTS 



PAGE 180 



6205 


1694 


• 


, 




;4cf ^jfif f f^4!4ci(cf ^tc^::^:^ 


6206 


1694 


• 


■ 




; START PROTECT ♦ 


6207 


1694 


• 


• 




; :t( «:*:;(( f;^i|i^:t;^^ 4c :fc$^;(c 


6208 


1694 


• 


• 




PRSTHT EgU $ 


6209 


1694 


06 


CO 




MVI B,STPR 


6210 


1696 


C3 


89 


16 


JMP PROIOO 


6211 


1699 


m 


• 




jt****^**^****^** 


6212 


1699 


• 


• 




; THANSMIT-0NL5( ♦ 


6213 


1699 


• 


• 




fyff^^:^-^4i^iif,^:^t4*^h** 


6214 


1699 


• 


• 




STRXMO EQU $ 


6215 


1699 


3E 


C2 




MVI A,XMONLY 


6216 


169B 


C3 


AO 


16 


JMP PPOOIO 


6217 


169E 


• 


, 




J1^i^t^*^*^t4■t*** 


6218 


169E 


• 


• 




; END PROTECT ♦ 


6219 


169E 


• 


• 




;4;4L^^:|:;«(«4cf 4:^4(f :|. 


6220 


169E 


• 


• 




PREND EQU $ 


6221 


169E 


3c; 


CI 




MVI A,ENDPR 


6222 


16A0 


• 


a 






6223 


16A0 


• 


, 




; MAKE SURE PREVIOU 


6224 


16A0 


• 


• 






6225 


16A0 


• 


• 




PPOOIO EUU $ 


6226 


16A0 


32 


DB 


FF 


STA PARMl 


6227 


16A3 


3 A 


CI 


FF 


LDA CURCOL 


6228 


16A6 


3D 


• 


• 


DCP A 


6229 


16A7 


CD 


OB 


07 


CALL RCADRO 


6230 


16AA 


FA 


14 


48 


JM ZBELL 


6231 


16AD 


3A 


C5 


FF 


LDA LSTFMT 


6232 


1680 


FE 


CO 




CPI STPR 


6233 


lbB2 


C4 


94 


16 


CNZ PRSTRT 


6234 


16B5 


3A 


DB 


FF 


LDA PARMl 


6235 


I6i38 


47 


• 




MOV B,A 


6236 


16B9 


• 


« 






6237 


16B9 


• 


• 




; Ei^TER THE FORMAT 


6238 


16B9 


• 


• 






6239 


16B9 


• 


• 




PROIOO EQU $ 


6240 


16B9 


CD 


76 


19 


CALL CHKFHS 


6241 


16BC 


CO 


• 




RNZ 


6242 


16BD 


78 


• 




MOV A,B 


6243 


16BE 


F5 


• 




PUSH PS« 


6244 


16BF 


CD 


EO 


21 


CALL DISPCl 


6245 


16C2 


Fl 


• 




POP PSW 


6246 


16C3 


32 


C5 


FF 


STA LSTFMT 


6247 


16C6 


C9 


• 




RET 



; STORE START PROTECT CONTROL 
?FLAG 



; STORE TRANSMIT-ONLY CONTROL 
;FLAG 



; STORE END PROTECT CONTROL 



;SAVE CONTROL FLAG 
;GET THE CURRENT COLUMN 
;SET TO FIND PREVIOUS COLUMN 
; PREVIOUS COLUMN PRESENT? 
;N0 - SOUND BELL AND RETURN 
;YES - RECALL LAST FORMAT CT 
;WAS IT A START PROTECT? 
;N0 - ENTER STPR 
; RECALL FORMAT CONTROL FLAG 
;T0 BE STORED 



; FORMAT MODE? 

;YES - TERMINATE 

;N0 - ADD CHAR TO DISPLAY 
;SAVE THE CONTROL CODE 

; (DISPCl DESTROYS "LSTEMT" 
; RECALL CONTROL CODE 

;n£w entry 



ITEM 

6249 

6250 

6251 

6252 

625 3 

6254 

6255 

6256 

6257 

6258 

6259 

6260 

6261 

6262 

6263 

6264 

6265 

6266 

6267 

6268 

6269 

6270 

6271 

6272 

6273 

6274 

6215 

6276 

6277 

6278 



LOC 

16C7 
16C7 
16C7 
16C7 
16C7 
16CA 
16CA 
16CA 
16CA 
16CA 
16CA 
16CA 
16CA 
16CA 
16CA 
16CA 
16CA 
16CA 
16CA 
16CA 
16CD 
16CD 
16CD 
16CD 
16CD 
16CD 
16CD 
16D0 
16D2 
1605 



3 A 
E6 
CA 



FB 
40 
E2 



13255-90003 Rev AUG-01-76 

OBJECT CODE SOUPCE STATEMENTS PAGe"i8i"" 



ENTREN - ENABLE ENTER VIA ESCAPE SEQUENCE 

ENTREN EQU $ 

LXI B,SENTER ;SET DISPLAY SEND PENDING 
FALL I MTU "SBLXFO" 

SBLXFO - SET BLOCK TRANSFER FLAG FOR ESCAPE ♦ 
SEQUENCE INITIATED BLOCK TRANSFERS ♦ 

♦ ;jc*4;*4:#4it*^: ♦♦♦♦♦*♦?♦ ♦♦♦♦♦f***:|c*4:***:ti:tc^:t;*;^*^^^^ 

ENTRY! B = FLAG TO BE SET IN "MFLGS" 
C = FLAG TO BE SEX IM "MFLGS2" 

EXIT ; ALL REGISTERS DESTROYED 

X-ON AND DC2 PENDING FLAGS APE SET 
ACCORDING TO THE SETTINGS OF G AND H 



SBLXFO EQU $ 

CALL CLRXON 



;CLFAR BLOCK TRANSFER TRIGGE 



SBLXFA - DETERMINE DC2 HAi^DSHAKE MODE FUR 
NON-BLOCK MODE KEi^BOARD INITIATED BLOCK 
TRANSFERS 



FF 



SBLXFA EQU $ 

LDA KBJMPR 
ANI HWDSHK 
JZ SBLOIO 



;GET THE STRAP SETTINGS 
;DC2 ON ALL BLOCK TRANSFERS? 
;ND - DO NUT SET DC 2 FLAG 
YES - FALL INTO "SBLXFl" 



13255-90003 



ITEM 

6280 

6281 

6282 

6283 

6284 

6285 

6286 

6287 

6288 

6289 

6290 

629t 

6292 

6293 

6294 

6295 

6296 

6297 

6298 

6299 

6300 

6301 

6302 

6303 

6304 

6305 

6306 

6307 

6308 

6309 

6310 

6311 



LOC 

16D5 

16D5 

16D5 

16D5 

1605 

16D5 

16D5 

16D5 

16D5 

16D5 

16D8 

16DA 

16DC 

16DF 

16E2 

I6fc:2 

16E2 

I6e2 

I6fe:3 

16E3 

I6fc;4 

16E5 

16E8 

16E9 

16EC 

16ED 

16EE 

16EF 

16F0 

16F1 

16F2 

16F3 



PAGE 182 
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OBJECT CODE SOURCE STATEMENTS 

SBLXFl - SET BLOCK TRANSFER FLAG FOR KEYBOARD ♦ 
INITIATED BLOCK TRANSFERS * 

ENTRY; B = FLAG TO BE SET IN "MFLGS« 
C = FLAG TO BE SET IN "MFLGS2" 



3 A 
E6 
3E 
CA 
CD 



78 

• 

BO 

47 

CD 

CB 

21 

78 

B6 

77 

2D 

79 

86 

77 

C3 



FB 
80 
01 
E3 
24 



FF 



16 

04 



FF 



SBLXFl EQU $ 

LDA KBJMPP 
AM DC2SND 
MVI A,SDC2/2 
JZ SBL020 
CALL CHKCTl 



SBLOIO E^U S 

MOV A,B 



SBL020 EQl) 
OR A 



OC 16 



$ 

B 

MOV B,A 
CALL CKRMTE 
RZ 

LXI H,MFLGS 
MOV A,B 
ORA M 
MOV iM,A 
DCX H 
MOV A,C 
ORA M 
MOV M,A 
JHP KBLOK 



;GET THE STRAP SETTINGS 
; INHIBIT DC2 HANDSHAKE? 
56 ;(SET DC2 PENDING FLAG) 
;N0 - SET DC2 PENDING FLAG 
;YES - SET BLOCK TRANSFER 
TRIGGER TO CAUSE IMMEDIATE 
TRANSMISSION OF DATA 

?PUT FLAG INTO A-REGiSTER 

;ADD IN OPTIONAL DC 2 FLAG 
;SAVE FLAGS IN R-REGISTER 
; REMOTE MODE ENABLED? 
;N0 - DON'T SET BLOCK XFH 
;YES - SET DATA PENDING 
; FLAGS 



;SET FLAG IN "MFLGS2" 
; DISABLE THE KEYBOARD 



ITfilM 



LOC 



OBJECT COOE SOURCE STATEMENTS 
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6313 
6314 
6315 
6316 
6317 
6318 
6319 
6320 
6321 
6322 
6323 
6324 
6 32 5 
6 3 2o 
o327 
632B 
6 329 
6 3 30 
6 3 31 



16F6 
16F6 
I6r6 
16F6 
16F6 
16P6 
16F6 
16F6 
16F9 
l6tC 
16FF 
t6FF 
I7ul 
17U4 
I7u7 
1709 
170A 
17CA 
l7jC 



CU 
3A 
C2 

3E 

CO 
3 A 

E6 
C8 

C3 



59 

4 
CI 

• 

CD 

CI 

F3 

04 



OA 
CI 



10 
50 
17 



17 

PF 



17 



; SDTP 

m 

I EXI 
f 

SDTRMl 



bl)TPh2 



HI - SEND TERM N A TOR CHARACTtP ♦ 



A DESTROYED 



SDTR.-'13 



Egl) 
CALL 
tiDA 
JNZ 

CALL 

Lb A 
AN I 
KZ 
EgU 
¥• V I 



GTMODG 

bLKTrtf^ 

XPUTDC 

$ 

A,CR 

XPUTDC 

WDFLG2 

AUrOLF 

$ 

A,LF 
XPUTDC 



;PAGE MODE? 

;(GFT BLOCK TEHMINATORJ 
;Y£S - SEND tJLOCK TER^^ ONLi 
;N0 - SEND Ch(LF) 

;THANSi«lIT KEi UH*.) 

?AUTU blNF FcFD Er-'ABLFD? 
;n\j - KETUKrj 

;YES - TKAimSMIT LliVfE FEED 



132S5' 

ITEM 

6333 
6334 
6335 
o33b 
6337 
6i3d 
6339 
6340 
6J4i 
oi4i! 
6343 
6344 
634:3 
634b 
6347 
6348 



'90003 

LOC 

170F 

l7i>F 

17UF 

170F 

170F 

l7uF 

I 7 OF 

17 OF 

170F 

17 OF 

170F 

1711 

1711 

1714 

1715 

1716 



Rev AU(i-01-7b 

OBJtCf couF source: statemi<:nts pagf 

izssxrssrssssscsrss-xsesssssssssszsss^sssssssszssr ====== === ===: 

6FTDFL - StT DATA TPANi>Ffc;p FLAG ♦ 

fclWTHY: A = FLAG bit 10 Bh. SET 

KXIT : H = BAStH 

A,L OESTPOYtr 



184 



3E 

2X 

B6 
77 
C9 



SETDKO FQU $ ;SfcT DATA CfJMM INPUT f-bAG 

MVI A,SDACUM ;StT FLAG BIT 10 BE SET 

SETOFL EQU $ 

FF LXI ri,DFLGS 

OHA k ;^^LPGE FLAG BIT 10 EXISTING 

MOV M,A ; FLAGS 

PET ;Rt:TLPN 



ITEM 

6350 
6351 
6352 
6353 
b354 
6355 
6356 
6357 
6358 
6359 
6360 
6361 
6362 
6363 
6364 
6365 
6366 
6367 
636ti 
6369 
6370 
6371 
6372 
6373 
6374 
63 7 3 
6376 
6377 
6378 
6379 
6380 



LOC 

1717 
1717 
1717 
1717 
1717 
1717 
1717 
1717 
1717 
1717 
1717 
1717 
171A 
171B 
171E 
1720 
1721 
1724 
1725 
1728 
1729 
1729 
1729 
172C 
172D 
1730 
1732 
1733 
1736 
1737 
1738 
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SETLFT,SETRHT - SET LEFT AND RIGHT MARGINS 



CD 
CO 
3A 
2E 
BE 
FA 
7E 
32 
C9 



CO 
CO 
3 A 
2E 
BE 
FA 
2B 
77 
C9 



7B 

• 

BE 

CI 



7B 

CI 

BF 



FF 



51 23 



BF FF 



51 23 



entry: h s baseh 

curcol = cursor column position 



EXIT 



LFTMGN,RHTMGN SET APPROPRIATELY 



SETLFT EQU $ 

CALL CHKFMT ; FORMAT MODE? 
RNZ ;YES - DON'T SET MARGIN 

LDA RHTMGN ;N0 - GET THE RIGHT MARGIN 
MVI L,CURC0L-BASE 



CMP M 

JM DSPCKl 

MOV ArM 

SIA LFTMGN 

RET 



/CURSOR AFTER RIGHT MARGxN? 
;YES - DON'T SET MARGIN 
;N0 - SET NEW LEFT MARGIN 

; RETURN 



FF 



SETPHT EgU $ 

CALL CHKFMT 

RNZ 

LUA CURCOL 



/FORMAT MODE? 

;YES - DON' SET MARGIN 

;G£T CURRENT CURSOR COLUMN 

MVI L,LFTMGN-BASE 

CMP M /BEFORE LEFT MARGIN? 

JM DSPCHl /YES - DON'T SET MARGIN 

DCX H ;N0 - SET NEW RIGHT MARGIN 

MOV M,A 

PET /RETURN 



13255-90003 
ITEM LOC 



6333 


170F 




6334 


170F 




6335 


170F 




6336 


170F 




6337 


170F 




6338 


170F 




6339 


170F 




6340 


170F 




6341 


170F 




6342 


170F 




6343 


170F 


JE 


6344 


1711 


> 


6345 


1711 : 


21 


6346 


1714 { 


^6 


6347 


1715 


77 


6348 


1716 < 


:9 
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SETDFL - SET DATA TRANSFER FLAG * 

ENTRY: A = FLAG BIT TO BE SET 

EXIT : H = BASEH 

A,L DESTROYED 



SETDFO EQU $ ?SET DATA COMM INPUT FLAG 

MVI A,SDACOM ;SET FLAG BIT TO BE SET 

SETDFL EQU $ 

FF LXI HrDFLGS 

ORA M ; MERGE FLAG BIT TO EXISTING 

MOV M,A ; FLAGS 

RET ; RETURN 



13255-90003 Kev AUG-Ol-Ve 
ITEM LOC OBJECT CODE SOURCE STATE:r4E«TS PAGE 187 

6397 173F . . . ; ♦♦♦♦♦♦♦♦♦♦♦♦♦^(♦♦*:»;f ♦♦♦*♦♦♦**»♦*♦♦♦*♦**♦♦♦ 

6398 173F ... ; SETTHM - SET NON-DXSPLAYING TERMINATOR * 

6399 173F . • • ; ♦^♦♦♦♦♦♦♦♦♦♦♦**<f*j^**»4(***4iif***^c4(*;tc*;^j|c**j|(* 

6400 173F . . , SETTRM EQU $ 

6401 173F 3E 01 . MVI A,1GNTRM ;SET TO IGNORE NON-DISPLAYIN 

6402 1741 32 6D FF STA TRMFCT ;TERMIWAX0RS 

6403 1744 3E C4 . MVI A,STPFLG ;ADO NON-DISPLAYING 

6404 1746 CD E2 21 CALL DISPC2 ;TEPMINATOR TO DISPLAY 

6405 1749 C3 20 IE JMP FLDSRX ;SET "LSTCOL" TO MAXCOL+1 

TO FORCE LINE RE-SCAN TO 
INHIBIT DELETION OF NEW 
NON-DISPLAYING TERMINATOR 



6406 174C 

6407 174C 

6408 174C 



13255-90003 
ITEM LOC 
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6410 
64U 
6412 
6413 
6414 
6415 
6416 
6417 
6418 
6419 
6420 
6421 
6422 
6423 
6424 
6425 
6426 
6427 



174C 
174C 
174C 
174C 
174C 
174F 
1751 
1752 
1755 
1757 
175A 
175A 
175A 
175A 
175A 
175D 
175E 
1760 



3A 
E6 
CO 
21 
3E 
C3 



3A 
47 
3E 
C3 



6E 

01 

• 

80 

08 

81 



DE 

OB 
42 



EF 



FF 



12 



; ♦*♦♦♦ 
; SNDC 

SNDCDE 



; <A> 

• :(: ;^ 4c 3|L ^ 

SNDCUl 



♦ *♦»♦ 
DE - 

♦ ♦♦♦» 
EQU 
LDA 
ANI 
RNZ 
LXI 
MVI 
JMP 

- SEN 

EQU 
LDA 
MOV 
MVI 
JMP 



SEND ATTENT 

$ 

DFLGS 
SDACOM 



H,SNDCTB 
ArOCTRDX 
ESCAPO 

D ATTENTION 

$ 

lODATA 
B,A 

A,SMDATN 
DCMCTL 



PAGE 188 

ION/FUNCTION CODE ♦ 

;GET DATA TRANSFER FLAGS 
;COMMAr>ID FROM DATA COMM? 
;YES - IGNORE XT 
;SET TO ACCimULAXE OCTAL 
;COOE CHARACTER 

9^ « >(( 4c 3|! 3»( :^ 
CODE ♦ 

f ♦4:)*f4tJt:J»E 

;GET ACCUMULATED VALUE 
;PUT CODE INTO B-REGISTER 
;SET DATA COMM CONTROL CODE 
; PERFORM FUNCTIOW 



ITEM 

6430 
6431 
6432 
6433 
6434 
6435 
6436 
6437 
643b 
6439 
6440 
6441 
6442 
6443 
6444 
644t> 
6446 
6447 
6448 
6449 
6450 
6451 
6452 
6453 
6454 
6455 
')456 
#6457 
6458 
6459 
6460 
6461 
6462 
6463 
6464 
6465 
6466 
6467 
646B 



LOC 

1763 
1763 
1763 
1763 
1763 
1763 
1763 
1763 
1763 
1763 
1763 
1763 
1763 
1763 
1763 
1763 
1763 
I7to3 
1766 
1769 
1769 
1769 
176C 
176E 
l77t 
1771 
1771 
1771 
1771 
1771 
1771 
1771 
1771 
1774 
1777 
177A 
177D 
177D 
1780 
1781 



OBJECT CODE 



CD 
C3 



3A 

E6 
CA 



69 
9C 



FA 
01 
F4 



CD 81 

CA 7D 

CD 7B 

CA 84 



17 
25 



FF 



17 



19 
17 
19 
17 
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STBTBL - SET FIRST DISPLAY OUT CHARACTER FOR * 
BLOCK STORE * 

ENTRY! DON'T CARE 

EXIT : CURCOLrCURROW = STARTING POSITION 

IF THE AUTO TERMINATOR STRAP (J) IS OUT, A 
TERMINATOR IS PLACED AHEAD OF THE CURRENT 
CURSOR POSITION AND A REVERSE SCAN IS MADE 
FUR THE FIRST TERHINATOR BEFORE THE CURRENT 
CURSOR POSH ION. OTHERWISE, THE CURSOR IS 
PLACED AT THE HUME POSITION 



STRTBL 



Egu $ 

CALL STRTBl 
JMP INITDG 



SET CURSOR START POSITION 
SET UP DISPLAY GET ROUTINE 



STRTBl EQU $ 

LDA KBJMP2 ?GET KEYBOARD JUMPERS 2 

ANI AUTTRM ;AUTU TERMINATOR ENABLED? 

JZ X.MOHME ;N0 - HOME THE CURSOR 

STTERM - SET AUTO TERMINATOR * 

EXIT : Z :=> AUTO TERMINATOR WOT SET 
NZ => AUTO TERMINATOR SET 



3A 
B7 
CA 



AC FF 



07 OB 



STTERM Egu $ 

CALL CHKMLK 

JZ STBOIO 

CALL CHKFMT 

JZ STB050 

STBOIO EQU $ 

LDA FPBLKS 

ORA A 

JZ MLOCK 



MEMORY LOCK ENABLED? 
YES - CHECK FOR FREE 
FORMAT .MODE ENABLED? 
NO - ADD TERMINATOR 
YES - CHECK FOP FREE 
GET LSB OF FREE BLOCKS 
ANY FREE BLOCKS? 
NO - FORCE MEMORY LOCK ON 



BLOCKS 



BLOCKS 
PTR 



13255-90003 
ITEM LOC 
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6470 


17B4 






• r 


6471 


1784 






m 


6472 


1784 






• f 


6473 


1784 






• t 


6474 


1784 






s 


6475 


1784 


CD 


3F 


17 


6476 


1787 


3A 


04 


50 


6477 


t78A 


6F 


• 


• 


6478 


178B 


26 


C4 


« 


6479 


178D 


CD 


05 


18 


6480 


1790 


C2 


A2 


17 


6481 


1793 


CD 


A4 


06 


6482 


1796 


C4 


96 


20 


6483 


1799 


• 


• 


S 


6484 


1799 


3E 


FB 


• 


6485 


1798 


CD 


01 


16 


6486 


179E 


F6 


08 


• 


6487 


17A0 


77 


• 


• 


6488 


17AI 


C9 


• 


• 



SPACE AVAILABLE - STORE NON-DISPLAYTNG » 
TERMINATOR AT CURRENT CURSOR POSITION ♦ 

STB050 EQU S 



CALL SETTRM 
LDA BLKTRM 
MOV L,A 
MVI H,STPFLG 
CALL BACKTl 
JNZ STB080 
CALL HCADHA 
CHZ CRLF 
STBObO EQU $ 

MVI A,377Q-NOSEND 



; STORE TERi^INATOR 

;GET BLOCK TERMINATOR CHAR 

;SLT PARAMETERS FOR REVERSE 

; SEARCH FOR PREV TERMINATO 
;TS THEP A PHEV TERMINATOR? 
;N0 - HOME THE CURSOR 
;DOES THE CHARACTER EXIST? 
;NU - START AT MEXT LINE 



CALL CLRDFL ; CLEAR NO DATA FLAG 

ORI SKPTRM ;SET TO SKIP INITIAL BLOCK 

MOV M,A ? TERMINATOR CHARACTER 

RET ; RETURN NZ 



ITEM 



LOC 
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^490 


17A2 


• 


• 


• 


;**»^ 


y^^iif:^il^^: 


(c^:Dr4c)|c^« 


6491 


17A2 


• 


• 


• 


; NO 


PREVIOUS TERM 


6492 


17A2 


• 


• 


• 


;tt«4';|:4<«^*3^*>^=IX4i>(ef4: 


6493 


17A2 


• 


• 


• 


STB080 EQ{) 


$ 


6494 


17A2 


2A 


CO 


FF 




LHLD 


CURROW 


6495 


17A5 


E5 


• 


• 




PUSH 


H 


6496 


17A6 


CD 


31 


U 




CALL 


DPSENl 


6497 


17A9 


2A 


CO 


FF 




LHLD 


CURROW 


6498 


17AC 


CX 


• 


• 




POP 


B 


6499 


17AD 


7C 


• 


• 




MOV 


A,rH 


6500 


17 AC 


90 


• 


• 




SUB 


B 


6501 


17AF 


47 


• 


• 




MOV 


B,A 


6502 


17B0 


7D 


• 


• 




MUV 


A,rL 


6503 


l7Bt 


91 


• 


• 




SUB 


C 


6504 


17B2 


BO 


« 


• 




ORA 


B 


6505 


17B3 


C2 


99 


17 




JNZ 


STB060 


6506 


17B6 


3£ 


04 


, 




MVI 


A, NOSE 


6507 


17B8 


C3 


U 


17 




JMP 


SETDFL 



INATOP - HOME THE CURSOR ♦ 

?SAVE THE CURRENT ROW AND 

; COLUMN VALUES 
;H0ME CURSOR FOR TRANSMISSIO 
;C,ET NEW ROW AND COLUMN 
; RECALL OLD ROW AND COLUMN 
/COMPARE TO HOME ROW AND 

/COLUMN 



;D1D CURSOR MOVE? 
/YES - SET FOR DATA PRESENT 
ND ;N0 - SET FOR NO DATA 
/RETURN 



13255-90003 
ITEM LOC 



6509 
6510 
6511 
6512 
6513 
6514 
6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6533 
6534 
6535 
6536 
6537 
6538 
6539 
6540 
6541 
6542 
6543 
6544 
6545 
6546 
6547 
6548 
6549 
6550 
6551 
6552 
6553 
6554 
6555 



178B 
17B8 
17BB 
17BB 
17BB 
17BB 
17BB 
17BB 
17BB 
17BB 
17BB 
17BB 
17BD 
17C0 
17C1 
17C1 
17C1 
17C2 
17C3 
17C6 
17C9 
17C9 
17CA 
17CB 
17CE 
17D1 
17D4 
17D4 
17D5 
1706 
1706 
1706 
I7D6 
1706 
1706 
1706 
1707 
1708 
1709 
17DC 
170E 
17E1 
I7e2 
17E3 
I7e4 
17E7 
17EA 
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ENTRY; A = CHARACTER TO BE TRANSMITTED 
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3E 
CO 
78 



B7 
F5 
CD 
CA 

Fl 
F5 
CO 
DA 
C2 

Fl 
C9 



E5 
D5 
C5 
CO 
3E 
CD 
CI 
01 
El 
CA 
CO 



16 
CI 



6A 
04 



86 
OA 
08 



C9 
3B 



10 
17 



lA 50' 
EA 1 7 
06 17 



48 



17 
12 



EXIT ; NC - TRANSMIT SUCCESSFUL 
C - TRANSMIT FAILED 
A DESTROYED 



ESCOUT Egu $ 

MVI A, ESC 
CALL XPUTDC 
MOV A,B 



XPUTDC EQU 
ORA 
PUSH 
CALL 
JZ 

XPDOOl EUU 
POP 
PUSH 
CALL 
JC 
JNZ 

XP0005 EQU 
POP 
RET 



$ 

A 

PSW 

CKHMTE 

XP0005 

$ 

PSW 

PSW 

ZPUTOC 

XP0050 

XPOOIO 

S 

PSW 



; OUTPUT AK ESCAPE CODE 



; FOLLOWED BY CHAR IN B-REG 



;SET C-FLAG FALSE 
;SAVt THE FLAGS AND A-REG 
;HEN'OTe MODE ENABLED!? 
;N0 - EXIT 



;yES - RECALL THE 
;SAVE CONTENTS OF 



WAIT FOR 

:^ ](c 4: ^ ^ sr 4: 4^ ^ * 

XPDOIO Egu 
PUSH 
PUSH 
PUSH 
CALL 
MVI 
CALL 
POP 
POP 
POP 
JZ 
CALL 



DATACOM - 

$ 

H 



B 

lOCTMN 

A,CKBRKY 

ZKBCTL 

B 

D 

H 

XPDOOl 

BRKDC 



CHARACTER 
A AND FLAG 

; TRANSMIT THE CHAR IN A-HEG 

;FRROR - REPORT IT 

;WAIT - TRjf AGAIN 

;D0NE - RECALL FLAGS AND CHA 
;RETURN 

TRANSFER TRIGGER (SETS 

FLAG TRUE) 

RETRY OPERATION * 
;SAVE THE REGISTERS 



; MONITOR CARTRIDGE TAPES 
;LOOK FOR A BREAK KEY HIT 
; BREAK. KEY HIT? 

; (RESTORE REGISTERS) 



;N0 - TRY TO OUTPUT AGAIN 

;YES - BREAK DATA COMM 

FALL INTO ERROR EXIT ROUTINE 



ITEM 


LOC 


OBJECT 


COD 


€557 


17EA 


CSSSISS'"""""'" 


• 


• 


6558 


17EA 


• 


, 


• 


6559 


17EA 


a 


• 


• 


6560 


17EA 


• 


• 


• 


6561 


17EA 


33 


, 


, 


6562 


17EB 


33 


• 


• 


6563 


17EC 


C2 


54 


12 


6564 


17SF 


CD 


14 


4B 


6565 


17F2 


37 


• 


• 


6566 


17F3 


C9 


• 


• 
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} DATA COMNi EPHOH DETECTED - REPORT ERROR ♦ 

XPD050 

;RESTORE STACK LEVEL WITHOUT 

;AFFECTI1^G THE FLAGS 
; FATAL - HANG THE TERMINAL 
? NON-FATAL - SOUND BELL 
; RETURN FAIL (C-FLAG = TRUE) 



EQU 


$ 


INX 


SP 


INX 


SP 


JNZ 


HANGUO 


CALL 


ZBELL 


STC 




RET 





13255-90003 
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ITEM 



LOC 



OBJECT CODE SOURCF, STATEMENTS PAGE X94 

XMOHME - HOME CURSOR INCiiUDING TRANSMIT * 
ONLY FIELDS ♦ 

XMUHME EQU $ 

CALL SFTDFO ;SET DATA COMM Ii\IPUT FLAG 

TO ENABLE TRANSMIT ONLY 

FIELDS 
JMP CURPHl ;HOME THE CURSOR 



6568 


17F4 


■ 


• < 


1 r 


6569 


17F4 


• 


* I 


t 1 


6570 


17F4 


• 


• 


t 1 


6571 


17F4 


• 


• « 


• t 


6572 


17F4 


• 


• 1 


^ 


6573 


17F4 


CD 


OF 1 


7 


6574 


17F7 


9 


• i 




6575 


17F7 


• 


• 


• 

* r 


6576 


17F7 


C3 


2C 1 


ID 



ITEM 



LOC 
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dsl% 


17FA 






6579 


17 FA 






6580 


17FA 






6581 


17PA 






6582 


1800 






6583 


1800 


50 \ 




6584 


1801 


IB , 





; :(i: 4^ t f j(: i(( ]|i ;^ f :^ :^ 4: ^ :^ 4i 3tc :f ^ ^ ^ )^ 4( <: f 1^ ♦ 

; R M BREAK 3 * 

ORG ZEiRK2 + 4000Q 

ZBHK3 EQU $ 

Db VERSN ;ROM PRESENT FLAGS 

DB ZBRK3/250 



13255-90003 



ITEM 

6586 

6587 

6588 

6589 

6590 

6591 

6592 

6593 

6594 

6595 

6596 

6597 

6598 

6599 

6600 

6601 

6602 

6603 

6604 

6605 

6606 

6607 

6608 

6609 

6bl0 

6611 

6612 

6613 

6614 

6615 

6616 

6617 

6618 

6t>19 

6620 

6621 

6622 

662 3 



LOC 

1802 
1802 
1802 
1802 
1802 
1802 
1802 
1802 
1802 
1802 
1802 
1802 
1802 
1802 
1802 
1802 
1802 
1805 
1805 
1808 
1809 
180C 
18 OF 
1812 
1815 
1818 
181A 
181D 
1820 
1823 
1826 
1829 
182C 
18 2D 
1830 
1830 
1833 
1836 
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BACKTl - LOCATE PREVIOUS CHARACTER * 

ENTRY: lODATA = CHARS TO FIND (2 BYTES) 

CURCOL,CURROW = CURRE^iT CURSOR POSITION 

EXIT : Z - CHARACTER FOUND 

DISPLAY AND CURSOR SET TO CHARACTER 
PUSITIOiV IN DISPLAY MEMUPK - ALL 
DISPLAY PARAMETERS UPDATED 
HZ - CHARACTER NOT FOUND 

DISPLAY UNCHANGED 
ALL REGISTERS DESTROYED 



21 

• 

22 

AF 

32 

2A 

22 

2A 

22 

3E 

32 

CD 

3 A 

F2 

3A 

21 

BE 

F2 

• 

CD 
3A 
32 



D7 FF 



82 
CO 
OE 
C9 
D5 
01 
6D 
B4 
DF 
3B 
CO 
6B 



FF 
FF 
FF 
FF 
FF 

FF 
06 
FF 
18 
FF 
FF 



7 A 18 



07 
C7 
CO 



U 

FF 
FF 



BACKTO EQU 
LXI 

BACKTl EgU 
SHLD 
XRA 
SI A 
LhLD 
SriLD 
LHLD 
SHLD 
MVI 
ST A 
CALL 
LLA 
JP 
LDA 
LXI 
CMP 
JP 

BK1210 EyU 
CALL 
LDA 
STA 



H,ENDPH* 

$ 

LCHKSM 

A 

kOLLCT 

CURROW 

LDATA 

LSTLIN 

LADOH 

A,lGNTKt»' 

TRMFCT 

HCADKl 

LDATA+1 

BKT230 

CURROW 

H^MLKROW 

M 

BKT300 

$ 

CUHPHO 

LSTROW 

CURROW 



;LD0K FOR PREVIOUS FIELD 
256+ENDPR 

;SAVE CHARACTERS TO BF FOUND 
; CLEAR ROLL COUNT 

;SAVE THE CURRENT STATE OF 
;THE DISPLAY 



;SbT TO IGNORE NON-DISPLAYIN 

; TERMINATOR 
;DOES THE CURRENT LINE EXITS 

; (RECALL CURRENT COLUHN) 
;yES - SEARCH FOR PREV FIELD 
;N0 - LOCATE LAST LINE 
/CURRENT ROW LESS THAN 

; MEMORY LOCK ROW? 
;N0 - LOOK FOR UNLOCKED LINE 
;YES - START FRO^j LAST LINE 

;FORCE TO LAST ALLOCATED 

;ROW 



ITEM 

6625 
6626 
6627 
6628 
6629 
6630 
6631 
6632 
6633 
6634 
6635 
6636 
6637 
6638 
6639 
6640 
6641 
6642 
6643 
6644 
6645 
6646 
6647 
6648 
6649 
6650 
6651 
6652 
665 3 
6654 
6b55 
6656 
6657 
6658 
6659 
6660 
6661 



LOC 

1839 

1839 

1R39 

1839 

1839 

183B 

183B 

IB3H- 

1841 

1842 

1845 

1848 

184B 

18 4^: 

iBbl 

1852 

1855 

1858 

1859 

185C 

185C 

185D 

185F 

1860 

1861 

1864 

1865 

1868 

1868 

186B 

1R6B 

186C 

18 60 

1870 

1871 

1874 

18 7 7 



OBJECT CODE 
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3E 4r 



32 
2A 
EB 
2A 
CD 
F2 
3A 
21 
BE 
CA 
3A 
B6 
CA 

35 

7E 
B7 
CA 
3 4 
CA 

2 A 

23 

23 
CD 
Bl 
CA 
22 
C3 



85 
C9 

D7 
5C 

90 
6B 
CO 

• 

86 

82 



68 
FO 
C9 



FF 
FF 

m 

FF 
IF 
18 

FF 

FF 

• 

18 

FF 



FO IB 



82 



18 
18 
FF 



6D 19 



BKT230 



FO 
C9 
39 



18 
FF 
18 



; LOCATE THE 

. J(! 3)t 3t! ♦ 3f * 5tt ^t ♦ 4i t 

BKT220 EQU 
■MVI 
EQU 
STA 
LHLD 
XCHG 
LHLD 
CALL 
JP 
LDA 
LXI 
CMP 
JZ 
LDA 
ORA 
JZ 

OCR 
MVI 

MUV 

ORA 

JZ 

ThR 

JZ 

EQl) 

LHLD 

Egu 
livx 
iwx 

CALL 

ORA 

JZ 

SHLD 

JMP 



BKT240 



BKT250 



LAST FIELD IN THE LINE ♦ 

$ 

A,MAXCOL ;SET SEARCH LIMIT 

$ 

TMPCOL ;SAVE THE SEARCH LIMIT 

LSTLIN ;G£T SEARCH START ADDRESS 
;PUT ADDRESS IN D,E 
; RECALL CHARS TO BE FOUND 
;ANy FIELDS IN LINE? 
JYES - SET DISPLAY TO FIELD 
;N0 - SEE IF TUP UNLOCKED 

;L1NE has been PEACHED 
; PEACHED MEMORY LOCK ROW? 
;YES - CONTINUE ABOVE DISPLA 



LCHKSM 

FNDLST 

BKT4 00 

MLKROW 

H,CnRROW 

M 

BKT310 

HOLLCT 

M 

BKT500 

M 

L,ROLLCT 

A,M 

A 

BKT240 

BKT500 

$ 

LSTLIN 

$ 

H 

H 

CHAIN 

A 

BKT500 

LSTLIN 

BKT220 



;POLL COUNT AND ROW = ZERO? 
;YES - NO PREVIOUS FIELD IN 

LOCKED AREA, RESTORE DISPL 
;N0 - MOVE TO PREVIOUS ROW 

;GET ROLL COUNT 
; SEARCHING ABOVE DISPLAY? 
?NU - DON'T INCREMENT COUNI 
;F.OLL OVERFLOW? 
;YES - RESTORE DISPLAY 
;M0 - LOOK TO PREVIOUS LINE 
; RECALL CURRENT LINE ADDR 

;GET ADDRESS OF PREVIOUS 

;L1N£ 
;GET PREVIOUS LINE ADDRESS 
;DOES PREVIOUS LINE EXIST? 
;N0 - RESTORE DISPLAY 
;YES - SAVE ADDRESS OF LINE 
; LOCATE LAST FIELD IN LINE 



13255-90003 
ITEM LOC 
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6663 
6664 
6665 
6666 
6667 
6668 
6669 
6670 
6671 
6672 
6673 
6674 
6675 
6676 
6677 
6678 
6679 
6680 
6681 
6682 



187A 
187A 
187A 
187A 
187A 
187A 
187B 
187C 
187F 
1880 
1883 
1886 
1886 
1886 
1886 
1886 
1887 
1889 
188A 
188D 



93 
BE 
F2 
7E 
32 
21 



35 
2£ 
34 
2A 
C3 



CO 
CO 



82 

• 

CB 
6B 



30 18 



FF 
FF 



ROW NOT FOUND AND CURSOR BELOW MEMORY LOCK 
LIME - LOCATE LAST LINE TO START 



; 

BKT300 EQU 
SUB 
CMP 
JP 
MOV 
STA 
LXI 



$ 

E 

M 

BK1210 

A, (4 

CURROW 

H,CURPOW 



;CE = » OF ROWS TO LAST LN 
;LAST ROW BELOW LOCKED AREA? 
;yfcS - START AT LAST LINE 
;N0 - SEARCH ABOVE DISPLAY 
;SET "CURROW" TO MEM LOCK RO 
;SET H,L -> "CURROW" 



FF 

18 



; NO PREVIOUS FIELDS ON DISPLAY - LOOK ABOVE DISP 

BKT310 EQU $ 

DCR M ; DECREMENT ROW NUMBER 

MVI L,ROLLCT-BASE 

INR M ? INCREMENT ROLL COUNT 

LhLD TOPLIN ;GET TOP DISPLAY LINE ADDR 
JMP BKT250 ;LOOK FOR PREVIOUS ROW 



ITEM 

6684 
6685 
6ij86 
6687 
6688 
6689 
6690 
6691 
6692 
6693 
6b94 
6695 
6o96 
6697 
669B 
6699 
6 700 
6701 
6702 
6703 
6704 
6705 
670t> 
6707 
6708 
6709 
6710 
6711 
6712 
6713 
6714 
6715 
6716 
6717 
6718 
6719 
6720 
6721 
67 22 
6723 
6724 
6725 
6726 
6727 
6728 
6729 
6730 
6731 



LOC 

1890 
1890 
1890 
1890 
1890 
1893 
1894 
1897 
189A 
189B 
189E 
18A1 
18A2 
18A5 
18A8 
18A9 
18AC 
18AC 
IftAC 
18AC 
IS AC 
iBkE 
18B1 
18B2 
18B5 
1865 
1868 
18BB 
18BE 
18BF 
18C1 
18C2 
18C5 
18C8 
18CA 
18CB 
18CE; 
1801 
18D1 
18D1 
18D1 
18D1 
18D4 
18D7 
1808 
180B 
180B 
18DB 



OBJECT CODE 
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FIELD FOUND - SET DISPLAY 



2A 
EB 
2A 
22 
EB 
22 
3A 
90 
32 
3A 
B7 
CA 



3E 
21 
86 
32 

• 

CD 
CA 
21 
34 
2E 
34 
C2 
3A 
2E 
96 
FA 
C3 



3A 
21 
96 
FA 



05 FF 



C9 

05 

• 

C9 

85 

CI 

82 



E8 
6B 



C5 
01 
CO 

• 
82 

B5 
CO 
6B 

AC 
DB 



CO 
6B 



FF 
FF 

FF 

FF 
• 

FF 
FF 



DB 18 



FF 

FF 

• 

OB 

18 

FF 



18 
FF 



18 
18 



FF 
FF 



/RESTORE VALUE OF LSTLIN 
;AND SAVE ADDRESS OF 
;HNE WHERE tXELD IS 



BKT400 EQU $ 

LHLD LADDR 

XCHG 

LHLD LSTLIN 

SHLD LADDH 

XCHG 

SHLD LSTLIN 

LUA TMPCUL ;COMPUTE COLUMN LOCATION 

sue B 

ST A CURCDL 

LDA ROLLCT 

OHA A ;RUW ABOVE DISPLAY? 

JZ BKT450 ?N0 - EXIT 

ROW above: display ROLL IT OuwM 

BKT410 FgU $ 

MVI A,-MAXH0W-1 /COMPUTE NUMBER OF LINES 
LXI H,MLKROW ;T0 ROLL FOR ONE PAGE 
ADD M 

STA ROLLCT ;SAVE ROLL COUNT 
BKT420 EQU $ 

jROLb DOWN ONE LINE 

;R0LL fail - CHECK FOR FIELD 



CALL ROLLDN 

JZ BKT430 

LXI H,CURROW 

INR M 

MVI L, ROLLCT 

INR lA 

JNZ BKT420 

LDA CURROW 

MVI L,MLKROW 

SUB M 

<m BKT410 

JMP BKT450 



;INCHF.MENT ROW NUMBER 

;PAGE COMPLETED? 

;N0 - CONTINUE POLLING 



?IS DESIRED ROW ON SCREEN? 
;N0 - ROLL DOWN ANOTHER PAGE 
;YES - EXIT 



F6 18 



ROLL FAILED - CHECK FOR FIELD ON SCREEN 

BKT430 EQU $ 

LDA CURROW ?GET CURRENT ROW NUMBER 
LXI H,MLKROW /SUBTRACT WEMRY LOCK PWS 
SUB tA ;IS FIELD ON SCREEN? 

JM BKT510 ;N0 - RESTORE DISPLAY, ROLL 

DOWN FAILED BECAUSE OF NO 
MEMORY TO FILL TO MEMORY 
LOCK LINE 



13255-90003 
ITEM LOC 
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6/33 


18DB 


• 


• 


• 










6734 


18DB 


• 


• 


• 




FiELD ON 


SCREEN 


6735 


18DB 


■ 


• 


• 










6736 


18DB 


• 


• 


• 


6KT450 


EQU 


$ 


67 37 


19DB 


3A 


CO 


FF 






LUA 


CURPOW 


6738 


18DE 


32 


C7 


FF 






SXA 


LSTHUW 


6739 


I8ei 


AF 


• 


, 






XRA 


A 


o7 40 


1862 


32 


Cd 


FF 






ST ft 


LSXCOL 


6741 


18E5 


2A 


D5 


FF 






LHLD 


LADDH 


6742 


18E8 


• 


• 


, 


BACKTS 


EQU 


$ 


67 43 


18E8 


22 


C9 


FF 






SHLD 


LSTLiN 


6744 


18EB 


2B 


a 


• 






DCX 


H 


6 7 45 


18EC 


22 


C3 


FF 






SHLD 


CURAOR 


6 7 46 


18EF 


C9 


• 


• 






RET 




6747 


18F0 


• 


• 


• 


t 
t 








6748 


18F0 


• 


• 


• 


* 


FIELD NOT FOUND 


6749 


18F0 


• 


• 


• 


; 








6750 


18F0 


• 


• 


• 


BKT500 


Egu 


$ 


6751 


18F0 


2A 


D5 


FF 






LHLD 


LAUDR 


6752 


18F3 


22 


C9 


FF 






ShLD 


LSTHM 


6753 


18F6 


• 


• 


• 


bKT510 


Eg II 


$ 


6754 


18F6 


2A 


DE 


FF 






LHIiD 


LDATA 


6755 


18F9 


22 


CO 


FF 






SHLD 


CURRGW 


6756 


18FC 


F6 


FF 


• 






OKI 


377g 


6757 


18FE 


C9 


• 


• 






PET 





PAGE 200 

- SET SCREEN VALUES 

;SET LAST ROW VALUE TO 
;P.UW FOUND 
;SET LAST COL DONE TO ZERO 

;SET ADDRESSES TO LOCATION 

;0F FIELD 
;S£T CUFADR TO CORRESPOND 

; RETURN 

- RESTORE DISPLAY 

? RESTORE LAST LINl ADDRESS 



; RESTORE CURRENT ROW AND 
; COLUMN 
;SET Z FALSE 
; RETURN NOT FOUND (NZ3 



ITEM 

6759 
6760 
676:1 
6762 
6763 
6764 
676b 
6766 
6767 
6768 
67b9 
6 7 7 
6/71 
67 7 2 
6773 
6774 
6775 
6776 
67 7 7 
67 7 8 
6779 
67 8 
6781 
67 82 
6783 
67 8 4 
6785 
6786 
67 87 
6788 
6789 
6790 
6791 



LUC 

18FF 
18FF 
18FF 
18FF 
18FF 
1902 
1905 
1908 
1909 
190B 
190C 
190F 
1912 
1912 
1912 
1912 
1912 
1915 
1917 
1918 
191B 
191E 
191F 
1922 
19^2 
1922 
1922 
19^2 
1923 
1924 
1925 
1925 
1925 



OBJECT CODE 



CD 
C2 
3 A 
3D 

BE 
CA 
F2 



3A 
2E 

Bt 
C2 
CD 
C8 



72 

02 
CI 

• 
BF 

98 
39 



6B 
CO 

22 

C5 



19 
18 
FF 



11 

19 



FF 



19 
OB 



C3 26 19 



7E 
B7 
C8 



35 
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; BKTAB - BACK TAB * 

BKTAB EQU S 

CALL CHKFMO ; FORMAT/SOFT KEY DEFINE MODE 

jnz backto ;yEs - locate previous field 

LDA CURCOL ;NU - FIND PREVIOUS SFT TAB 

DCR A ; START AT PREVIOUS COLUMN 

MVI L,LFTMGN-BASE 

ChP M ; WHERE IS CURSOR V 

JZ CUHP04 ;AT MARGlf4 - SET DISPLAY 

JP BKTIOO ; AFTER MARGIN - FIND PREV TA 



CURSOR AT BEGINNING OF 
PREVIOUS LINE 



LINE - LOCATE TAB IN 



LDA 


MLKROW 


MVI 


L,CURROW 


CMP 


H 


JNZ 


BKTOIO 


CALL 


ROLLDN 


RZ 




JMP 


BKT050 


CURSOR NOT AT TOP 



BKTOiO 



EQU $ 

MOV A,W 

OR A A 
RZ 



DCR M 



;GET MEMORX LOCK ROW 

;CURREi^iT ROw = LOCK ROW? 
;iMO - MOVE CURSOR UP ONE ROW 
;YES - POLL DOWN ONE LINE 
;CAN'T ROLL DOWM - EXIT 
;G0 LOCATE LAST TAB SET 

OF FREE AREA - MOVE UP 1 LINE 



;GET CURRENT ROW NUMBER 

;ROW = 

;YES - DON'T RACK TAB WHEN 
CURSOR IS LOCATED IN ROW 
ZERO AND DISPLAY LOCK ON 

;N0 - DECREMENT HOW NUMBER 



13255-90003 Pev AUG-01-76 a = se===r ===:s====ss 
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6793 

6794 

6795 

6796 

6 797 

6798 

6799 

6800 

6801 

6802 

6803 

6804 

6805 

6806 

6807 

6808 

6809 

6810 

6811 

6312 

6813 

6814 

b815 

6816 

6817 

6818 

6819 

6820 

6821 

6822 

6823 

6824 

6825 

6826 

6827 

6828 

6829 

6830 

6831 

6832 

6833 

6834 

6835 

6836 

6837 

6838 

6839 

6840 

6841 

6842 

6843 

6844 



1926 

1926 

1926 

1926 

1926 

1929 

1928 

192D 

1930 

1931 

1932 

1934 

1935 

1938 

1938 

1939 

1939 

1939 

1939 

19 39 

193A 

193B 

1930 

193D 

193F 

1940 

1941 

1942 

1945 

1945 

1946 

1947 

1947 

1947 

1947 

1947 

1949 

1949 

194A 

194D 

194D 

194D 

194D 

194D 

194E 

194F 

1950 

1953 

1954 

1955 

1956 

1957 



3A 
Eb 
ML 
CA 
3C 
4F 
2E 
BE 
CA 

3U 



3C 
47 
F6 

2E 

96 

4F 

7 8 

CD 

• 

3D 

A6 



81 
80 
4F 
38 



BE 



06 

07 
D2 



5F 
79 
E5 
2A 
84 
2C 
BD 
El 
FA 



BE 



ED 



BE 



PREVIOUS ROW LOCATED - LOCATE LAST TAB SET 

bKT050 EQU $ 

LDA rtTBTBL+9 ;GET LAST TAB ENTPY 

ANl 200Q ;LAST TAB SET? 

MVI A,MAXCOL ;CSET EOF LAST CULUMN-1) 

JZ BKT060 ;N0 - LOCATE LAST TAB 

IMH A ;YES - SET FOR LAST COLUMN # 

MOV C,A 

MVI L,RHTMGN-BASE 

CMP M ;RIGHT MARGlr^ = LAST COLUMN? 

j'i CURP04 ;YES - SET CURSOR TO LAST CO 

BKT060 EQU $ ;N0 - SEX TO MAXCHL-l AND 

OCR A ;L0CATE PREVIOUS TAB 

LOCATE PREVIOUS TAB (A = CURRENT COLUMN - 1) 



BKTIOO EQU 3 
INR A 



; RESTORE CURRENT COLUMN 
MOV B,A ;SAVE IT 
OHI 7Q ;SET TO COLUMN COPRESPOINDIN 

TO LAST BIT OF TAR BYTE 
MVI L,LFTMGN-BASE 



SUB M 
MOV C,A 
MOV A,B 
CALL FNDTBl 

OCR A 

ANA M 



.-COMPUTE NUMBER OF CHARS 

;T0 SEARCH 
; RECALL CURRENT COLUMN 
;GET BYTE MASK AND 

CORRESPONDING TABLE BYTE 
;SET FOP MASK TO MASK OFF 

; SUCCEEDING TABS 



LOCATE PREVIOUS TAB SETTING 

INITIALIZE BIT COUNT 



BKTllO EyU $ 

MVI B,8 

BKT120 EQU $ 
RLC 

JNC BKT150 



;TAB SET? 

;N0 - BACK UP ANOTHER COLUMN 



TAB LOCATED - SET CURSOR CC = TAB COLUMN) 



BKT130 



FF 



98 11 



Egu 

MOV 

MOV 

PUSH 

LHLD 

ADD 

INR 

CMP 

POP 

JM 



$ 

ErA 

A,C 

H 

RHTMGN 

H 

L 

L 

H 

CURP04 



JSAVE A-REGISTER 

•PUT COLUMN NUMBER IN A-REG 

;SAVE a AND L 

;GET MARGIN SETTINGS 

;COMPUTE TAB COLUMN LOCATION 

;IS TAB LOCATION BEYOND LEFT 

; MARGIN? 

; (RESTORE H AND L) 
;N0 - LOCATE TAB AND RETURN 



13255-90003 Hev AUG-01-76 
ITEM hoc OBJECT CODE SOURCE STATEMENTS PAGE*203''* 

6845 195A 7B . . MOV A,E: ;Yfc:S - RECALL A-REGISTCR 



13255-90003 



ITEM 



LOC 
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6847 


195B 


• 


6848 


195B 


• 


6849 


195B 


• 


6850 


195B 


• 


6851 


195B 


OD 


6852 


195C 


CA 


6853 


195F 


05 


6854 


i960 


C2 


6855 


I9b3 


2B 


6856 


1964 


7E 


6857 


1965 


C3 



4D 



49 



4 7 



; CONTINUE SCANNING BACKWARDS * 

BKT150 EQl) $ 

OCR C 

9 JZ BKT130 

DCR 6 

9 JhZ BKT120 

OCX H 

N^OV A,M 

9 JMP BKTllO 



;CQLUMN ZERO REACHED? 

?YES - SET CURSOR COLUMN 

;BlfTE DONE? 

;NG - CONTINUE TO NEXT CQLUM 

;VES - GET NEXT BYTE 



; CHECK BYTE FOR TAB SET 



13255-90003 Bev AUG-01-76 
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CHAIN - SET ri,L TO POINTER FROM iMEMOHY * 

ENTRY: H,L = ADDRESS Of POINTER 

EXIT : A = LSB OF POINTER 
H,L = POINTER VALUE 



6859 


1968 




6860 


1968 




6861 


1968 




6862 


1968 




6863 


1968 




6864 


1968 




6865 


1968 




6866 


1968 


> 


6867 


1968 




6868 


1968 


> 


6869 


1968 f 


:b 


6870 


1969 


» 


6871 


1969 


^D 


6872 


196A E 


:6 


6873 


196C e 


it 


6874 


196D 


> 


6875 


196D 1 


IE 


6876 


196E : 


>3 


6877 


196F e 


)6 


6878 


1970 € 


)F 


687 9 


1971 


> 


6880 


1971 C 


:9 



FO 



CHAINO 



CHAIMl 



CHAIW 



t<OFNCT 



EQU 

XCHG 

E^U 

^^OV 

ANI 

MOV 

EQU 

MOV 

INX 

MOV 

MOV 

Egu 

RfcT 



;PUT ADDRESS 
$ 

A,L ? COMPUTE 
377Q-BLKSKi ;BLOCK 
L,A ;GET THE 
$ 

ArM ;GET LSB 
H 

H,M ;PUT MSB 
L,A ;PUT LSB 
$ 



INTO H,L 



LOCATION OF VEKT 
POINTER IN BLOCK 
NEXT BLOCK ADDRESS 

OF POINTER 



INTO 
INTO 



;(NON -FUNCTION 
; RETURN 



H-REGISTEP 
L-REGISTER 
FOP ESC 



SEO 



13255-90003 



ITEM 

6B82 
6883 
6884 
6885 
6886 
68 8 7 
6888 
6889 
6890 
6891 
6892 
6893 
6894 
6895 
6896 
6897 
6898 
6899 
6900 
6901 
6902 
6903 
6904 



LOC 

197 2 
1972 
1972 
1972 
1972 
1972 
1972 
1972 
1972 
1972 
1972 
1972 
1972 
1972 
1974 
1976 
1976 
1979 
197A 
197B 
197B 
197E 
1980 



Rev AUG-01-76 
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CHKFMS - CHECK FORMAT AND SOFT KEY DEFINE MODE * 

ENTRY: DON'T CARE 

EXIT : Z - NEITHER MODE ENABLED 
A = 
NZ - MODE ENABLED 

A = -1, SOFT KEY MODE ENABLED 

A > 0, FORMAT MODE ONLX ENABLED 



2E 6C 
36 FF 



3A 
B7 
CO 



AE FF 



3 A F4 
E6 08 
C9 . 



FF 



CHKFMO EQU $ 

MVI L,SPOWL 

MVI M,SPOWOF 

CHKFMS EQU $ 

LDA DSPTYP 

ORA A 

RNZ 

CHKFMT Egn $ 

LDA MDFLGl 

ANI FORMAT 

RET 



;TURN OF SPOw LATCH FIRST 



?GET DISPLAY TYPE FLAG 
;SOFT KEY DISPLAY ON? 
;^ES - RETURN 

;N0 - GET MODE FLAGS 
;MASK FOR FORMAT FLAG AND 
; RETURN 



ITEM 

6906 
6907 
6908 
6909 
6910 
6911 
6912 
6913 
6914 
6915 
6916 
6917 
6918 
6919 
6920 
6921 
6922 
6923 
6924 
6925 
6926 
6927 
6928 
6929 
6930 
6931 
6932 
6933 
6934 
6935 



LOG 

1981 
1981 
1981 
1981 
1981 
1981 
1981 
1981 
1981 
1981 
1981 
1981 
1984 
1985 
1987 
198A 
198B 
198C 
198C 
198C 
198C 
198C 
198C 
198C 
198C 
198C 
198C 
198C 
198F 
1990 



13255-90003 Rew AUG-01-76 
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CHKMLK - CHECK FOR MEMORY LOCK ENABLED * 

ENTRY: DON'T CARE 



3 A 
2F 
E6 
21 
B6 
C9 



3A 
87 
C9 



F4 FF 



04 
6B 



FF 



AE FF 



EXTi 



Z => MEMORY LOCK ENABLED 

NZ => MEMORY LOCK NOT ENABLED 

A,H,L DESTROYED 



; 

CHKMLK 



Egu 

LDA 
CMA 
ANI 
LXI 
ORA 
RET 



MDFLGl 

MEMLOK 
H,MLKROW 

M 



;GET SOFT MODE FLAGS 

; MEMORY LOCK ENABLED 

; LOCKOUT IF MEMORY 



FOR FUL 
LOCK SE 



;AND memory LOCK ROW = 
/RETURN 



♦ !f:f;)t*;jLf)|i*j|t;t;2»if4:;t::^:^^t*:^4:4t^)(tt!t'* ♦♦♦♦♦♦♦* 

CHKSFK - CHECK FOR SOFT KEY MODE ♦ 



EXIT 



CHKSFK 



EQU 
LDA 
ORA 

RET 



Z - NORMAL MODE 

A = 
NZ - SOFT KEY DEFINE MODE 

A DESTROYED 



DSPTYP ;GET DISPLAY TYPE FLAG 
A ;SET Z FALSE IF SOFT KEY 

;0N AND RETURN 



13255 

sszss; 

ITEM 

xssss: 
6937 
6938 
6939 
6940 
6941 
6942 
6943 
6944 
6945 
6946 
6947 
694ii 
6949 
6950 
6951 
6952 
6953 
6954 
6955 
6956 
6957 
6958 
6959 
6960 
6961 
6962 
6963 
6964 
6965 
6966 
6967 
6968 
6969 
6970 
6971 
6972 
6973 



•90003 

:xs«xss: 

LOC 

1991 

1991 

1991 

1991 

1991 

1994 

1996 

1999 

1999 

1999 

199C 

199F 

19A2 

19A3 

19A4 

19A4 

19A5 

19A<? 

19A8 

19AF 

19AF 

19B2 

19B2 

19B2 

19B2 

19B5 

19B8 

19B9 

19BA 

19BB 

l9bC 

19BD 

19BF 

19C0 

19C1 

19C2 

19C4 



Pev AUG-01 

iSSSSSSSSBSSS 

OBJECT CODE 

tXSSSS33SaSSS 



CD 
3fc; 
CC 



CD 
CA 
3A 
OF 
DO 

AF 
32 
CO 
3A 
B7 
FA 



21 
3A 

BE 
D8 
46 
77 
57 
2fc: 
4E: 
C5 
79 
Eb 

n 



76 

20 
39 



8C 
A4 
CO 



98 
OA 
98 



CI 
BE 



F4 



FD 



-76 

S3Ssssssxxsasrsssaa«s3E3sares3sssssssss:s=s3ss3:==£=:: 
SOURCE STATEMENTS P^GF 20^ 

ZS8X33S3S:SeSS5SS«SSSSXS3SS«3SSX3SS3SSSSaSXSSS = S=:= = Sr 

; CD - CHARACTER DELATE » 



19 
17 



19 
19 
FF 



FF 
lA 
FF 



99 19 



FF 
FF 



DELWHP 



CHBDEL 



CHDOIO 



FQU 
CALL 

MVI 
CZ 

Egu 

CALL 

JZ 

LDA 

RhC 

HNC 

Ev^U 

XHA 

ST A 

CALL 

LDA 

OHA 

Jrt 



$ 

CHKFMS 
A.wRPDEL 
SETMF2 



CHKSFK 
CHDOIO 
CURROW 



$ 

A 

CHSAV 

CHDOOO 

CHSAV 

A 

CHHDEL 



;DELETE WITH WRAP ANUUND 
;FURMAT/SOFT KEY DEFINE inODE 

;(PUX WRAP FLAG IN A-REG} 
;N0 - SET i<»RAP AROUND FLAG 



;SUFT KEY DEFINE MODE? 

;N0 - DO DELETE 

;YES • GET CURSOR ROW 

;IN DATA LlWfc? 

;N0 - RETURM 

r-YES - DO DELETE 

;ZEPU SAVE AREA 



; DELETE A CHARACTER 
/RECALL THE DELETED CHARACTE 
;WAS IT A DISPLAY CONTROL? 
;YES - CONTINUE DELETING 

; ADJUST FOR CHARACTERS BEYOND RIGHT MARGIN ♦ 
/♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦** 



LXI H^CUHCOL 

LDA RHTMGN 

ChP M 

RC 

MOV 

MUV 

MOV 

MVI 

MUV 

PUSH 



/CURSOR BEYOND PXGHT MARGIN? 
;Y£S - DON'T CHECK WRAP 
?NU - SAVE CURRENT COLUMN 
;SET COLUMN TO RIGHT MARGIN 
/SAVE RIGHT MARGIN VALUE 
L,MDFLG1-BASE 

C,M /SAVE SOFT MODE FLAGS STATE 
b /AND CURRENT COLUMN 



B,M 
M,A 
D,A 



MOV A,C /FORCE THE INSERT CHARACTER 
ANI 377Q-INSCHR /MODE OFF 
MOV M,A 



ITEM 

6975 

6976 

6977 

6978 

6979 

6980 

6981 

6982 

6983 

6984 

6985 

6986 

6987 

6988 

6989 

6990 

6991 

6992 

6993 

6994 

6995 

6996 

6997 

6998 

6999 

7000 

7001 

7002 

7003 

7004 

7005 

7006 

7007 

7008 

7009 

7010 

7011 

7012 

7013 

7014 

7015 

7016 

7017 

7018 

7019 



LOC 

19C5 
19C5 
19C5 
19C5 
19C8 
19C9 
19CB 
19CC 
19CP 
19D0 
19D0 
19D0 
19D0 
19D0 
19D2 
19D5 
19D8 
19D9 
19DA 
19DD 
19DE 
I9fc.l 
I9e4 
19E7 
19E8 
19E9 
19EC 

i9eD 

19F0 
19F2 
19F5 
19F7 
19FA 
19FD 
19FE 
lAOl 
lAOl 
lAOl 
lAOl 
lAOl 
1A02 
1A05 
1A06 
1A08 
1A09 



OBJECT CODE 



21 

7E 
E6 
BE 
CA 
77 



3E 
32 
21 
34 
23 
3A 
77 
CD 
CC 
21 
35 
23 
3A 
77 
3A 
FE 
CA 
06 
CD 
3A 
B7 
FA 



CI 
21 

70 
2E 
71 
C9 



6F 
OF 
01 



20 
98 
CO 



CD 
19 
CO 



BE 

98 
20 
01 
00 
E2 
98 



FF 



lA 



FF 
FF 



BF FF 



06 
lA 
FF 



FF 

FF 

lA 

21 
FF 



DO 19 



C 1 FF 



F4 
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; DELETE PERFORMED - CHECK FOR WRAP AROUND ♦ 



;G£T TERMINAL MODE FLAGS 
;MASK out DELETE IwRAP FLAG 



AROUND ENABLED? 



LAI H,MFLGS2 

MOV A,M 

AMI 377Q-WRPDEL 

CMP M ; DELETE WRAP 

JZ GHD050 ;N0 - EXIT 

MOV M,A. ;YES - UPDATE MODE FLAGS 

; TRANSFER A CHRACTER UP FROM THE NEXT LINE ♦ 



CHD020 



EQU 

MVI 

STA 

LXI 

INR 

INX 

LDA 

MOV 

CALL 

CZ 

LXI 

OCR 

INX 

LDA 

MOV 

LDA 

CPI 

JZ 

MVI 

CALL 

LDA 

OKA 

JM 



A,ABLNK 

CHSAV 

H,CURROW 

M 

H 

LFTMGN 

M,A 

RCADR4 

CHRDLl 

H,CURROW 

M 

H 

RHTMGN 

M,A 

CHSAV 

ABLNK 

CHD050 

B,0 

DISPC2 

CHSAV 

A 

CHD020 



; PRESET 

;T0 A 

;SET TO 



DELETED CHARACTER 

BLANK 

DELETE FIRST 
;CHARACTER AT LEFT MARGIN 
;FR0M NEXT ROW 



;ChARACTER EXIST? 
;YES - DELETE IT 
; RESTORE ROW NUMBER AND SET 
JCOLUMN TO RIGHT MARGIN 



;GET the DELETED CHARACTER 

; BLANK CHARACTER DELETED? 

;YES - EXIT 

;N0 - SET TO FORCE ENHANCE 

; DISPLAY THE CHARACTER 

; RECALL THE DELETED CHARACTE 

;WAS IT ASCII? 

;N0 - TRANSFER ANOTHER BYTE 



; EXIT - RESTORE CURSOR COLUMN AND "MDFLGl" * 



VALUES 



CHD050 


EQU 


$ 






POP 


B 


; RECALL ORIGINAL 




LXI 


H,CURCOL 






MOV 


M,B 


; RESTORE CURSOR C 




MVI 


LrMDFLGl- 


•BASE 




MOV 


M,C 


;RES10RE "MDFLGl" 




RET 




; RETURN 



COLUMN 



13255-90003 

SSSSSSSSXS3SSS 

ITEM LOC 

ssssssaisssssss 
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::3SSSS3SSSS8S 

OBJECT CODE 
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ssKsssssszassssassssssssssssssssssassassssssssssss; 

SOURCE STATEMENTS PAGE 210 



sssssxsssssss3sxsxsBxxxxsszsssssarsss«3aBs«ss«ss3Ssasssssssxssss: 



7021 
7022 
7023 
7024 
7025 
7026 
7027 
7028 
7029 
7030 
7031 
7032 
7033 
7034 
7035 
7036 
7037 
7038 
7039 
7040 
7041 
7042 
7043 
7044 
7045 
7046 
7047 
7048 
7049 
7050 
7051 
7052 
7053 
7054 
7055 
7056 
7057 
7058 
7059 
7060 
7061 
7062 
7063 
7064 
7065 
7066 
7067 
7068 
7069 
7070 
7071 
7072 



lAOA 
lAOA 
lAOD 
lAOE 
lAli 
lAll 
1A14 
1A17 
1A18 
1A19 
1A19 
1A19 
1A19 
1A19 
1A19 
1A19 
1A19 
1A19 
1A19 
1A19 
1A19 
1A19 
1A19 
lAlA 
lAlC 
lAlD 
IA20 
1A21 
1A22 
IA22 
IA22 
1A22 
1A22 
1A25 
1A28 
1A29 
1A2B 
1A2E 
1A2E 
1A2E 
1A2E 
1A30 
1A33 
IA35 
1A38 
1A38 
1A3E 
1A3F 
1A41 
1A44 
1A44 
1A46 



CHDOOO 



CD 
CO 
CO 

CD 
CA 
04 
C8 



lA 
FE 
CB 
32 

62 
6B 



FE 
CA 
FE 
CA 
CD 
CA 
78 
FE 
CA 



CD 06 



9A 
• 

7B 
19 



CC 



98 FF 



CD 87 

C2 74 

47 . 

FE CO 

DA 49 



CC 
88 
C3 
70 
91 
49 

CO 
9D 



FE C5 
F2 22 



EQU 


$ 


CALL 


RCADR4 


RHZ 




CALL 


CHD500 


CALL 


CHKFMT 


JZ 


CHUIOQ 


INR 


B 


RZ 





IDOES CHARACTER EXIST? 

;N0 - RETURN 

;SKIP OVER SINGLE DISPLAY 

ENHANCEMENT CODE 
;FOPMAT MODE? 

?N0 - DELETE THE CHARACTER 
;CURSOR IN PROTECTED FIELD? 
;YES - RETURN 



CHRDLl - DELETE ONE CHARACTER » 



ENTRY: C « CHARACTER COLUMN POSITION 

D,E » ADDRESS OF CHAR TU BE DELETED 

EXIT 2 ALL REGISTERS DESTROYED 

CHSAV s CHARACTER DELETED (UNCHANGED 
It A CHARACTER HAS NOT BEEN DELETED) 



HRDLl EQV $ 

HDIOO Egu $ 

LDAX D 

CPT EOL ; 
RZ ; 

STA CHSAV 

MOV H,D 

MUV L,E 

; MOVE CHARACTERS DOw 

CHDllO EQU $ 

OB CALL NXTCHR 

A JNZ CHD210 

MOV B,A 

CPI ENHLIM+l 

A JC CHDUO 

t FORMAT CONTROL CODE 

CPI EOL 

A JZ CHD250 

CPI FILL 

A JZ CHD200 

A CALL CHD400 

A JZ CHDUO 

MOV A,B 

CPI STPR 

C JZ CLEP02 



; 



CPI 

jp 



ALPHA 
CHDllO 



IGET CHARACTER TO BE DELETED 

IS IT EOL? 

YES - RETURN 
;SAVE THE DELETED CHARACTER 
|H,L a ADDR OF CHAR TO FILL 
;D,E « ADDR OF CHAR TO MOVE 

N TO PREVIOUS POSITION ♦ 

IGET THE NEXT CHARACTER 
;F0L LINK - TERMINATE DELETE 
;SAVE CHARACTER IN B-REGISTE 
?ASCII OR ENHANCEMENT CODE? 
;YES - SEE IF PAST MARGIN 

FOUND - CHECK FUNCTION ♦ 

;END OF LINE? 
;YES - TERMINATE DELETE 
;END OF LINE FILL? 
;YES - TERMINATE DELETE 
;FORMAT MODE & DELETE ASCII? 
;N0 - MOVE NEW CHARACTER 
;YES - GET CHAR TO BE MOVED 
IIS IT START PROTECT? 
;YES - CLEAR REST OF FIELD 

AND TERMINATE DELETE 
;TYPE DEFINITION? 
;YES - SKIP OVER CHARACTER 
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ITEM hoc OBJECT CODE SOURCE STATEMENTS PAGE 2U 

7074 1A49 • • • ; tJit^^it^^^ttf *)|i:(t*^*f Ht**j»t)»!:»(*f»**********f ♦**♦ 

7075 1A49 . . . ; CHARACTER TO BE MOVED - CHECK MARGIN ♦ 

7076 1A49 • . • . ♦jJtJlE^f }tt!(t4;*^;»!j|t^)»:f)»!*m:|tj»:f j^ti^tff 4:!^*:)c*4ct»****» 

7077 1A49 . • • CHD120 EgU $ 

7078 1A49 3A BE FF LDA RHTMGN 

7079 1A4C 89 , . CMP C ;CHAR FROM BEYOND MARGIN? 

7080 1A4D C2 57 lA JNZ CHD130 ;N0 - CONTINUE DELETE 

70B1 1A50 3A 98 FF LDA CHSAV fYES - GET DELETED CHARACTER 

7082 lAb3 B7 . . ORA A ;IS IT ASCIIS 

7083 IA54 36 20 . MVI M^ABLNK ;(SET BLANK BY DEFAULT) 

7084 1A56 FO . . RP ;YES - TERMINATE DELETE 

7085 1A57 . . . ; NO - PUT CHAR INTO PREV CHAR 

7086 1A57 . • • ;*4t*j^»;|t#4:***:^***4t*4*************************»#**** 

7087 1A57 , , . ; HOVE CHARACTER IWTO PREVIOUS CHARACTER POSITON * 

7088 1A57 ... .♦♦♦4;*»*a|c*)^J»;^*4f)it4!**:^*4:*)|t***!rf ♦♦♦**♦*♦♦♦♦*♦**♦**♦♦ 

7089 1A57 . , • CHD130 EyU $ 

7090 lAb7 70 . . MOV M,ti ; REPLACE PREVIOUS CHARACTER 

7091 1A58 78 . • MOV A,B 

7092 1A59 8/ . , ORA A ?IS CHARACTER ASCII? 

7093 1A5A FA 5E lA JM CHD140 ;N0 - ADVANCE TO NEXT CHAR 

7094 1A5D OC • . INR C ;YES - INCREMENT COLUMN » 

7095 1A5E . . . CHD140 E^U $ 

7096 1A5E CD 86 OB CALL NXTCHO ;GET THE NEXT CHARACTER 

7097 1A61 FE C5 , CPI ALPHA ;T^PE DEFINITION? 

7098 1A63 DA 6C lA JC CHU150 ;N0 - CONTINUE MUVING CHARS 

7099 1A66 CD 91 lA CALL CHD400 ;FOPMAT MODE & DELETE ASCII? 

7100 1A69 C4 87 OB CNZ iMXTCHR ;YES - ADVANCE TO NEXT CHAR 

7101 1A6C , . • CHD150 EQU S 

7102 1A6C EB . , XCHG ;RESTGRE REGISTER POSITIONS 

7103 1A6D C3 22 lA JMP CHDllO ;MOVE NEXT CHARACTER 
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ITEM 



LOC 
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7105 


1A70 


• 






7106 


1A70 


• 






7107 


1A70 


« 






7108 


1A70 


• 






7109 


1A70 


• 






7110 


1A70 


CD 


68 ] 


L9 


7111 


IA73 


EB 






7112 


1A74 


• 






7113 


1A74 


• 






7114 


1A74 


■ 






7115 


1A74 


• 






7116 


1A74 


• 






7117 


1A74 


CD 


91 1 


A 


7118 


1A77 


EB 






7119 


1A78 


26 






7120 


1A79 


• 






7121 


1A79 


C2 


8C 1 


• A 


7122 


1A7C 


• 






7123 


1A7C 


3A 


98 I 


^F 


7124 


1A7F 


B7 






7125 


1A80 


F2 


8C 1 


A 


7126 


IA83 


3E 


C3 




7127 


1A85 


C3 


61 1 


IC 



END OF LIN 
REST OF 

HD200 EQU 
CALL 
XCHG 

f 4: jfc )(t :^ * « f f ]): t 

END OF LIN 
THE LINE 
♦♦♦♦♦♦*♦♦♦♦ 
HD210 EQU 
CALL 
XCHG 
DCX 



LDA 

ORA 

JP 

MVI 

JMP 



E FILL CHARACTER FOUND - CLEAR THE * 
THE Lli^E ♦ 

4;:^Jitit;;)t»4:3|ts^4:j|t3f)^3|ts(c^:#:4t***#* ♦♦♦♦*♦*♦♦*♦♦* 
$ 

CHAIMO ;GET END OF LINE LINK IN H,L 
; EXCHANGE H,L AND D,E 

E LINK FOUND - CLEAR THE REST OF * 

♦ 

$ 

/FORMAT MODE & DELETE ASCII? 

;(SET D,E TO LAST CHAR ADD 
;h,L TO LSB OF NEXT LINE 
LINK) 
;YES - CLEAR REST OF FIELD 

TO LSB OF NEXT LINE LINK 
; RECALL DELETED CHARACTER 
;WAS IX ASCII? 
;YES - END LINE WITH EOL 
;NQ - END LINE WITH FILL 
fCLEAR REST OF LINE 



CHD400 



JNZ CHD260 



CHSAV 
A 

CHD260 
A, FILL 
CLERLl 
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ITEM 

7129 
7130 
7131 
7132 
7133 
7134 
7135 
7136 
7137 
7138 
7139 
7140 
7141 
7142 
7143 
7144 
7145 
7146 
7147 
7148 
7149 
7150 
7151 
7152 



LOG 

1A88 
1AB8 
1A88 
1A88 
1A88 
1A8B 
1A8C 
1A8C 
IA8E 
1A91 
1A91 
1A91 
1A91 
1A91 
1A91 
1A91 
1A91 
IA91 
IA91 
1A91 
1A94 
iA95 
1A98 
1A99 
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; EOL FOUND - CLEAK 
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CD 
2B 

3E 
C3 



3A 
67 
F2 
AE 
C9 



68 



CC 
61 



FF 
9 



1^ i^t*'^^*^** ^if^* ******* t If* 
THE HFST OF THE LINE * 

lif 4 iliHi:i\f!t-^:^t ********************** ********** 



CHD250 FQU $ 

CALL CHAINO 

DCX H 

CHD260 EQU $ 

MVT A, EOL 

JMP CLERLl 

CHD400 - CHECK FQ 
DISPLAYABLE ASC 

:tliilf.i(fl4i(f 4 t**** ******* 



;GET EOL LINK IN H,L 
;SET TO LSB OF NEXT LINE LIN 
; CLEAR THE REST OF THE LINE 
;TERMlNATIi^^G WITH AN EOL 

^iffit**** ******************** 
R FORMAT MODE ENABLED AND ♦ 
II CHARACTER DELETED * 

j^jj;;*' 4* jjij^t** ♦♦♦*♦♦♦ ♦***»♦*♦* 



EXIT 



NZ - FORMAT MODE AND DELETE ASCII 
Z - NOT FORMAT MODE Ok NON-DISPLAY 
CODE DELETED 



CHD400 



EQU 

LDA 

ORA 

JP 

XRA 

RET 



$ 

CHSAV 

A 

CHKFMT 

A 



;GET CHARACTER DELETED 
;IS IT DISPAXABLE ASCII 
;YES - CHECK FOR FORMAT 
:NU - RETURN Z 



MODE 



13255-^0003 
ITEM LOC 



7154 
7155 
7156 
7157 
7158 
7159 
7160 
7161 
7162 
7163 
7164 
7165 
716o 
7167 
7168 
7169 
7170 
7171 
7172 
7173 
7174 
7175 
7176 
717 7 
7178 
7179 
7180 
7181 
7182 
7183 
7184 
7185 
7186 
7187 
7188 
7189 
7190 



1A9A 
1A9A 
IA9A 
1A9A 
1A9A 
1A9A 
1A9A 
IA9A 
1A9A 
1A9A 
1A9A 
1A98 
1A9C 
1A9D 
1A9E 
lAAO 
lAAl 
lAAl 
1AA4 
1AA7 
lAAB 
lAAB 
lAAE 
lAAE 
lAAF 
lABO 
lABO 
lABO 
lABO 
lABO 
lABl 
1A84 
1AB4 
1A64 
1AB4 
1AB4 
1AB5 
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CHU500 - CHECK FOR DISPLAY EHANCEMENT UELETE ♦ 

ENTRY: D,E = CHARACTER TO BE DELETED 

EXIl : D,E = ACTUAL CHARACTER 10 DELETE 
A,L DESTROYED 



lA 

87 

DO 

F8 

2E 

D5 

• 

CD 

C2 

87 

D2 

FA 

Dl 
C9 



2D 
C2 



Dl 
C3 



02 



87 
AE 

BO 
Al 



OB 
lA 

• 

lA 
lA 



Al 



CHD500 



CHD510 



CHD515 



; ASCII 
CHD520 



; NEXT 
; DON 



87 08 



EQU $ 

LDAX D 

ADD A 

RNC 

RM 

MVl L,2 

PUSH D 

Egu $ 

CALL NXICHR 
JtiZ CHD515 
ADD A 
JNC CHD520 
JM CHD510 

Egu S 

POP D 
RET 

CHARACTER F 

EQU $ 
DCR L 
ONZ CHD510 

4i :^ f ate j|c ;|c 4: f i(c 9|( * «: 

ASCII CHAHAC 
•T DELETE Dl 

POP D 

JMP MXTCHR 



;GET CHARACTER TO BE DELETED 
;DISPLAY ENHANCEMENT CODE? 
; ASCI I - LET IT BE DELETED 
; FORMAT CONTROL - DELETE IT 
;YES - LOOK FOR POSSIBLE 

/double ehancement code 

;get the next character 
;exit if egl link 

; ENHANCEMENT CODE? 

; ASCI I - CHECK FOR SCAN DONE 

; FORMAT CONTROL - CONTINUE 

;YES - DELETE ENHANCEMENT 

OUND - CHECK FOR SCAN DONE * 

;NeXT ASCII CHARACTER FOUND? 
;N0 - CONTINUE SCAN 

TER OH EOL LINK FOUND - ♦ 
SPLAY ENHANCEMENT CODE ♦ 

; RECALL ORIGINAL ADDRESS 
;SET TO DELETE NEXT CHAR 
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1^ 4ilc:^f.'^f :^Tili:^f^ t ****** ^t*^**^**^*'¥^'¥*****t^^* 4 ****** 

CHRDL2 - DELETE CHARACTEH w/REGISTEP SAVE * 

:^:^:^4i:^}^^:^if:3lliilli3ifilf^ili: It'*** ****************** ******* 



7192 


1AB8 




7193 


1AB8 




7194 


IAB8 




7195 


1AB8 




7196 


1A68 




7197 


1AB8 




7198 


1AB8 




7199 


1AB8 




7200 


1AB8 




7201 


1AB8 




7202 


1AB8 




7203 


1AB8 




7204 


lAfe8 C 


:5 


7205 


1AB9 r 


>5 


7206 


lABA C 


:d 


7207 


lABD f 


)i 


7208 


lABE C 


:i 


7209 


lABF 1 


3 


7210 


lACO C 


:9 



ENTRY: 



EXIT 



C = CHARACTER COLUMN POSITION 

D,E = ADDRESS OF CHAR TO BE DELETED 



B,C = 
D,E = 
A,H,L 



B,C(ENTRY) 
D,e(ENTRY) 
DESTROYED 



-♦• 1 



CHRDL2 EUU $ 
PUSH B 
PUSH U 
CALL CHRDLl 
POP D 
POP B 
INX D 
RET 



a,c 



;SAVE REGISTERS 

;AND D,E 
/DELETE THE CHARACTER 
; RESTORE REGISTER D,E 

;AND B,C 
; INCREMENT D,E 
; RETURN 
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ITEM 



LOC 



7212 


lACl 








7213 


lACl 








7214 


lACl 








7215 


lACl 








7216 


lACl 








7217 


lACl 








7218 


lACl 








7219 


lACl 








7220 


lACl 








7221 


lACl 








7222 


lACl 








7223 


lACl 








7224 


lACl 








7225 


lACl 








7220 


lACl 








7227 


lACl 








7228 


lACl 








7229 


lACl 








7230 


lACl : 


\2 i 


^9 f 


T 


7231 


1AC4 : 


\E f 


^F , 




7232 


1AC6 • 


12 « 


)1 E 


T 


7233 


1AC9 C 


:d C 


:d ( 


)6 


7234 


lACC C 


12 I 


:9 : 


n 


7235 


lACF 


» • 


> 1 


» 
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CHRINS - INSERT CHARACTER * 
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ENTRY: A = CHARACTER TO BE INSERTED , 

CURROW,CUHCOL = DISPLAY POSITION WHERE 
INSERT IS TU BE DONE 

EXIT : A = 0, INSERT NOT DONE 
A # 0, INSERT PERFORMED 
DCHAR DESTROYED 
B-L DESTROYED 

CHARACTER IS INSERTED IMMEDIATELY AHEAD OF THE 
CHARACTERS LOCATED AT THE SPECIFIED ROW AND 
COLUMN POSITIONS 



CHRINS EyU $ 

ST A DCHAR 
MVI A,J77Q 
STA BLKFIL 
CALL RCADR4 
JNZ DISPLA 



;SAVE CHAR TO BE INSERTED 
/INHIBIT LINE EXTENSION 

;DOES DISPLAJ^ POSITION EXIST 
;N0 - TRY TO EXTEND LINE 
YES - INSERT THE CHARACTER 



ITEM LOC 



OBJECT CODE 



7237 
7238 
7239 
7240 
7241 
7242 
7243 
7244 
7245 
7246 
7247 
7248 
7249 
7250 
7251 
7252 
7253 
7254 
7 255 
7 256 
7257 
7 258 
7259 
7260 
7261 
7262 
7 263 
7264 
7265 
7266 
726 7 
7268 
7269 



lACF 
lACF 
lACF 
lACF 
lACF 
lACF 
lACF 
lACF 
lACF 
lACF 
lACF 
IA02 
1AD5 
1AD5 
1AD7 
1AD8 
1AD9 
1A09 
lADA 
lADB 
lADE 
lADF 
lADF 
lAEO 
lAEl 
1AE2 
1AE3 
1AE5 
1A£6 
lAe9 
lAEC 
lAED 
lAEE 



2£ 
46 
EB 

78 
87 
FA 
OC 

7E 
70 
47 
2B 
3E 
R9 
CA 
3A 
3C 
B9 
CA 



CD 65 10 
CA D4 22 



89 



OF 



50 

91 

BE 



IB 
FF 
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; CRIIOO - ENTRY TO STORE CHARACTER FOR INSERT ♦ 
; CHARACTER MODE * 



ENTRY: C = COLUMN NUMBER 

D,E = ADDR WHERE INSERT IS TO BE MADE 
H = BASEH 



CRIIOO EQU $ 

CALL CKPROT 

JZ OIS092 
CRI104 EQU S 

MVI L,DCHAR-BASE 



;CURSOR IN PROTECTED FIELD? 
;YES - TAB TO NEXT FIELD 



MOV B,M 

XCHG 
CRIllO EQU $ 

MOV A,B 

OH A A 

JM CR1120 

INR C 
CR1120 Egu $ 

MOV A,M 

MOV M,P 

MOV B,A 

DCX B 



;GET CHAR TO BE INSERTED 
;PUT CHAR ADDRESS INTO H,L 

;IS THIS CONTROL CODE? 

;YES - DON'T COUNT COLUMN 
/INCREMENT COLUMN 



89 IB 



?GET CHAR IN CURRENT ADDR 
; STORE NEW CHAR 
;SAVE OLD CHAR IN b 

;MOVE TO K'EXT CHARACTER 
MVI A,MAXC0L+1 

CHP C ; STORE DONE AT END OF LINE? 

JZ CRI305 fYES - TERMINATE INSERT 
LDA RHTMGN ;GET RIGHT MARGIN COLUMN 
INR A ;WAS THE LAST STORE DONE 

CMP C ;AT THE RIGHT MARGIN? 

JZ CRI300 ;yES - terminate INSERT 



13255-90003 
ITEM LOC 
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7271 


lAFl 


• 




• 


1211 


lAFl 


• 




• 


1211 


lAFl 


• 




• 


7274 


lAFl 


• 




• 


7275 


lAFl 


7E 




• 


7276 


1AF2 


FE 


CO 


• 


7277 


1AF4 


DA 


D9 


lA 


7278 


IAF7 


FE 


DO 


• 


1219 


1AF9 


D2 


5D 


16 


12S0 


lAFC 


FE 


CC 


• 


7281 


lAFE 


CA 


39 


IB 


7282 


IBOl 


FE 


C3 


, 


7283 


1B03 


CA 


44 


IB 


7284 


1B06 


3A 


89 


FF 


7285 


1B09 


87 


• 


• 


7286 


IBOA 


FA 


D9 


lA 


7287 


IBOD 


CD 


76 


19 


7288 


IBIO 


CA 


D9 


lA 


7289 


1B13 


7E 


• 


• 


7290 


lBi4 


FE 


CO 


• 


7291 


iei6 


CA 


22 


IB 


7292 


1B19 


FE 


C5 


• 


7293 


IBIB 


FA 


D9 


lA 


7294 


IPIE 


2B 


• 


• 


7295 


IBIF 


Ci 


Fl 


lA 



-76 

SOURCE STATEMENTS 

; PROCESS NEXT CHAHAC 
;♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦ 
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CPI140 EQU 


$ 


MOV 


A,M 


CPI 


ENHLIM+1 


JC 


CPI no 


CPI 


LNKUM 


JNC 


CRI200 


CPI 


EOL 


JZ 


CRI158 


CPI 


FILL 


JZ 


CRI159 


LDA 


DCHAH 


OHA 


A 


JM 


CRIIIO 


CALL 


CHKFMS 


JZ 


CRIUO 


MOV 


A,M 


CPI 


STPR 


JZ 


CRI150 


CPI 


ALPHA 


JM 


CRIUO 


DCX 


H 


JMP 


CPI140 



*♦ f ;(!♦,»♦ jf f i|t * jf: 3jt 4: 

TER OF BLOCK ♦ 
♦*♦♦**♦♦♦♦*♦♦♦ 

;GET THE NEXT CHARACTER 

; ASCII OR DISPLAJf CONTROL? 

;YES - MOVE THE BYTE 

;IS IT A LINK BYTE? 
YES - MOVE TO NEXT BLOCK 
IS IT END OF LINE? 

YES - ADD LAST CHAR TO LINE 

END OF LINE FILL CHARACTER? 

YES - ADD BYTE TO END 

NO - FIELD CHECK CHARACTER 

IS ADDED CHARACTER ASCII? 

NO - CONTINUE IWSERT MOVE 

FORMAT -MODE ENABLED? 

NO - CONTINUE INSERT 

YES - RECALL THE BYTE 

IS CHARACTER A START PROT? 

YES - CHECK INSERT TYPE 

FIELD TYPE DEFINITION? 

NO - CONTINUE INSERT 

YES - ADVANCE TO NEXT BYTE 

LOOK rO NEXT CHARACTER 



ITEM 

7297 
7298 
7299 
7300 
7301 
7302 
7303 
7304 
7305 
7306 
7307 
7308 
7309 
7310 
73U 
7312 
7313 



l.OC 

IB22 
1822 
1B22 
1B2? 
1B22 
1B23 
1B24 
1B27 
1B27 
1B2A 
1B2D 
1B2F 
1B2F 
1B2F 
1B32 
1B35 
1B36 
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78 

67 

F2 

• 

CD 

FA 

36 



CO 
FA 
2B 
C3 



2r IB 



2E 
27 

80 



2t: 

2F 



IC 
IB 



IC 
IB 



; END OF FIELD - ASCI 



CR1150 



CR1152 



CRI154 



9D IC 



EQU 
MOV 
ORA 
JP 

Eyu 

CALL 

JM 

MVI, 

EQU 

CALL 

JM 

OCX 

JHP 



$ 

A,B 

A 

CRI154 

$ 

CHI500 

CHI152 

M,200Q 



CRI500 
CRI154 

CLKRU2 



I CODE INSERTED ♦ 

;GET CHAR WHICH ROLLED OFF 
MS IT ASCII? 

;YES - DELETE PREV CONTROLS 
;N0 - BACK UP ANOTHER CHAR 
;IS PREVIOUS CHARACTER ASCII 
;N0 - CONTINUE BACKING UP 
;ytS - TEWPORARILY REPLACE 
ASCII WITH DUM.MY CONTROL 

; PREVIOUS CHARACTER ASCII? 
;N0 - CONTINUE BACKING UP 
;MOVE TO NEXT CHARACTER 
; CLEAR REST OF FIELD 



13255-90003 
ITEM LOC 
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7315 
7316 
7317 
7318 
7319 
7320 
7321 
7322 
7323 
7324 
7325 
7326 
7327 
7 328 
7329 
7 330 
7331 
7332 
7333 
7334 
7335 
7336 
7337 
7338 
7339 
7340 
7341 
7342 
7343 
7344 
7345 
7346 
7347 
7348 
7349 
7350 
7351 



1B39 
1B39 
1B39 
1B39 
1B39 
1B39 
1B3A 
1B3B 
1B3E 
IB3F 
1B41 
1B44 
1B44 
1B45 
1846 
1B47 
1B47 
1B47 
1B47 
1B47 
1B47 
1B48 
1B48 
1B49 
1B49 
1B4C 
1B4D 
1B4F 
1B50 
1B51 
IB52 
1B54 
1B54 
1B57 
1B58 
1B5B 
1B5C 



78 
B7 
FA 
79 
FE 
C2 

70 
B7 
C9 



OD 
EB 

21 

70 
2£ 
46 
C5 
71 
0£ 

CD 
CI 
21 
70 
C9 



47 

4F 
48 



89 Ft 



CI 



00 



AB 08 



CI FF 



EOL FOUND 

ADD LAST CHARACTER 

RI158 EQU $ 

MOV A,B 
ORA A 

JM CR1160 
MOV A,C 
CPI MAXCOL 
JNZ CRI170 
EQU $ 
MOV .M,B 
GRA A 
RET 

4: ^ 4= :|! :(L :(( 4f f 4: f f f ]»: f 

CANNOT BE OVER 
NEW CHAR TO LI 
4 *♦ 1; *♦*♦♦*♦♦ f ♦ 

EQU $ 

DCR C 
RI170 EQU $ 

XCHG 
R1180 EgU S 

LXI H,DCHAR 

MOV M,B 

MVI LrCURCOL 

MOV B,M 

PUSH B 

MOV h,C 

MVI CO 

CALL DISPLl 

POP B 

LXI H,CURCOL 

MOV M,B 

RET 



CRI159 



; EOL 
; ADD 
; ♦ ♦ ♦ ♦ ♦ 

CRil60 

C 

C 



TO LINE ♦ 

;GET CHARACTER 

;IS THIS CONTROL CHAR? 

;YES - ADD CHAR 

;N0 - CHAP IS ASCII 

;IS THIS MAX COLUMN? 

;N0 - ADD CHAP 

; ASCI I CHARACTER INSERTED TO 
/MAXIMUM COLUMN - OVERLAY 
;E0L AND RETURN HZ 

LA if ED » 
NE ♦ 

4: t 4l 4; 4i ;f ;tc 



;PUT H,L INTO D,E 

;SAVE CHARACTER TO BE ADDED 

-BASE 

;G£T CURRENT CURSOR COLUMN 

;AND SAVE IT 
;SET "CURCOL" TO INSERT COL 
;SET # OF CHAPS NEEDED TO 1 

(VALUE IN C IS ONE LESS) 
; BUILD NECESSARY BLOCKS 
; RESTORE ORIGINAL CURSOR 

;COLUMN NUMBER 

; RETURN (A=MEMORY LOCK STATE) 



Ji?b5-90003 
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7 35 3 

;3t>4 

7355 

7 35o 

7 357 

7 35d 

7359 

7 360 

7 301 

7362 

7 36 3 

73b4 

7 365 

7366 

7367 

736b 

7369 

7 370 

7371 

7 3 72 

7373 

7374 

7375 

7376 

7 37 7 

7378 

7379 

7380 

7381 

7382 

7363 

7384 

7385 

7386 

7387 

7388 

7389 

7390 



LOC OBJECT coup: SOiiRCF STAlFHElNTi 



t^AGF 721 



1B5D 

1B5D 

1B5D 

1B5D 

1B50 

IB60 

1B61 

IB62 

1B6 3 

1B65 

lBb8 

1B6B 

1B6C 

IBbF 

1B6E: 

IB6E 

IB6E: 

1B6F 

lB/2 

1 B 7 3 

iB7 4 

IB75 

1B76 

IP77 

1 B 7 A 

IP7B 

1B7E: 

IBdl 

1B82 

IBH? 

168 3 

1B83 

IB83 

IB83 

1B83 

1B83 

1386 

IB88 



22 

2B 
7h. 
2K 
Eb 
C2 
CD 
C3 



78 
32 
23 
2J 

46 
itb 
00 
CO 
87 
CA 
3 A 
12 

C9 



2A 
30 

C9 



96 F¥ 



bO 
Ft 



83 
90 



94 
CC 



IB 
19 
lA 



90 F 



F 



49 IB 



IB 

FF 



FF 



? LI(\tK FUIIND - MUVt, TO NlX'I BLUCK » 

CP1200 KwU $ 

LNKSAV 
H 

A,M 



SHLO 

OCX 

MOV 

CMA 

ANl 

JivZ 

CALL 

Jf^.P 



r'SAVt CUHRENT bLUCK ADORESS 
;Gt/J' ItiK LbB OF THt: LINK 



;IS AT AN tOL LIi^K (LdwFH 
BLKSM JFUOH blXvS NUT ALL 0nF3)V 
CR1240 ;YtvS - FaTENO IHL LINF 
CHAIN ;U0 - GFl IvdiXT BLUCK ADDKf-ISS 
CP114() ;COMTlrtUfc l^JSFRT CHAHACTbR 



; NFW BLOCK RKyillREO ♦ 
CP1240 FyU $ 



MOV 


A,B 


Si A 


i'FhP 


Ti.MX 


H 


T(NiX 


H 


MUV 


b,M 


XCHG 




DCR 


C 


CALL 


CR1180 


OHA 


A 


JZ < 


':Kt260 


LOA 


rFMP 


SlAX 






Rh.T 

; bLUCK NOI AVAILArfLt. * 

; WRITL fcOL AT END Of LAST BLOCK ♦ 

CP1260 Egu S 

LHLD FOLAOR ;GtT AOR OF CHR 

MVl M,FUL ;WRITF EDL 

«ET ; RETURN 



;SAVt CHARACTER BEING MO^FO 

;GET THE LASl CHARACIFH UF 
;ThF CURKEl^li BLOCK TO BE 
;STnREO AGAIN IM THE vSAME 
;LuCATiON BY "OIciPLl" 

;Get column i» UF phfv chak 

;A0D BiiOCK 

;l£) MEMORY LuCkEO? 

;YES - BLOCK NiuT ADDED 

;N0 - RECALL CHAR TO BE ADOF 
;PUT CHARACTER la NEW BLUCK 

COVERK'HlXF FUL) 
? RETURN 



BEFORE J.HK 



13255-90003 
ITEM I.OC 
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OBJECT COOF 



7392 

7 393 

7394 

7 395 

7396 

7397 

7 398 

7399 

7400 

7401 

7 402 

7403 

7404 

7 405 

7406 

7407 

7408 

7409 

7410 

7411 

7412 

7413 

7 414 

7415 

741t> 

7417 

7418 

7419 

7420 

7421 

7 422 

7423 

7424 

7425 

7426 

7 427 

7428 

7429 

7430 

7 431 

7432 

7 433 

7434 

7435 

7436 

7437 

7438 

7439 

7440 



1B89 

1B89 

1B89 

1B89 

1B89 

1B89 

1B89 

IB8C 

1B8D 

1B90 

1B91 

1B91 

1B94 

1B97 

1B98 

1B9B 

1B9C 

1B9F 

IBAO 

1BA3 

1BA4 

1BA7 

IBAA 

IBAB 

IBAE 

IBAF 

IBAF 

IBAF 

IBAF 

IBAF 

1B62 

1BB3 

1BB5 

1B68 

IBBA 

IBBD 

IBCO 

IBCI 

1BC2 

1BC3 

1BC3 

1BC6 

IBC7 

IBCA 

IBCD 

IBCF 

1BD2 

1B03 

1BD5 



3A 89 FF 

B7 • • 

FA Fl lA 

79 . 



2A 
EB 
3£ 
32 

oe 

CD 
3A 
47 
04 
C8 

CD 
B7 
FA 
3A 
FE 
2A 
CB 

CC 



D7 
96 



32 

22 

EB 

CD 

13 

CD 

EB 

22 

78 . 

CA C3 

CO CO 

B7 . 

F2 

C9 



FF 
98 
50 
19 
98 



AF 
Dl 
50 
96 

C3 
5fc: 



FF 
FF 



05 26 



87 OB 



D5 FF 



IB 
13 



08 IB 



-76 

SOURCE STATEMENTS 

; RIGHT MARGIN OR E 
; TERMINATE AND OPT 
; TO THE NfcXT LINE 

CP1300 Egu $ 

LDA DCHAR 
ORA A 
JM CRI140 
MOV A,C 

CRI305 EgiJ $ 

STA PARM5 

SHLU LNKSAV 

XCHG 

CALL INITDl 

INX D 

CALL NXTCHR 

XCHG 

SHLD PARM6 

MOV A,& 

JZ CR1320 

CALL A20UTB 

ORA A 

JP CRI330 

RET 



D5 FF 



FF 
• 

lA 
FF 



CO 13 



IB 
FF 

• 
FF 



IC 
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*♦♦»♦♦♦♦♦♦**»♦♦*♦♦♦*♦♦♦♦* 
ND OF LINE REACHED - * 
lONALLY PUSH CHARACTERS * 
(wRAP AROUND) * 

;GLT THE INSERTED CHARACTER 
;IS IT ASCII? 
;N0 - CONTINUE INSERTING 
?YES - RECALL ENDING COLUMN 

;SAVE ENDING COLUF^W NUMBER 
;SAVE ENDING CHARACTER ADDR 
;PUT ENDING ADDRESS IN D,E 
;INIT CHAP BUFFER POINTERS 
;GET ADDRESS OF NEXT EXCESS 
; CHARACTER 

;ARE WE AT AN EOL LINK? 

;(PUT 1ST EXCESS CHAR IN A 
;MU - ACCUMULATE EXCESS 
;YES - SAVE FIRST EXCESS CHA 
;IS IT ASCII? 

;YES - CHECK FOP INSERT WRAP 
;N0 - RETURN 



ACCUMULATE THE EXCESS CHARACTERS 



CR13iO EUU 
LHLD 
XCHG 
MVI 
STA 
MVI 
CALL 
LDA 
MOV 
INR 
RZ 

CRI320 EQU 
CALL 
ORA 
JM 
LDA 
CPI 
LHLD 
XCHG 
MVI 
CZ 



$ 
PARM6 

A,-l 

CHSAV 

CMAXCOLf 

CHRDLl 

CHSAV 

B,A 

B 



A2QUTB 

A 

CRI310 

PARM5 

MAXCOL+l 

LNKSAV 

A, FILL 
CLERLO 



;RECALL EXCESS CHAR ADDRESS 
;PUT ADDRESS INTO D,E 
;SET DELETED CHAR TO -1 

1 ;FOPCE DELETE PAST MARGIN 
DELETE ONE EXCESS CHARACTER 
RECALL THE DELETED CHARACTE 
SAVE THE CHARACTER IN B-REG 
ANY CHARACTER DELETED? 
NO - RETURN (A#0) 
YES - ACCUMULATE EXCESS 
PUT DELETED CHAR INTO BUFFE 
WAS DELETED CHARACTER ASCII 
NO - CONTINUE ACCUMULATING 
RECALL ENDING COLUMN NUMBER 
TERMINATE ON LAST COLUMN? 
; (RECALL ENDING CHAP ADDR) 

;(SET FOR FILL PAD) 
;YES - CLEAR REST OF LINE 



U2b5-90003 



ITEM 



LOC OBJECT CnOE SOURCE STAIirMEt^TS 



Hev AUG-01-7b 
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7442 


IBDB 




• 








7443 


1BU8 




• 




', EXCESS CHARACTERS 


7444 


IBOB 




• 








7 445 


1BD8 




• 


! CRI330 EQU 


$ 


744b 


1BD8 


3 A 


FB 


FF 


LDA 


CMELGS 


7 4 47 


IBDB 


2F 


• 




CNiA 




744H 


IB DC 


F6 


02 




ANI 


JNSWHP 


744^ 


iBoe 


CO 


• 




HNZ 




7450 


IBDF 


3A 


Ci 


FE 


LDA 


CUKCUL 


7 451 


IBE2 


47 


• 




MUV 


H,A 


7452 


1BE3 


3A 


BE 


FF 


LDA 


KHIMGM 


7 453 


iBfcb 


Bd 


• 




CMP 


b 


7454 


lBfc;7 


Db 


, 




PC 




7455 


1BE8 


CO 


76 


19 


CALL 


CHKFMS 


745b 


IBEB 


CO 


• 




RnZ 




7457 


IBEC 


C5 


• 




PUSH 


b 


7458 


IBED 


21 


CO 


FF 


LXI 


MrCUHRUw 


7459 


IBFO 


34 


• 




INR 


M 


74o0 


IBFl 


2A 


C9 


FF 


LhLD 


iiSXLIN 


7461 


IBF4 


5e 


• 




MOV 


E,M 


7462 


IBF5 


23 


• 




InX 


H 


7463 


1BF6 


56 


• 




MOV 


0,H 


7464 


1BF7 


1C 


• 




INR 


E 


7465 


IBFB 


]D 


• 




DCR 


E 


7466 


IBFP 


CA 


oc 


IC 


JZ 


CPI400 


7467 


IBFC 


13 


a 


• 


rux 


D 


7468 


IBFD 


3A 


BE 


FE 


LDA 


KH'IMGN 


7469 


ICOO 


CD 


58 


IF 


CALL 


l-NDLSO 


7470 


IC03 


F2 


OC 


IC 


vIP 


CRI400 


7471 


1C06 


• 


• 


• 


• 




7472 


1C06 


CD 


00 


OA 


CALL 


LININS 


7 47 3 


1C09 


CA 


25 


IC 


JZ 


CR1450 



ACCUrtULAfFD - CHhCK EPH WRAP 



;GET THE COMMON FLAGS 

; COMPLEMENT FLAGb 

;WHAP AROUND Ef^ABLEn? 

;UU - HEIURII (A#0) 

;YES - GET THE CUHmENT COLUM 

;SAVE VALUE iN B-REGISTEH 

;CURSnK bEiCJNn RIGHT MARGIlM? 

;YES - RETURu 

pFuRMAl/SntT KEY DEFiNE MODE 

;YES - RETURN 

;Nu - SAVE CURRENT COLU^^ii« AN 

;IWCREMEi^T TO NEXT ROW 

; CHECK TO SEE IE NEXi Ll^E 
; IS FULL (I.E., NO "EOL" 
;BEFORE KlGH'l MARGi^J 

;D0ES NEXT LINE EXIST? 

;(LSB n 0)? 
;rJO - ADD CHAR TO NEW LINE 
;YES - START FHOk bFGTNKUNG 

^•Ot' LINE TO RTGHl HARGIN 
;NEX1 LINE FULL? 
;NU - ADD OVERFLOW CHARACTER 

TO NEXT LINE 
;YES - INSEf^T A LINE 
;EXIT if ME'^ORY LOCKED 



13255-90003 
ITEM LOC 
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OBJECT CODE SOURCE STATEMENTS 
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7475 


ICOC 


• 


• 










7470 


ICOC 


• 


• 




; INSERT CHARACTERS 


7477 


ICOC 


• 


» 










7478 


ICOC 


• 


• 




CRI400 


EQU 


$ 


7479 


ICOC 


21 


3B 


FF 




LXI 


H,B2DEND 


7480 


ICOF 


7E 


• 






MOV 


A,M 


7481 


ICIO 


FE 


3C 






cei 


B2DBFL-1 


7482 


1C12 


CA 


25 


IC 




JZ 


CRI4bO 


7 48 3 


1C15 


35 


• 






OCR 


M 


7484 


1C16 


6F 


• 






MOV 


L,A 


7485 


1C17 


3A 


BF 


FF 




LOA 


LFTMGN 


7486 


ICIA 


32 


CI 


FF 




ST A 


CURCOL 


7487 


ICID 


7E 


• 






MOV 


A,M 


7488 


ICIE 


CD 


CI 


lA 




CALL 


CHRINS 


7489 


1C21 


87 


• 






OHA 


A 


7 490 


IC22 


C2 


oc 


IC 




JNZ 


CR1400 


7491 


1C25 


• 


• 










7492 


1C25 


• 


• 




? ALL 


CHARACTERS IM 


7493 


1C25 


a 


« 










7494 


IC25 


• 


• 




CRI450 


Egu 


$ 


7495 


1C25 


21 


CO 


FF 




LXI 


H,CURROW 


7496 


1C28 


35 


• 






DCR 


M 


7497 


1C29 


Fl 


« 






POP 


PSw 


7498 


1C2A 


23 


• 






INX 


H 


7499 


1C2B 


77 


• 






?^0V 


M,A 


7500 


1C2C 


3C 


• 






INR 


A 


7501 


1C2D 


C9 


• 






RET 





;GET BUFFER POINTER 

;ALL bytes DONfc.? 

;YtS - EXIT 

;N0 - UPDATE BUFFER POINTER 

;PUT LSB INTO L 

;SET TO INSERT CHARACTER AT 

;LEFT MARGIN 
;Gfe;T CriAHACTER TO INSERT 
/INSERT CHARACTER 
; INSERT SUCCESSFUL? 
?YES - DO NEXT BYTE 



; RESTORE THE ROiv NUMBER 
; RECALL THE COLUMN MUMBER 

; RESTORE COLUMN NUMBER 

; FORCE A # 

;RETURi^ 



li2b5>-<?0003 



IbOi 

7504 

/50b 

750b 

7507 

750b 

7509 

7510 

7511 

7512 

7 5 U 

7514 

7515 

7515 

7 517 

7518 

7519 

7520 

7521 

752^ 

752 i 

7 5 24 

7525 

75 2b 



LOG OBJECT COOP SOURCE SlhthJAF.HTS 
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1C2? 
IC2F. 
lC2fS 
1C2F: 
1C2E 
lC2fi: 
iC2e 

1C2E 

iC2fc: 

1C25 
IC2K 
1C2F. 
IC2f: 
iC2e 
ic2e 

1C2F 
lC3r> 
lCi2 
lCi5 
IC3H 
lCi9 

u:39 

ICiA 
1C3B 



23 

7l) 
Fb 
C2 
2 A 
23 

7fc. 

B7 
C9 



OF 
39 
9b 



CRI500 - GlT PREVIUtJS CHARACTFH ♦ 

EiNiTRY: H,I. = CURRFNT CHARACTER ADDRFbvS 

LNKSA\/ = ADDRESS OF MSB PART OF NEXT 
BLOCK LINK IN PRFVIOUS Bl CjCK 

KXri : A = PREVIUUS CHARACIFR 

H,L = AUOHESS Of< PPLViOUS CHARACTER 

P - CttARACTfc.R To ASCII 

M - CHARACTER IS iMOiyi-DI SPLA i CONTROL 



CR1500 



IC 
FF 



C R I 5 1 



EgH 

TNX 

Myv 

AN I 

JNZ 

LHLL 

I f • X 

EyU 

MoV 

ORA 

RET 



H 

A,L 

tJLKSf^'i 

CRI510 

l-NkSAV 

H 

s 

A 



;MuVE TO PREVIOUS CHARACTER 

;IfJ BLOCK 
; PREVIOUS CHARACIER IN BLOCK 
;YES - GET IT 

;NU - GET PREV BLOCK ADDRESS 
;5ET TO lASI CHARACTER ADDR 

;GET the PREVIOL'S CHARACTER 
;Sc.T FLAGS FUR ASCII OH .«0T 
; ASCII Ai\iD RETURN 



13/:55-90003 



ITfeiM 

7 52 b 
1b29 
7530 
7531 
'/53^ 
7533 
7534 
7535 

7537 
753b 
753y 
7540 
7541 
7542 
/543 
7544 
7545 
7546 
7547 
7548 
7549 
7550 
7 551 
7552 
7 55 3 
7554 
7555 
7556 
7557 



LGC 

IC3C 
1C3C 
1C3C 
ir3C 
1C3C 
ICJC 
IC3C 
1C3C 
ICjC 
1C3C 
1C3C 
IC3C 
1C3K 
1C40 
1C43 
IC46 
1C49 
IC49 
ir49 
1C49 
1C4C 

iC4n 

ICAF. 
iC.'iF 
1C51 
1C54 
1C54 
1C57 
IC59 
ICSC 
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OBJt:cr code: source siaik.ments 



ChEhHi, " clf:ap lxnl ♦ 
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CD 
Cu 
€u 
CA 
F2 



3A 
Ob 
Ou 
lA 

FE 
CC 



CD 

» 

7 6 
5 4 
9A 



CO 



CI 

8 7 



CD «C 

3fc DC 

CC 3 

3t CC 



Er>iTHY: OUN'T CARE 

FXrX : ^ = -1, ROW NUT POUND 

= 0, CrtAHACTER FOUND AiVD CLFAR DGNt 
> 0, CulUMN PAST EOL, CLiuAH NOT DHNE 



48 



CALL 

RiNiZ 
CAI.A. 
JZ 
JF 

; SntT KEY 

1 DA 

RkC 

PNC 

Luaa 

CPI 

cz 
fc '^11 

Ckhh 

cz 



Clt-RLA 



KCADH4 

CHKFrtS 
CLERLA 
CLL4'J0 

OhFi'\'t rtOOK 
^♦♦^♦♦♦♦♦♦* 
CUkROw 



L) 

L N U P K 

vxJCICHR 

$ 

CHnSFK 

A,5ETFHN 

ZKBCTL 

A,EOL 



;DOFS an^ exist? 

;nu - HE if I KM 

;F(jPf.<Al/SnFi KEY DEFINE i-lOuE 
;r\iO - DO ^.'OPHAL CI^EAi'i LI.vE 
;FOHMAT -v^OdF - CLEAR FIELD 

- CLFAR DATA HOaS PiMLi ♦ 

;CET CORoOh KQw 

; I N D a i A L 1 '\IE ( ODD ROW jf j ? 

;^4U - INHIBIT CLEAR 

;GE1 FIRST CiiARACTER 

;FuD P^^UIECT? 

nt-S " SKIP 10 loT AbCll CM/\ 

;Sl.FT KEjf DEFIi\E wuDE? 

; (6ET CfiMHOL CODE) 
;N0 - UPDATE FOREIGN Mt,f)g 
;CLEAR LINE rtlTH ♦'t.OL" ENDIN 



i32bS-90003 
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IT CM 



LUC OBJfcCT CODfc oOURCF SXAlt.^^KNTS 
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7559 


1C5E 




7560 


1C5E 




7561 


1055 




756 2 


IC5E 




7 56 3 


1C5E 




756 4 


1C5E 




7 565 


1C5E 




7566 


IC5E 




7 567 


1C5E 




7 5 b 


1C5E 




7 56 9 


1C5E 


2 A 


7 57 


1C61 


« 


7 5 71 


iCol 


32 


757k 


lCb4 


4 4 


7573 


lCb5 


4U 


7574 


1C66 


7 b 


7575 


1C67 


E6 


757b 


1C69 


6F 


7 5 7 7 


iCoA 


6 2 


757b 


1C6B 


7e 


7579 


1C6C 


3 


75HO 


IC6D 


71 


7 5dl 


iCoE 


23 


75H2 


iCbF 


4L 


/5B3 


ir7^» 


7 


7584 


1C71 


45 


7585 


1C7 2 


61 


7580 


1C73 


6F 


7587 


IC7 4 


E5 



;r + *** + *t* ♦♦♦♦*♦♦♦♦♦♦♦♦♦**♦♦♦♦* 

CLERLO - CLEAR RESl UF LlNt ♦ 

ENTRY: A = Tii.HMtNATOH CHARACiEH. 

D,E = CLEAR STARTING AOURtuSb 



FXli 



SbE "CLfclARL" 



CLtiRLO EgU $ 

LttLD LSIllN 



CLfelRLl Es^li 
Si A 
MuV 
MUV 
MUV 
Aim I 

MyV 
MUV 
1 f J X 
MUV 
IKX 
MUV 
MUV 
f^iUV 
WbV 
^^0V 

PUSH 



FILCHR 

C,L 
A,E 

3770-BLKS^' 
L,A 
H , I.) 

^,^ 

b 

M,C 

a 

CM 
M,B 
b,L 
ii,C 
L,A 
H 



;GFT CURRENT LiNfc ADDRESb 

;SAVfc iERf^NATUR CHARACTtiR 
;Sh.T F,C TU ADORLSS UP I^EXT 

;Ljr^c RIUMTEH'^ LSB 
:SFT M-I. TU AnURESb UF NEXT 



;SET M,I. TU AODRESb UF .. 
;BLUCK LINK IN CURRENT 
;FLUCi< 

;f-ET KEXT bLUCK 

;SET ? fC TU iMSb UF K'EX C blwE 
yPUTivTbF 



;SAVl LS6 UF I.lNh'^S f^^Sti AOOR 
;SAVl AHDRESii UF NEXT BLUCK 
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7589 

7590 

7591 

7592 

7593 

7594 

7595 

7596 

759 7 

759d 

7599 

7600 

7601 

7o02 

7603 

?o04 

7605 

760d 

7 00 7 

7t>0« 

7609 

/olO 

7oU 

7612 

7ol3 

7614 

7di5 

7616 

7ol7 

761B 

7619 

7620 



1C75 

1C75 

1C75 

1C75 

1C76 

1C7 8 

1C7A 

1C7D 

1C7E: 

1C7P 

1C7F 

ICdO 

lCb2 

1C8 3 

lCo6 

1C89 

ICBA 

ICoA 

1C«A 

ICBA 

ICBB 
1C8C 
1C«0 
iCbF 
IC92 
1C93 
1C94 
1C95 
1C98 
1C98 
1C99 



7B 

f:6 

D6 
FA 
5B 
Eb 

23 
36 
3D 
F2 
3A 
77 



01 
7 b 
2F 
Eb 
C2 
lb 
IB 
lb 
CD 

• 

AF 



OF 

02 
HA 



7K 

8F 



OF 
9d 



91 



1C 
FF 



; 1N6FHT FII..L CHAFS BFTWf.EN LIimK AiMD EuL * 



CLL120 



MUV 

AM 

6UI 

JM 

MuV 

XCHG 

EyU $ 

INX 

WVI 

DCH 

OP 

LUA 

MUV 



A,E 
BliKbM 
? 

CLL160 
fc,b 



r'CUMPUIF NO. OF FILL6 

;htSS THAN 2? 

;YtS - Rfcl.c;A5E THF BLOCK 

;SbT H,L TU Af)DHES6 UF M6H 
;PAHX OF NEXT BI-UCK POINiE 



H 

Mft" IliL 

CLL,\20 
FILCHR 
.M,A 

; HFLEASb EXCFiJS DISPLAY BLOCKd * 

CLL160 EVU $ 
U 

A,E 



; ADVANCE TO i^EXT B^TE 
; STORE FILL. CHAPACIEh 
,*ALL f^iTLS DUt^k:? 

;n0 - continue filljng 
;yts - get and store final 
;fill character 



CLL310 



PUP 
^UV 
CMA 
Afvl 
JivZ 
OCX 

ncx 

DCX 

call 
Egu $ 

XRA A 
RET 



; RECALL AODRESS OF NEXT BLUC 



EOL LIwK 
NUT ALL OiMES) 



;IS IHE LJUK AN 
BLKSm ;(LOw 4 bli'S 

CLL310 ;YES - EX II 

D ;^U - ADD BLOCKS TU FREE LIS 

u ;SET AUDHFSS TU LSB OF NEXT 
D ;L1NE FIELD 1^4 FIRST BLOCK 

PUTLIN ;ADD BLOCKS TO FREE LIST 



;5ET ZERO 
;RtTURl\. 



FLAG FUR CLEARS 
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ITEM 

7622 
7623 
7624 
7625 
7626 
7627 
7628 
7629 
7630 
7631 
7632 
7633 
7634 
7635 
7636 
7637 
7638 
7639 
7640 
7641 
7642 
7643 
7644 
7645 
7646 
7647 
7648 
7649 
7650 
7651 
7652 
7653 
7654 
7655 
7656 
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1C9A 
1C9A 
1C9A 
1C9A 
1C9A 
1C9B 
1C9C 
1C9C 
IC9C 
1C9C 
1C9C 
1C9C 
1C9D 
1C9D 
IC9E 
lC9f 
1C9F 
1CA2 
1CA5 
1CA6 
1CA9 
ICAB 
ICAC 
tCAD 
ICBO 
ICBO 
ICBO 
ICBO 
ICBO 
1CB3 
1CB3 
1CB3 
1CB3 
1CB3 
1CB6 



04 
C8 



EB 

• 

EB 

13 

CD 
C2 
87 
DA 
3E 
12 
OC 
C3 



87 
CA 

BO 
20 



9F 



FA B9 



CD B8 
C3 9F 



.:Jt4;4i4:)|t4c***t***)j(*4(**tf***** ♦*♦♦♦♦♦♦♦♦♦ ♦4' 

; CLEAR LINE FUNCTION FOR FORMAT MODE ♦ 

CLi.400 EQU $ 

INR B ;CURSOR IN PROTECTED FIELD? 

RZ ;YES - RETURN, DON'T DO CLEA 

CLEAR UNPROTECTED FIELD ♦ 

D,E = ADDRESS OF FIRST ASCII CHAR IN FIELD * 

CLEROl EQU $ 

XCHG 
CLER02 FQU $ 

XCHG 

INX D 
CLL510 EQU $ 



;PUT CHARACTER ADDR INTO D,E 
;SET TO PREVIOUS CHARACTER 



;get the next character 
;chh;ck exit if eol link 
yASCii? 

;N0 - COiMTINUE 

;YES - STORE BLANK 

INCREMENT COLUMN 

;TRY next CHARACTER 



CALL NXTCHR 

JNZ CLL580 

ADD A 

JC CLL540 

MVI ArABLNK 

STAX D 

INR C 

JMP CT.L510 

; NON-ASCII CHARACTER * 

CLL540 EQU $ 

JM CLL550 ;N0T DSPLY CNTRL - CHECK MORE 

; DELETE DISPLAY ENHANCEMENT CHAR ♦ 

CLL544 EQU $ 

CALL CHRDL2 ; DELETE ENHANCEMENT CODE 
JMP CLLSiO ;CONTINUE CLEARING 
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ITEM 

7658 

7659 

76b0 

7661 

7662 

7663 

7664 

7665 

7666 

7667 

7668 

7669 

7670 

7671 

7672 

767 3 

7674 

7675 

7676 

7t>77 

7b78 

7679 

7680 

7o81 



LOC 

1CB9 

1CB9 

1CB9 

1CB9 

1CB9 

ICBA 

ICBC 

ICBF 

ICCI 

1CC2 

1CC4 

1CC7 

ICCA 

ICCA 

ICCA 

ICCA 

ICCA 

ICCA 

ICCB 

ICCD 

ICCE 

ICDI 

1CD4 

1CD5 
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; NOT ASCII OR DISPL 
.♦^:^ ♦♦♦♦♦♦♦*♦♦»♦♦♦** 
CLL550 EQU $ 

PAR 

CPI KILL 

JZ CLL510 

CPI STPR 

RZ 

CPI 

JC 

a MP 



IF 

FE 
CA 
FE 
C8 
FE 
DA 
C3 



lA 
F£ 
CB 
CD 
CA 
AF 
C9 



C3 
9F 
CO 

• 

C5 
83 
9F 



CE 

84 
9F 



IE 
IC 



STPFLG+l 
CLL544 
CLL510 
♦♦♦♦♦♦♦♦*♦*♦*♦♦♦♦♦♦ 
LINK FOUND 
MOVE TO NEXT BLOCK 
♦ ♦♦♦:►♦♦♦*♦♦♦*♦♦*♦*♦ 
CLL5B0 EQU $ 
LDAX D 
CPI EOP 
RZ 

CALL FLDSH2 
JZ CLL510 
XHA A 
RET 
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AY CUNIRUL * 

; RESTORE CHARACTER 

;END OF LINE FILL? 

;YES - GO TO NEXT CHARACTER 

; START PROTECT? 

;YES - TERMINATE CLEAR 

;FORMAT CONTROL CODE? 

;Y£S - DELETE IT 

•NO - GO TO NEXT CHARACTER 



* 



;G£T NEXT LINE LINK'S 
;END OF DISPLAY LIST? 
;yES - RETURN 
;CONTINUATION FIELD? 
;yES - CONTINUE CLEAR 
;NU - TERMINATE CLEAR 
; RETURN END ON END 



MSB 



AND 
OF FIEL 



ITEM 

7683 
7684 
7685 
7686 
7687 
7688 
7689 
7690 
7691 
1692 
7693 
7694 
769*> 
7696 
7697 
7698 
7699 
7700 
7701 
7702 
770i 
7704 
7 705 
7706 
7 707 
7708 
7709 
7710 
7711 
7712 
7713 
7714 
7715 
7716 
7717 
7718 



:s=sss: 
LOC 

1CD6 
1CD6 
1CD6 
1CD6 
1CD6 
1C06 
1CD6 
1CD6 
1C06 
1CD6 
1CD6 
ICD6 
1CD6 
1CD7 
1CD7 
ICOA 
ICDA 
ICDO 

iceo 

1CE.3 
1CE3 
1CE3 
1CE3 
1CE3 
1CE4 
1CE5 
ICE6 
1CE7 
1CE8 
ICEB 
ICEC 
ICEF 

icr2 

lCf5 
1CF7 
ICFA 



OBJECT CODE 



37 

22 Fl FF 



D2 Fb 
01 4F 
21 F2 



56 
2B 
5E 
2B 
EB 
CD 
EB 
CA 
21 
22 
3E 
32 
C9 



Ei 
4F 
FE 
18 
20 



IC 

FE 
FF 



20 OB 



IC 

FE 
FF 

87 
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DSPMSG - DISPLAY MESSAGE * 



ENTRY; NC - ADD MESSAGE TO NORMAL DISPLAY 
C - REPLACE DISPLAY WITH MESSAGE 
MSGPT1-MSGPT8 = POINTERS TO MESSAGE 
SECTIONS 

EXIT ; ALL REGISTERS DESTROYED 

$ 



;SET C-FLAG TO FORCE DISPLAY 
; REPLACEMENT BY MFS5AGE 



;SET MESSAGE POINTER 1 



DSPMSO EQU 
STC 

DSPMSl EQU $ 

SHLD MSGPTl 

DSPMSG EQU $ 

JNC DSM500 ;ADD MESSAGE TO DISPLAY 

LXI B,DSPSTR ;S£T DESTIiMATION POINTER 

LXI rt,MSGPTH-l ;SET INITIAL TABLE POINTER 

TRANSFER MESSAGE 10 MESSAGE BUFFER 



DSMOIO 



EQU 

MOV 

OCX 

MOV 

DCX 

XCHG 

CALL 

XCHG 

JZ 

LXI 

SriLD 

MVI 

ST A 

RET 



5> 

D,M 
H 

E,M 
H 

MOVCHR 

DSMOIO 

H,USPSTR 

DISPST 

A,MAXROiwfl 

lOCRRW 



;GtT POINTER TO MESSAGE 



;SET 
;PUT 
;XFR 
;PUT 
;D0 



TO NEXT 
POINTER 
MESSAGE 
POINTER 
NEXT PART 



POINTER 
INTO H,L 
PART TO BUFFER 
TO TABLE IN H,L 
IF NOT EOP END 



;SET DISPLAY POINTER TO 
?MESSAGE AREA 
; REMOVE CURSOR FROM DISPLA 

; RETURN 



13255-90003 
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7720 
7721 
7722 
7723 
7724 
7725 
7726 
7727 
7728 
77 29 
7730 
7731 
7732 
7733 
7734 
7735 
7736 
7737 
7738 
7739 
7740 
7741 
7742 
7743 
7744 
7745 
7746 
7747 
7748 
7749 
7750 
7751 



ICFB 
ICFB 
ICFB 
ICFB 
ICFB 
ICFE 
IDOl 

inoi 

1D02 
1D03 
1D04 
1D05 
1DU6 
1007 
IDOA 
IDOB 
IDOE 
IDOE 
IDOE 
IDOE 
IDOE 
IDOE 
IDOE 
IDOE 
lOOE 
IDOE 
lOOE 
IDOE 
IDOE 
IDII 
1D12 
1D15 



CD 8D OC 
21 F2 FF 



56 
2B 
5E 
2B 
E5 
EB 
CD 
El 
CA 



2A 
2B 
22 
C3 



CD 



CB FF 



FE 
9E 



ADD MESSAGE TO NORMAL DISPLAY 



DSM500 EQU $ 

CALL SFKYOF 

LXI H,MSGPT 
DSM510 Eyil $ 

MOV D,M 

DCX H 

MOV E,M 

DCX H 

PUSH H 

XCHG 

CALL XMS2DS 

POP H 

JZ DSmSIO 



; FORCE NORMAli DISPLAY ON 

1+1 ;set iwitial table pointer 
;get pointer to message 



HSXDSP - restore 



;StT TO next pointer 
/SAVE TRBLE pointer 
?PUT MESSAGE POINTER IN B,L 
;XFR MESSAGE TO THE DISPLAY 
/RECALL TABLE POINTER 
;D0 NEXT PART IF NOT EOP END 
FALL INTO "RSTDSP" TO 
FORCE DISPLAY ON 

NORMAL DISPLAY ♦ 



ENTRY: DON'T CAPE 

EXIl : PROCESSOR FLAGS UNCHANGED 
H,L DESTROYED 



FF 
OF 



RSTDSP EQU $ 

LHLD TOPLIN 
DCX H 
SHLU DISPST 
JMP DISLNl 



;GET TOP LINE ADDRESS 

;SET TO FIRST CHAP ADDRESS 

/SET DISPLAY SI ART POINTER 

/SET THE DISPLAY CURSOR 



ITEM 



LOC 
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7753 
7754 
7755 
7756 
7757 
7758 
7759 
7760 
7761 
7762 
7763 
7764 
7765 
7766 
7767 
7768 
7769 
7770 
7771 
7772 
7773 
7774 
7775 
7776 
7777 
7778 
7779 
7780 
7781 
7782 
7783 
7 7 84 
7785 
7 7 86 
7787 
77B8 
7789 
7790 
7791 
7792 
7793 
7 794 
7795 
7796 
7 797 
7 798 



1D18 

1D18 

1D18 

1018 

1D18 

1D16 

IDIC 

IDIF 

1022 

1D24 

1027 

1027 

1D27 

1027 

1027 

1027 

1027 

1027 

1029 

1D2C 

1D2C 

102C 

102C 

102F 

1032 

1035 

1038 

1039 

ID3C 

103F 

1042 

1D42 

1042 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1D4C 

1040 

1D4E 

104F 

1050 



CD 
CO 
21 
22 

3£ 
CD 



3E 
CD 



32 
CD 
CA 



54 
5D 
23 
23 
4E 
23 
46 
2A 
23 
23 
7e 
B7 
CA 



40 10 



4F 
BE 
08 
OE 



FE 
01 



6C 
EE 
A3 



00 
FF 

• 
48 



CD C5 21 

CD 8C 19 

C2 92 ID 

32 A3 FF 

3D . 



FF 
OA 
ID 



CB FF 



70 ID 



; FORHUN - ENTER FORMAT MODE ♦ 

FOHMON EQU $ 

CALL CKEDIT 

RNZ 

LXI H,MAXCOL 

SHLD RHTMGN 

MVI A, FORMAT 

CALL ZSTMDl 



;edit MODE.^ 

;lfES - INHIBIT FORMAT MODE 

;N0 - SET MARGINS TO ENDS OF 

; DISPLAY 
;TURN ON FORMAT MODE FLAG 



CURPH - CURSOR PO 

CURPH Egu $ 

MVI A,377Q- 
CALL CLRDFL 



CURPHl 



Eyu 

CALL 
CALL 
JWZ 
ST A 
OCR 
ST A 
CALL 
JZ 



CURPRT 

CHKSFK 

HUP060 

TLINO 

A 

SPOWL 

MLKSCH 

HUP I JO 



SET CURSOR TO FIRST 
UNPROTECTED FIELD 

INTER HOME (UP) ♦ 

SDACOM ; CLEAR DATACOM INPUT 

;FLAG TO DISABLE TRANSMIT- 
ONLY FIELDS 



;SET CURSOR TO LEFT MARGIN 

;SOFT KEY MODE? 

;YES - SET CURSOR ONLY 

;M0 - SET TOP LINE « TO ZERO 

; RESET SPOw LATCH 

; DISPLAY AREA LOCKED? 
;N0 - HOME TO FIRST LINE 



DISPLAY LOCK ON - CHANGE ONLY Ui>lLOCKED LINES 



;SAVE ADDRESS OF LSB PART OF 
;NEXT LINE POTNTEF IN FIRS 
; UNLOCKED LINE 

;GET ADDRESS OF LAST LOCKED 

;ROW 



;GET PTR TO TOP DSPLY LINE 
;GET ADDRESS OF FIRST LINE 
; ABOVE TOP DISPLAY LINE 

;ANY LINES ABOVE DISPLAY? 
;N0 - POSITION CURSOR ONLY 



MOV 


D,H 


MOV 


E,L 


I NX 


H 


INX 


H 


MOV 


C,f\ 


INX 


H 


MOV 


BrM 


LHLD 


TO PL IN 


INX 


H 


INX 


H 


MOV 


A,M 


OR A 


A 


JZ 


HUP050 
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7800 


1053 


• 






7801 


1053 


• 






7802 


1053 


• 






7803 


1D53 


36 


00 




7804 


1D55 


23 






78 05 


ID56 


66 






7806 


1D57 


6F 






7807 


1D58 


IB 






7808 


1D59 


73 






7809 


1D5A 


23 






7810 


1D5B 


72 






7811 


1D5C 


EB 






7812 


1D5D 


23 






7813 


1D5E 


23 






7814 


1D5F 


23 






7815 


1060 


77 






7816 


1D61 


23 






7817 


1D62 


72 . 


> « 




7818 


1063 


2A « 


?F f 


-f 


7819 


1066 


EB . 






7820 


1D67 


2A C 


:b i 


-f- 


7821 


1D6A 


22 ^ 


)F F 


'F 


7822 


ID6D 


62 , 


• • 




7823 


1D6E 


68 , 


> • 




7824 


1D6F 


23 , 


> « 




7825 


1070 


23 . 


> < 




7826 


1071 


71 . 


, , 




7827 


1072 


23 , 


• a 




7828 


1073 


70 , 


< 




7829 


1074 


60 . 


• 




7830 


1075 


69 , 


< 




7831 


1076 


23 . 


• 




7832 


1077 


42 . 


• 




7833 


1078 


4B . 


• 




7834 


1079 


OB , 


, 




7835 


10 7 A 


CD 9 


5 


F 


7836 


1070 


• • 


• 




7837 


1070 


• ■ 


• 




7838 


1070 


, , 


• 




7839 


1070 


• • 


• 


H 


7840 


1070 


CD 5 


6 


C 


7841 


1080 


CD 7 


B t 


9 


7842 


1083 


EE 


8 




7843 


1085 


CA A 


6 1 


D 


7844 


1088 


• • 


• 


* 
i 


7845 


1088 


• • 


• 


• 



7 84o 


1088 


3A 6 


B F 


F 


7847 


1D8B 


32 C 


F 


F 


7848 


108E 


32 C 


7 F 


F 


7849 


1091 


C9 . 


• 





LINK SPLIT PARTS TOGETHER 



MVI 

INX 

MOV 

MOV 

OCX 

MOV 

INX 

MOV 

XCHG 

INX 

INX 

IWX 

MOV 

INX 

MOV 

LHLD 

XCHG 

LHLD 

SHLD 

MUV 

MOV 

Ii>iX 

INX 

MOV 

INX 

MOV 

MOV 

MOV 

IhX 

MOV 

MOV 

OCX 

CALL 



M,U 

H 

ri,M 

L,A 



M,E 

H 

M,D 

ri 

H 

H 

M,A 

H 

rt ,D 

FLINE 

TOPLIN 

FUNE 

H,L> 

ii,E 

ri 

a 

M,C 

h 

H,B 

H,B 

L,C 

ri 

B,0 

C,E 

b 

DISLNK 



;ZEPO PREV LINE PTE OF TOP L 

;SET H,L TO FIRST LINE ABOVE 

; DISPLAY 
;SET ITS NEXT LINE POINTER T 

; FIRST CHARACTER OF FIRST 
; UNLOCKED LINE 

;SET PREVIOUS LINE POINTER 
; FIRST UNLOCKED LINE TO 
;FIRST line ABOVE DISPLAY 



; REPLACE CONTENTS OF FLINE 
;W1TH VALUES FROM TOPLlN 



;set phevjous line pointer o 
;current top line to point 

;T0 last LOCKED ROW 



;SET H,L to MSB PART OF NEXT 
;LINE POINTER IN LAST 
; LOCKED ROW 

;SET NEXT LINE POINTER TO 
; POINT TO FIRST CHARACTER 
;0F LINE POINTED PY FUME 



DISPLAY SET FOR DISPLAY LOCK HOME - SET CURSOR 



HUP050 Egu $ 

CALL R0LUP3 
CALL CHKFMT 
XRI FORMAT 
JZ HUPUO 



LDA MLKROW 

STA CURROW 

STA LSTROW 
RET 



;SET "LSTLIN" AND "CUPADR" 
;FORAMr MODE? 

; (REVERSE RESULT OF TEST) 
;YES - LOCATE FIRST FIELD 

STARTING IN LOCKED REGION 

(A = 0) 
;N0 - SET CURSOR TO FIRST 
• /UNLOCKED ROW 

; RETURN 



ITEM 



LOC 
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7851 


ID92 


• 






f 






7852 


1D92 


• 






; DEFINE SOFT KEYS 


7853 


1D92 


• 






; 






7854 


1D92 


• 






HUP060 


EQU 


$ 


7855 


1D92 


AF 








XHA 


A 


7856 


1093 


32 


CO 


FF 




STA 


CURROW 


7857 


1D96 


32 


C7 


FF 




ST A 


LSXROW 


7858 


1D99 


2A 


A6 


FF 




LHLU 


SFTKiS 


7859 


1D9C 


23 


• 


• 




INX 


H 


7860 


1D9D 


CD 


57 


OC 




CALL 


HO L UPC 


7861 


lOAO 


C3 


B9 


ID 




JMP 


FLDSRl 


7862 


1DA3 


• 


• 


• 








7863 


1DA3 


• 


• 


• 


; DISPLAY 


NOT LOCK 


7864 


1DA3 


• 


• 


* 








7865 


1DA3 


• 


• 


• 


HUPlOO 


EQU 


$ 


7866 


1DA3 


3A 


6B 


FF 




LDA 


MLKROW 


7867 


1DA6 


• 


• 


• 


HUPllO 


EQU 


$ 


7 868 


1DA6 


32 


CO 


FF 




STA 


CURROW 


7 869 


1DA9 


AF 


• 


• 




XHA 


A 


7870 


lOAA 


32 


C7 


FF 




STA 


LSTRUW 


7871 


IDAD 


57 


• 


• 




MUV 


D,A 


7872 


IDAE 


21 


9F 


FF 




LXl 


H,FLINE 


7873 


IDBI 


7E 


• 


• 




MUV 


A,M 


7874 


1082 


CO 


6E 


OC 




CALL 


HOLUPl 


7875 


10B5 


CD 


76 


19 




CALL 


CHKFMS 


7876 


1DB8 


C8 


• 


• 




nz 




7877 


1D69 


• 


• 


• 








7878 


1DB9 


• 


• 


• 








7 879 


10B9 


• 


• 


• 









;SET CURSOR ROW TO ZERO 



;SET "CUHADR" AND "LSTLIN" 
;T0 FIRS! SOFT KEY LINE 

? LOCATE FIRST FIELD 



;SET CURSOR XO 1ST UNLK RW 

;SET NEW CURRENT ROW 

;SET LAST ROW DONE TO ZERO 
?SET D=0 TO FLAG TLIWO UPDAT 

;SET TOP LINE POINTER TO 

;FIRST DISPLAY LINE 
? FORMA IVSOFT KEY DEFINE MODE 
;^Q - RETURN 
YES - FALL INTO "FLDSRl- TO 

FIND FIRST UNPROTECTED 

FIELD 
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ITEM 

7881 

7882 

7883 

7884 

7885 

7886 

7887 

7888 

7889 

7890 

7891 

7892 

7893 

7894 

7895 

7896 

7897 

7898 

7899 

7900 

7901 

7902 

7903 

7904 

7905 

7906 

7907 

7908 

7909 

7910 

7911 

7912 

7913 

7914 

7915 

7916 

7917 

7918 

7919 

7920 

7921 

7922 

7923 

7924 

7925 

7926 

7927 

7928 

7929 

7930 



LOC 

■ xzzssss: 

1DB9 

1DB9 

1DB9 

1D69 

1DB9 

10B9 

1DB9 

1DB9 

1D89 

IDB9 

1DB9 

1DB9 

1DB9 

lDb9 

1DB9 

1089 

IDBC 

ID BE 

IDCO 

IDCl 

1DC4 

1DC4 

1DC5 

1DC8 

IDCB 

IDCE 

IDCF 

ID02 

1DD5 

iDD5 

IDDS 

1DD5 

1D05 

1DD5 

1DD8 

IDDB 

IDDE 

IDDE 

IDDE 

IDDF: 

IDEO 

IDEI 

1DE2 

1DE2 

1DE2 

1DE2 

1DE2 

IDE 2 

lDfc2 

1DE5 
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21 

36 

2£ 

4E 

C3 

• 

AF 

32 

CD 

FA 

4F 

CD 

CA 



21 

CD 
CA 



3E 
91 

4F 



DA 
00 
CI 

E2 



DA 
AC 
06 

65 

E2 



CO 
C4 
E8 



50 



FF 



FF 
Ob 
07 

10 
ID 



CO 
IE 
ID 



FLDSH - LOCATE THE NEXT UNPROTECTED FIELD ♦ 
ENTRY: DON'T CARE 



EXIT : 



FLDSRl EQU 
LXT 
Mvl 

MVI 
MUV 



NZ - FIELD FOUND 

D,E = ADDRESS OF "ENDFR" 
CURADR,CURCOL,CURROw,LSTHN,LSTCOL 
LSTROw UPDATE TO CORRESPOND TO 
FIELD FOUND 
Z - FIELD NOT FOUND 

ALL REGISTERS DESTROYED 

$ ;LOOK FOR NEXT UNPROTECT 

H,NEWROW ; INITIALIZE ROW COUNT 
M,0 ;T0 ZERO 

L,CURC0L-BASE ?GET CURRENT COLUMN 



CM 



JMP FSRIOO 
FLUSR EyU S 
XRA A 
STA NEwROW 
CALL RCADRB 
ZRETRN 
CA 
CALL CKPROT 
JZ FSRIOO 



;POSITION 



;ZERO NUMBER OF HOWS ROLLED 



JM 
MUV 



CD B9 
C2 26 



IE 
IE 



;D0E5 CURSOR ROW EXIST? 
;N0 - RETURN ZERO 
;YES - SAVE LAST COLUMN FOUN 
; CURSOR IN PROTECTED FIELD? 
;YES - LuOK FOR NEXT UNPROTC 

; CURSOR IS IN UNPROTECTED FIELD ♦ 

; SEARCH FUR START OF NEXT PROTECTED FIELD ♦ 
/♦♦♦♦♦♦♦»*4**** ♦♦♦♦*♦**♦*♦>♦*♦♦ %**♦♦♦♦♦♦♦*♦* 
FSR080 EQU $ 

LXI H,STPR*256+STPR 

CALL FNDCUl ;ANY MORE FIELDS IN LINE? 

JZ FSR120 ;N0 - GO TO NEXT LINE 
;*»****1f* ♦♦♦♦♦♦ ♦♦♦♦♦♦♦♦♦♦♦♦*****^**********»** 
; ADVANCE CURSOR TO START OF PROTECTED FIELD * 

MVI A,MAXC0L+1 ;COMPUTE NEW COLUMN 

SUB C 

MOV C,A ySAVE COLUMN IN C 

I CURSOR IS IN PROTECTED FIELD * 
; SEARCH FOR NEXT UNPROTECTED FIELD * 
; IN THIS LINE * 

FSRIOO EQU $ 

CALL FNDCHU ;ANY MOPE FIELDS IN LINE? 
JNZ FSR200 ;YES - SET CURSOR AND DISPLA 



ITEM 

'7932 
793i 
7934 
7935 
7936 
7937 
793B 
7939 
7940 
7941 
7942 
7943 
7944 
794J) 
7946 
7947 
7948 
7949 
7 950 
7951 
7952 
7953 
7954 
7955 
7956 
7957 
7958 
7959 
7960 
7961 
7962 
7963 
7964 
7965 
7966 
796 7 
7968 
7969 
7970 
7971 
7972 
7973 
7974 
7975 
7976 



LOC 

iDEft 

1DE8 

1DE8 

1DE8 

IDE8 

1DE8 

IDEA 

IDED 

IDEE 

IDFI 

1DF2 

IDF3 

IDF 4 

1DF6 

1DF9 

IDFA 

IDFD 

IDFE 

lEOl 

IE02 

1E03 

1E06 

1E09 

lEOA 

lEOC 

lEOE 

lEll 

lEU 

1E11 

lElt 

lEll 

lEil 

1E14 

1E17 

lElA 

lElD 

1E20 

IE20 

1F20 

1E20 

IE20 

1E20 

1E20 

1E2 3 

1E25 



OBJECT CODE 



FE 
CA 
4C 
CD 
7E 
2B 
6E 
FE 
CA 
67 
22 
EB 
21 
34 
AF 
3 2 
32 
79 
OE 
FE 
C2 



CO 
3A 
32 
CA 
C3 



C4 
20 

68 



CE 
20 



96 FF 



DA FF 



C6 
9D 

00 
CO 

F2 



84 
90 
C6 
05 

F2 



FF 
FF 



21 
36 

C9 



C8 
50 



FF 

FF 
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*♦♦♦♦♦♦♦*♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 
NO MORE FIELDS IN LINE * 
MOVE TO NEXT LINE * 

FSH120 EQU $ 

;N0N-DISPLAYING TERMINATOR? 

;YES - RETURN FAIL 

;NU - SAVE TERMINATOR CHAR 

;GET NEXT 

;GET NEXT 



CPI 

JZ 

MOV 

CALL 

MOV 

OCX 

MOV 

CPI 

JZ 

MOV 

SHLD 

XCHG 

LXT 

INR 

XHA 

ST A 

Si A 

MOV 

MVI 

CPI 

JNZ 



STPFLG 

FSR140 

C,H 

CHAINO 

A,M 

H 

L,M 

EOP 

FSR140 

HrA 

LNKSAV 

H,NEWROW 

^i 
A 

LSTDCD 

TEMP 
A,C 
CO 

STPR 

FSRIOO 



BLOCK LINK 
LINE LINK'S 



MSB 



;PUT LSe INTO L-HEGISTER 
?FND OF DISPLAY FOUND? 
;YES - EXIT FIELD NOT FOUND 
;N0 - SAVE ADDRESS OF NEW 
;HN£ 

; INCREMENT ROW NUMBER 



; CLEAR LAS'l OISPLAX CODE 



;GET 
;SET 



CHAR 



LAST TERMINATOR 
COLUMN TO ZERO 

LOOKING FOR START PROTECT? 

HO - CONTINUE UN PROTECT FIN 
YES - SEE IF CONTINUE UNPROT 

SEARCH FOR PROTECTED FIELD * 

CHECK FOR CONTINUED UNPROTECTED FIELD ♦ 

f*»******** *♦*♦♦♦♦♦♦ ♦♦♦♦♦^♦^♦♦♦♦♦♦♦♦*****t 



CALL FLDSR2 

LDA TEMP 

STA LSTDCD 

JZ FSR080 

JMP FSRIOO 
;*♦*♦*♦♦♦♦♦* ♦♦♦♦♦♦■♦'♦♦♦*♦*♦♦♦♦♦*♦♦ 
; SE'I LSTCOL PAST END OF LINE ♦ 
; TO CAUSE LINE TO BE RESCANNED * 



FIRST CHAR AN "ENDPR" 
;CSET NEW LSTDCD VALUE) 

YES - LOOK FOR START PROTEC 
NO - LOOK FOP NEXT UNPPOTEC 



FF 



FLDSRX EQU 

FSR140 EQU 

LXI 

MVI 

RET 



$ 

$ ;(Z TRUE) 

H, LSTCOL 

M,MAXC0L+1 

; RETURN 
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7978 1E26 , , , ; ♦♦:«t^c4r3|£t*f ♦♦♦♦♦*♦♦♦♦♦♦♦*♦♦♦ 

7979 1E26 ... ; UNPROTECTED FIELD FOUND ♦ 

7980 1E26 ... ; SEi' NEW CURSOR POSITION * 

7981 1E26 . , , ;♦***♦♦*♦♦♦*♦♦*♦*♦♦*♦*♦♦♦♦♦ 

7982 1E26 . . . FSR200 EQU $ 

7983 1E26 3E 50 . MVI A,MAXC0L+1 ;COMPUTE NEW COLUMN 

7984 1E28 91 . . sUB C 

7985 ie29 CD C8 21 CALL CRHETl ;SET CURRENT CURSOR LOCATION 
lain ^^o^ ^^ ^® ^^ ^'^^ LSTCOL ;AND LAST CURSOR VALUE 
-7000 ^ZJ. l^ ' • ^^^^ ;STOHE NEW CURRENT ADDRESS 

7988 IE30 22 C3 . FF SHLD CUHADR 

7989 1E33 22 Db FF SHLD LADDR ;SAVfc FIELD ADDRESS IN 

7990 1E36 ... ; CASE ROLL UP NEEDED 
llt^ 1^-^^ ^'^ • • XCHG ; RESTORE D,E AND H,L 

7992 1E37 . , , ; ♦♦♦♦♦♦♦♦♦♦♦*3|r**^c^*4t4,t»*** 

7993 1E37 ... ; COMPUTE NEW CURSOR ROW ♦ 

7994 1E37 . . . f t****^*^**t**^^t*^ii-*:^^^t** 

7995 IE37 3A DA FF LDA NEaROW ;GET NEW ABSOLUTE ROW NUMBER 
799o 1E3A B7 , . ORA A ;HAS ROW CHANGED? 

799/ IE3B CA 7B IE JZ FSR360 ;N0 - RETURN 

7998 1E3E 21 CO FF LXI H,CUKROW ;YES - CALCULATE NEW 

7999 1E41 86 . . ADD M ;ROW NUMBER 

8000 1E42 . . . FSR240 EgU $ 

8001 1E42 OE lb . MVI C,MAXROw+l ;IS NEw ROw ON CURRENT PAGE? 

8002 1E44 B9 . . CMP C 

8003 1E45 DA 64 IE JC FSR340 ;YtS 



ITEM 

8005 
8006 
8007 
8008 
8009 
8010 
8011 
8012 
8013 
8014 
8015 
8016 
8017 
8018 
8019 
8020 
8021 
8022 
8023 
8024 
8025 
8026 
802 7 
8028 
8029 
8030 
8031 
8032 
8033 
8034 
8035 
8036 
8037 
8038 
8039 
8040 
8041 
8042 
8043 
8044 



LOC 

1E48 
1E48 
1E48 
1E48 
1E48 
1C49 
1E4C 
1E4D 
1E4E 
1E4F 

ie:50 

1E51 
1E52 
1E55 
1E55 
1E55 
1E55 
IE55 
1E58 
1E5B 
1E5C 
1E5F 
1E60 
1E61 
1E64 
1E64 
1E64 
1E64 
1E64 
1E67 
1E6A 
1E6D 
1E70 
1E71 
1E74 
1E77 
1E7A 
1E7B 
1E7B 
1E7D 



OBJECT CODE 



91 
21 
86 
57 
79 
96 
5F 
EB 
22 



CD 
21 
35 
C2 
23 
7E 
C3 



32 
2A 
22 
2A 
23 
22 
2A 
22 
EB 



6B FF 



8 



2 FF 



7 DC 
2 FF 



CO 
CO 
C7 
96 

C9 
D5 
C3 



55 IE 



42 IE 



FE 44 
C3 9E 



FF 
FF 
FF 
FF 

• 

FF 
FF 
FF 



OF 



SOURCE STAIEMENTS 

; NEW CUHSDR ROW IS 
; ROLL DISPLAY UP TO 

SUB C 



LXI 


HrMLKROW 


ADD 


M 


MOV 


D,A 


MOV 


A,C 


SUB 


M 


MOV 


E,A 


XCHG 




SHLD 


ROLLCT 
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ON MEW PAGE ♦ 
GET ROW ON SCREEN * 

; DECREMENT ROLL COUNT BY ONE 

;PAGE 

; ADJUST FOR LOCKED DISPLAY 

;SAVE RESULT FOP STORAGE 

;CUMPUTE NUMBER OF LINES TO 

;R0LL FOR ONE PAGE 
;SAVE THE VALUE FOR STORAGE 
;PUT VALUES INTO H,L 
; STORE ROLL PARAMETERS 



ROLL UP ONE PAGE OF LINES 



FSR300 EQU 
CALL 
LXI 
DCR 
JNZ 
INX 
MOV 
JMP 

; UPDATE RO 

• !|c !»: 4: ](L iifcl: 3*: 4: :(c 4 

FSR340 EQU 
STA 
LHLD 
SHLD 
LHLD 
INX 
SHLD 
LHLD 
SHLD 
XCHG 
EQU 
CPI 
JMP 



FSR360 



ROLLUP 

H, ROLLCT 

M 

FSR300 

H 

A,H 

FSR240 

W ♦ 

$ 

CURRUW 

CURROW 

LSTROW 

LNKSAV 

H 

LSTLIN 

LADDR 

CURADR 

$ 
D 
DISLNl 



;ROLLUP ONE LINE 

;PAGE ROLLED UP? 
;N0 - DO ANOTHER LINE 
;YES - GET NUMBER OF ROWS 
;T0 UNPROTECTED FIELD AND 
;CHECK TO SEE IF ON SCREEN 



;SET NEW ROW NUMBER 

;SET LAST ROW AND COLUMN DON 

;CURRENT ROW AND COLUMN 
;SET "LSTLIN" TO CURRENT ROW 

; ADDRESS 

;SET "CURADR" TO ADDRESS OF 

;FIRST CHAR IN NEW FIELD 
;PUT CURRENT ADDRESS INTO D, 

;SET Z-FALSE (D >= 320) 
;G0 SET DISPLAY CURSOR ROW 
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8046 


1E80 








8047 


IE80 








8048 


1E80 








8049 


1E80 








8050 


1E80 








8051 


1E80 








8052 


1E80 








8053 


IE80 








8054 


1E80 








8055 


1E80 








8056 


1E80 








8057 


1E80 








8058 


1E80 








8059 


1F:80 








8060 


1E80 








8061 


1E80 








8062 


1E80 


J2 < 


ro \ 


^F 


8063 


1E83 








8064 


IE83 








8065 


IE83 


[B 






806o 


1E8 4 








8067 


1E84 


13 






8068 


1E85 ( 


:t) 


h 


)b 


8069 


1E88 < 


:2 


S4 


IE 


8070 


1E8B 


B7 


• 


• 


8071 


1E8C 1 


D2 


ai 


OB 


8072 


1F8F 


IF 


• 


• 


8073 


IE90 


F2 


80 


IE 


8074 


1E93 


FE 


C4 


• 


8075 


IE95 


F2 


83 


IE 


8076 


1E98 


21 


C5 


FF 


8077 


1E9B 


BE 


• 


• 


8078 


1E9C 


C9 


• 


• 



FLDSR2 - DETERMINE PROTECT SEI>»SE OF NEXT 
CHARACTER 

entry: D,E = NEXT CHARACTER ADDRESS 

EXIT : Z - CONTINUATION OF FORHAT FIELD 
N'Z - NOT A CONTINUATION 
D,E = ADDRESS OF CHARACTER 
H = BASER 

TEMP = NFrt fc^iHANCE^5E^T CODE IF kH)L 
A,b DESTROYED 



CONTROL 



TO l^EXT CHAR 

TO PREV CHAR 
ACTER 
KS 

6PLAY CONTROL? 
URN NOT CONTINUE 
DATA BYTE) 
TROL - IGNORE IT 
OP TYPE DEFINE? 
TO NEXT CKARACTE 
INST LAST FORNAT 
ND RETURN 



FS2000 


E^U 


$ 






STA 


TEMP ; 


STORE NtW DISPLi 


FLDSRB 


Egu 


$ 




FS2005 


EdU 


$ 






OCX 


D 


;SET ADDRESS 


FLDSR2 


EQU 


S 






InX 


D 


;SET ADDRESS 




CALL 


NXTCHR 


;GET NEXT CHAR 




JwZ 


FLDSR2 


;SKIP OVER LIN 




ADD 


A 


; ASCI I OR DI 




JNC 


NZEXIT 


; ASCI I - RET 




RAP 




; (RESTORE 




JP 


FS2000 


; DISPLAY CON 




CPI 


STPFLG 


? TERMINATOR 




JP 


FS2005 


;YES - SKIP 




LAI 


H^lSIFMT ; COMPARE AGA 




CMP 


M 


; CON TROL A 




RET 







ITEM 

B080 
8081 
8082 
8083 
8084 
8085 
8086 
8087 
8088 
8089 
8090 
809i 
8092 
8093 
8094 
8095 
8096 
8097 
8098 
8099 
8100 
8101 
8102 
8103 
8104 
8105 
8106 
8107 
8108 
8109 
8110 



LOC 

1E9D 
1E90 
1E9D 
1E9D 
1E9D 
1F9D 
1E90 
1E90 
1E9D 
IE90 
1E9D 
1E9D 
1E9D 
1E90 
1E9D 
1E9D 
1E9D 
1E9D 
lEAO 
lEAO 
1EA2 
1EA5 
1EA8 
1EA9 
1EA8 
lEAE 
lEBO 
1EB3 
1EB4 
1EB5 
1EB8 
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FNDCH - SEE IF NEXT CHAR IS FORMAT CONTROL BYTE 

ENTRY: TERMINAL IS IN FORMAT MODE 
D,E = START ADDRESS 
H,L = CHARACTERS TO LOOK FOR 

EXIT : Z - CHARACTER NOT FOUND 
NZ - CHARACTER FOUND 
D,E = ADDRESS OF ENDING CHARACTER 
A,B,C,L,TEMp DESTROlfED 

FNDCHO - SEE IF NEXT CHARACTER IS PROTECTED 



3E 
32 
3A 
F5 
OE 
CD 
3E 
32 
CI 
78 
32 
C9 



21 CO CO 



01 

6D 

C2 

• 

00 

C8 

00 

6D 



FF 
FF 



IE 



FF 



FNDCHO 



FNDCH 



C2 FF 



EQU 
LXI 

Egu 

MVI 

STA 

LDA 

PUSH 

MVI 

CALL 

MVI 

STA 

POP 

MOV 

STA 

RET 



H,STPR*256 

$ 

ArlGNTRM 

TRMFCT 

PROFLD 

PSw 

CO 

FCR400 

AfDELTRM 

TRMFCT 

B 

A,B 

PROFLD 



+STPR ;SET COMPARE CHARS 

;SET TO IGNORE NON-DISPLAYIN 

; TERMINATOR 
;SAVE PROTECTED FIELD 

; STATUS 
;SET FOP NEXT CHARACTER ONLY 
; LOCATE THE NEXT CHARACTER 
;RES10RE flag to DELETE NON- 

;DlSPLAYiNG TERMINATOR 
; RESET PROTECT STATUS TO BE 

;CONSISTENT WITH CHARACTER 

;POINT£D TO BY "CURADP" 
; RETURN 



J13255-90003 
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8112 
8113 
8114 
8115 
8116 
8117 
8118 
8119 
8120 
8121 
8122 
8123 
8124 
8125 
8126 
8127 
8128 
8129 
8130 
8131 
8132 
8133 
8134 
8135 
8136 
8137 
8138 
8139 
8140 
8141 
8142 
8143 
8144 
8145 
8146 
8147 



1EB9 
1EB9 
1E89 
IE 69 
lEe9 
1EB9 
1EB9 
1EB9 
IEB9 
lfB9 
1EB9 
1EB9 
1EB9 
1EB9 
1E69 
IEB9 
1EB9 
1E69 
1E89 
1E89 
lEBC 
lEBF 
1EC2 
IEC4 
1EC4 
1EC4 
1EC4 
1EC4 
1EC6 
1EC7 
lECB 
1EC8 
lECB 
lECC 
lECD 
lECE 



CD 
21 
CA 
2E 



3E 
91 
4F 

CO 
C8 
AF 
Bl 
C9 



* * * 



^^^♦^(♦♦♦♦♦♦♦Vl'******* 



A6 
CI 
C4 
C2 



4F 



CF 



12 
CI 
IE 



FWDCHU - LOCATE NEXT UNPROTECTED FIELD 
CONTROL BYTE IN CURRENT LINE 

entry: terminal is in format mode 
b = don't care 
c = current column num8er 
d,e = start address 

exit : z - character not found 
nz - character found 
c = number of chars to end of line 

D,E = ADDRESS OF ENDING CHARACTER 
PKOFLD SET AS DEFINED 
A,B,L DESTROYED 

FNDCHU FyU $ 

CALL DCXB2D ;DATA COMM OR I/O BUFF INPUT 
LXI ri,ENDPR*256+£NDPR ; (SET "ENDPR" ONLY) 
JZ FNDCUl ;N0 - SKIP XMIT ONLY FIELDS 
MVI L,XMONLY ;YES - LOOK FOR "XMONLY" ALS 



LOCATE THE FORMAT CONTROL CHARACTER 



FNDCUl 



t'CR400 



Egu 

MVI 

SUB 

MOV 

EQU 

CALL 

RZ 

XRA 

ORA 

RET 



A,MAXCOL 
C 

C,A 
$ 
FN DC HP 

A 
C 



; COMPUTE NO. 
;T0 SEARCH 



OF CHARS 



;L00K for specified CHARS 
; RETURN IF EOL ENCOUNTERED 
fOTHERWISE, SET FLAG TO 
;5H0W IF CHARACTER FOUND 



ITEM 

8149 
8150 
8151 
8152 
8153 
8154 
815i> 
8156 
8157 
8158 
8159 
8160 
8161 
8162 
8163 
8164 
8165 
8166 
8167 
8168 
8169 
8170 
8171 
8172 
8173 
8174 
8175 
8176 
8177 
8178 
8179 
8180 
8181 
8182 
8183 
8184 
8185 
8186 
8187 
8188 
8189 
8190 
8191 



hoc 

lECF 
lECF 
lECF 
leCF 
lECF 
lECF 
lECF 
lECF 
lECF 
lECF 
lECF 
lECF 
lECF 
leCF 
lECF 
lECF 
lECF 
lECF 
lECF 
lECF 
lECF 
lEDO 
1E03 
1ED4 
1ED5 
IED6 
1ED6 
1ED7 
lEDA 
lEDA 
lEOA 
IFDA 
lEDA 
lEDD 
lEEO 
lEEl 
1E£4 
lEe4 
1EE4 
1EE4 
1EE5 
1EE8 
lEEB 



OBJECT CODE 



AK 
32 
13 

OC 
OC 

• 

00 

CA 



90 FF 



01 OB 
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FNDCHR - LOCATE SPECIFIED CHARACTER ♦ 



ENTRY: 



EXIT 



FNDCHR EQU 
XRA 
STA 
INX 
INR 
INR 

FCR005 EQU 
OCR 
JZ 



C = NUMBER OF COLUMNS TU SEARCH 
D,E = STARTING ADDRESS 

H,L = CHARACTERS TO LOOK FOR 

(VALID FOR FORMAT f^ODE ONLY) 

Z - CHARACTER NOT FOUND 

NZ - CHARACTER FOUND 

C = NUMBER OF CHARACTERS LEFT 

(= Or IF CHARACTER FOUND) 
D,E = ADDRESS OF TERMINATING CHARACTER 
"EOLMV" SET TO ZERO 
"PROFLD" SET IF IN FORMAT MODE 
••LSTFMT" UPDATED IF A FORMAT CONTROL 

CHARACTER IS ENCOUNTERED 



$ 

A 

EOLMV 

D 

C 

C 

$ 

C 

NZEXIT 



;SET TO PPEV CHAR ADDRESS 
; ADJUST CHARACTER COUNT 



;COLUMN FOUND? 

;YES - RETURN CHARACTER FOUN 



SEARCH DISPLAY LIST 



FCROIO 



CD 87 OB 

C2 56 IF 

87 . 

D2 D6 IE 



IF . 

FA EE IE 

32 C6 FF 

C3 DA IE 



EQU 

CALL 

JNZ 

ADD 

JNC 



NXTCHR ;GET THE NEXT CHARACTER 

FCR260 ;EOL LINK - EXIT NOT FOUND 

A ;IS IT ASCII? 

FCR005 ;YES - DECREMENT COLUMN COUN 



; NON-ASCII CHARACTER - DETERMINE CHAR FUNCTION ♦ 

RAR ; RESTORE CHARACTER 

JM FCRIOO ;NOT DISPLAY CTL - CHECK MOR 

STA LSTOCD ;UPDATE CURRENT DISPLAY CODE 

JHP FCROIO JCONTINUE SEARCHING 
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8i93 

8194 

8195 

8196 

8197 

8198 

8199 

8200 

8201 

8202 

8203 

8204 

8205 

8206 

8207 

8208 

8209 

8210 

8211 

8212 

8213 

8214 

8215 

8216 

8217 

8218 

8219 

8220 

8221 

8222 

8223 

8224 

8225 

8226 

8227 

8228 

8229 

8230 

8231 

8232 

8233 

8234 

8235 

8236 

8237 

8238 

8239 

8240 

8241 

8242 



IEEE 
1E£E 
IEEE 
IEEE 
IEEE 
lEFO 
lEFl 
1EF3 
1EF4 
1EF6 
1EF9 
lEFB 
lEFE 
IFOO 
1F03 
1F04 
1F07 
IFOA 
IFOB 
IFOE 
IFOF 
1F12 
1F15 
IF 16 

iri8 

IFIB 
IFIC 
IFIO 
1F20 
1F21 
11F24 
JIF24 
1F25 
IF26 
1F26 
1F26 
1F26 
1F26 
1F27 
1F2A 
1F2D 
IF30 
1F32 
1F35 
1F38 
IF3B 
1F3E 
1F3E 
IF41 
IF42 



FE 
C8 
FE 
C8 
FE 
CA 
F£ 
F2 
FE 
F2 
E5 
21 
22 
El 
32 
4 7 
CO 
CA 
78 
DE 
32 
78 
BC 
CA 
BD 
C2 

B7 
C9 



ES 
21 
CA 
21 
D6 
FA 
21 
CA 
21 

22 

El 
C3 



FORMAT CONTROL CHARACTER - CHECK FOR ENUING 



CC 

CE 

C4 
45 
C5 
26 
C3 
DA 

• 

06 
86 



76 
DA 

CI 
C2 



24 

DA 



23 

3E 
26 
C7 
3t 
06 
3E 
B7 

86 

• 
DA 



IF 
IF 

IE 

07 
FF 



C5 FF 



19 
IE 



FF 

IF 

■ 
IE 



48 
IF 
48 

IF 
07 
IF 
OF 

• 
FF 

IE 



FCRIOO 



FCRllO 



EQl) 

CPI 

RZ 

CPI 

RZ 

CPI 

JZ 

CPI 

JP 

CPI 

JF 

PUSH 

LXI 

ShLU 

POP 

ST A 

MOV 

CALL 

JZ 

MOV 

SB I 

STA 

MOV 

CMP 

JZ 

CMP 

JnZ 

EQU 

OKA 

RET 



$ 
EOL 

EOP 

STPFLG 

FCR200 

ALPHA 

FCR150 

XMUNLY+l 

FCROIO 

H 

ri,ZR£TRN 

CHKRTN 

H 

1.STFMT 

B,A 

CHKFMS 

FCROIO 

A,B 

STPR+1 

PROFLD 

A,B 

H 

FCRllO 

L 

FCROIO 

S 

A 



;end of line? 

;YES - RETURN 
;END OF DISPLAY? 
;YES - RETURN 

;NON-DISPLAYING TERMINATOR? 
;Yb5 - DETERMINE ITS FUNCTIO 
;TYPE DEFINITION? 
;YES - SET CHECK FUMCTIO,^ 
;FURMAT CONTROL? 
;N0 - CONTINUE SEARCHING 
;YES - RESET CHECK ROUTINE 
;ADORESS 

; RESTORE CHECK CHARACTERS 
;SET CURRENT FORMA 1 CONTROL 
?SAVE CONTROL CHARACTER 
; FORMAT/SOFT KEY DEFINE MODE 
;NQ - CONTINUE SEARCHING 

; recall character 
;compute "profld" value 
;(= -1 for protected) 
/Recall character 
; terminator found? 

;YES - EXIT 

;N0 - CONTINUE SEARCHING 

;SET Z FALSE 
;PETURt>l 



TYPE DEHNIXION FOUND - SET CHECK ROUTINE 



FCK150 



FCR160 



EQU 

PUSH 

LXI 

JZ 

LXI 

SUI 

JM 

LXI 

JZ 

LXI 

Egu 

SHLD 

POP 

JMP 



$ 

H 

H,ZALPCK 

FCR160 

H,ZNUMCK 

NUMBER+l 

FCR160 

H,ZRETRN 

FCR160 

H,SFKCHK 

$ 

CHKRTN 

H 

FCROIO 



;SAVE TERMINATOR CHARACTERS 
;SET H,L FOR ALPHA CHECK 
J SET ALPHA CHECK IF ALPHA 
;SET H,L FOR NUMERIC CHECK 
; NUMERIC FIELD? 
;YES - SET CHECK ROUTINE ADD 
;N0 - SET HrL FOR ALPHANUM 
;SET ROUTINE ADDR IF = ZERO 
;ELSE, SET FOR SOFT KEYS 

;SET CHECK ROUTINE ADDRESS 
;RECALL TERMINATOR CHARACTER 
;CONTINUE SEARCHING 



ITEM 

8244 
8245 
8246 
8247 
8248 
8249 
8250 
8251 
8252 
825i 
8254 
8255 
825t> 
825 7 
8258 
8259 
8260 
826A 
8262 



LOG 

1F45 
1F45 
1F45 
IF45 
1F45 
1F45 
1F48 
1F49 
1F4C 
1F4F 
1F52 
1F55 
1F55 
IF55 
IF55 
1F55 
1F56 
1F56 
lFb7 



OBJECT CODE 



3A 

B7 
FA 
C2 
CD 
C3 



lA 

8F 
C9 



55 
DA 
B8 
DA 



6D FF 



IF 
IE 
lA 
IE 
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; NON-PlSPLAiING TERMINATOH FOUND - DETERMINE ♦ 
; AND PEHFQHM ITS FUNCTION ♦ 



FCR200 



EQU 

LDA 

ORA 

JM 

JNZ 

CALL 

JMP 



IRMFCT 

A 

FCR250 

FCROIO 

CHRDL2 

fCROiO 



; TEPKiTiviATE TRANSFER 

FCR250 EQU S 

LDAX D 
FCR260 EgU $ 

CMP A 

RbT 



;GET THE FUNCTION FLAG 
;WHAT FUNCTION? 
;-l - TERMINATE TRANSFER 
;+l - IGNORE IT 
;0 - DELETE IT 
;CONTINUE CHARACTER SEARCH 



;PUT CHARACTER BACK IN A-REG 

;SET Z-FLAG TRUE 

; RETURN CHARACTER NOT FOUND 



13255-90003 



ITEM 

8264 

8265 

8266 

8267 

8268 

8269 

8270 

8271 

8272 

8273 

8274 

8275 

8276 

8277 

8278 

8279 

82B0 

82Bi 

8282 

8283 

8284 

8285 

8286 

8287 

8288 

8289 

8290 

8291 

8292 

8293 

8 294 

8295 

8296 

8297 

8298 

8299 

8300 

8301 

8302 

8303 

8304 

8305 

8306 

8307 

8308 

8309 

8310 

8311 

8312 

8313 

8314 

8315 



LOC 

1F58 

IF58 

1F58 

1F58 

1F58 

IF58 

1F58 

1F58 

1F58 

IF58 

1F58 

1F58 

1F58 

1F58 

1F58 

1F58 

1F58 

IF 58 

1F58 

1F59 

1F5C 

1F5C 

1F5C 

1F5D 

1F5F 

1F60 

1F61 

1F61 

1F64 

1F65 

lFb8 

1F69 

1F6C 

1F6C 

1F6D 

1F6D 

1F6E 

1F71 

1F72 

1F72 

1F75 

1F75 

1F76 

1F77 

1F78 

1F78 

1F78 

1F78 

1F78 

1F7A 

1F7D 

1F7F 
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CC 

FF 

7 

6C 

D 



CC 



3C 
21 



4F 
06 
3D 
F8 

CD 

BC 

CA 

BD 

C2 

• 

41 

B7 
FA 
OD 

C2 

AF 
BO 
C9 



F£ CC 

CA 75 IF 

FE CE , 

C3 72 IF 



FNDLST - LOCATE LAST CHARACTER TYPE AHEAD OF ♦ 
CURRENT CHARACTER * 

ENTRY : A = NUMBER OF COLUMNS TO SEARCH 

D,E s ADDRESS OF CHARACTER BEFORE 

BEFORE FIRST CHARACTER TO LOOK AT 
H,L = CHARACTERS TO BE FOUND 

EXIT ; P - CHARACTER FOUND 

B = NUMBER OF CHARACTERS FRUM CURRENT 
CHARACTER 
n - CHARACTER NUT FOUND 

R DESTROYED 
A,C,D,E DESTROYED 



FNDLSO 



EQU 
INR 
LXI 



$ 

A ; ADJUST SEARCH COUNT 

H,E0L*256fE0L ;SET TO LOOK FOR "EOL" 



FNDLST 



KLSOIO 



FLS020 
FLS030 

FLS035 
FLS040 



; NON- 
FLS050 



EQU 

MOV 

MVI 

DCR 

RM 

EQU 

CALL 

CMP 

JZ 

CMP 

JNZ 

EQU 

MUV 

EQU 

ORA 

JM 

DCR 

EQU 

JNZ 

EQU 

XRA 

ORA 

RET 
♦*♦♦♦♦ 
ASCII 

EQU 

CPI 

JZ 

CPI 

JMP 



$ 

CA 

B,377Q 

A 



NXTCHR 

H 

FLS020 

L 

FLS030 

$ 

B,C 

$ 

A 

FLS050 

C 

$ 

FLSOIO 

$ 

A 

f :f;|^f 4;4cf ««<; 

CHARACTER 

$ 

EOL 

FLS040 

EOP 

FLS035 



;PUT SEARCH COUNT IN C-REG 
; PRESET b FOR FAIL RETURN 
;ANY columns to SEARCH? 
;NU - RETURN NONE FOUND 

;GET THE NEXT CHARACTER 
;DOeS IT MATCH DESIRED CHARS 
;YES - SAVE LOCATION OF CHAR 

;N0 - GO TO NEXT CHAi^ACTEP 

;SAVE LOCATION OF CHAR IN B 

;IS CURRENT CHAR ASCII? 
;N0 - CHECK FOR TERMINATION 
; SEARCH COMPLETE? 

;N0 - CHECK NEXT CHARACTER 

;CLEAR A-REGISTER 
;SET FLAGS FUR PETURW 
; RETURN 

- CHECK FOR TERMINATION ♦ 

;IS IT AN EOL? 
;Y£S - EXIT 
;IS IT AN EOP? 
;G0 CHECK RESULT 



ITEM 

8317 
B318 
8319 
8320 
8321 
8322 
8323 
8324 
8325 
8326 
8327 
8328 
8329 
8330 
8331 
8332 
8333 
8334 
8335 
8336 
8337 
8338 
8339 
8340 
8341 
8342 
8343 
8344 
8345 
8346 
8347 
8348 
8349 
8350 
8351 
8352 
8353 
8354 
8355 
8356 
8357 
8358 
8359 
8360 
8361 
8362 
8363 
8 364 



LOC 

1F82 
1F82 
1F82 
1F82 
IF82 
1F85 
1F88 
1F8A 
lF8e 
1F8C 
1F8E 
1F8F 
1F9 2 
1F92 
1F94 
1F94 
1F95 
1F96 
IF99 
1F9A 
1F98 
1F9C 
1F9C 
1F9C 
IF9C 
1F9C 
1F9E 
IFAI 
IFAI 
1FA2 
1FA5 
1FA5 
IFAS 
IFAS 
1FA5 
1FA6 
1FA8 
1FA9 
IFAA 
IFAD 
IFBO 
IFBI 
1FB4 
IFBS 
1FB6 
1FB9 
IFBA 
IFBD 



OBJECT CODE 



CD 
C2 

2E 
46 
04 
3E 
90 
FA 

F6 

• 

4F 
78 
CD 
iD 
2F 
A6 



06 
CA 

* 

OF 

D2 



5F 
3E 
91 
90 
22 
2A 
BD 
F2 
3C 
BC 
D2 
7B 
2A 



72 
CE 
CI 



4F 
96 
07 

ED 



08 
CI 



BD 



56 



96 
BE 

96 



98 
96 
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; HTAB - SKIP TO NEXT TAB POSITION ♦ 



FF 
FF 





1 
FF 



HTAB 



Eyu 

CALL 
JNZ 

MVI 
MOV 
INP 
MVI 
SUB 
JM 

OKI 7 



$ 

CHKFHO ;FORMAI/SOFT KEY DEFINE MODE 
riTB200 ;YES - LOCATE NEXT FIELD 
L,CURCOL-BASE ;N0 - LOCATE NEXT TAB 



B,tA ;SET POSITION 

B ; START FROM NEXT COLUMN 

A,MAXCOL ;COMPUTE NUMBER OF COLUMNS 
B ;T0 END OF LINE 

CRLF ;G0 TO START OF NEXT LINE IF 
khHEhDi AT EMD OF LlHE 
?MOVE TO COL CORRESP. TO 

START OF BYTE 
;SAVE IN C 



GET TABLE EWTRY FOR COLUMl^ 
;MASK uFF BITS FOR 
;PREVIUUS COLUMNS 



MOV C,A 
MOV A,B 
CALL FWDTBl 
DCR A 
CMA 
ANA M 

; CHECK NEXT COLUMN FOR SET TAB * 

HTBIOO EQU $ 

B,8 ?GET BIT COUNT 
HTB140 ;N0 BITS SET IN 
$ 



HTB120 



MVI 

JZ 
EQV 
RHC 
JNC 



BYTE 



HTB130 
; TAB IS SET - UPDATE CURCOL * 



TAB BIT SET? 

NO - TRY NEXT COLUMN 



HTB160 



EyU 

MOV 

MVI 

SUB 

SUB 

SHLD 

LHLD 

CMP 

JP 

INR 

CMP 

JNC 

MOV 

LHLD 



$ 

E,A ;SAVE A-REGISTER 

A,MAXC0L+7 ;COMPUTE COLUMN 



OF LOCATIO 



OF TAB 



B 



LNKSAV 

RHTMGN 

L 

CRLF 

A 

H 

CURP04 

A,E 

LNKSAV 



;SAVE CURRENT TABLE ADDRESS 
;GET RIGHT AND LEFT MARGINS 
;TAB BEYOND RIGHT hARGiN? 
;Y£S - DO CR, LF 
;N0 - ADJUST TO PROPER VALUE 
;TAB BEYOND LEFT MARGIN? 
;.YES - LOCATE TAB LOCATION 
;N0 • RESTORE A-REGISTER 
; RECALL TAB TABLE ADDRESS 
LOOK FOR ANOTHER TAB 



3255- 


30003 


Rev 


AUC-Ol- 


76 


sssss. 


Kssssss: 


ESSSS 


SSSXS=SS3 


ssssrsEsssssssrsssss 


ITEM 


LOG 


OBJECT 


CODE 


SOURCE STATEMENTS 


zssss: 


= =:z=s=; = : 


rssss 


=s = : 


:s=5sr 


sssxssa:srs = = = s=s5=ss 


8366 


IFBD 


• 






.f4c^4cf4:^^:t'#ftt>^*^>r4- 


8367 


IFBD 


• 






; TAB NOT FOUND - C 


8368 


IFBD 


• 






;^:^$^^;^i^:^^ij^^i^^^H^;^:^it 


8369 


IFBO 


• 






HTB130 EQU $ 


8370 


IFBD 


05 






DCR B 


8371 


IFBE 


C2 


Al 


IF 


JNZ HTB120 


8372 


IFCI 


• 






;:»]tE4cf#4ct:^3|itf'f*4c4'*>t't 


837 3 


IFCI 


• 






; BYiE EXHAUSTED 


8374 


IFCI 


• 






? MOVE TO NEXT TAB! 


837b 


IFCI 


• 






;«^tif«f*t*tf««$*i»:t't' 


8376 


IFCI 


• 






HTB140 EQU $ 


8377 


IFCI 


79 






MOV A,C 


8378 


1FC2 


06 


08 




SUI 8 


8379 


IFC4 


FA 


96 


20 


JK CRLF 


8380 


1FC7 


4F 


, 




MOV C,A 


8381 


1FC8 


23 


, 




IMX H 


8382 


1FC9 


7e 


« 




MOV A,M 


8383 


IFCA 


67 


• 




OHA A 


8384 


IFCB 


C3 


9C 


IF 


JmP HTBIOO 



PAGE 248 

HECK NEXT COLUMN ♦ 

;N0 - THY NEXT COLUMN 
;ALL BITS EXAMINED? 
;N0 - LOOK TO NEXT BIT 

BL ENTRY * 

3)t ;Jl ♦ ^t t ♦ t * ♦ ♦ 

;GET COLUMN COUNT 
; DECREMENT 

;D0 CR,LF IF REACHED END 

;GeT NEXT BYTE FROM TABLE 

;SET FLAGS 



13255-90003 Kev AUG-01-76 
ITEM LOC OBJECT CODE SOURCE STATEMENTS PAGE 249 

; * * * ♦ ♦ sft * ♦ ♦ * % 4 * 41 ♦ ♦ * ♦ 
; FORMAT MODE TAB * 

HT6200 EQU $ 

C4 ID CALL FLDSR ; SEARCH FOR NEXT FIELD 

PNZ ; RETURN IF FOUND 

2C ID JNiP CURPHl ;HOME TO FIRST UNPROT. FIELD 



8386 


IFCE 


• 


8387 


IFCE 


• 


8388 


IFCE 


• 


8389 


IFCE 


• 


8390 


IFCE 


CD 


8391L 


IFDI 


CO 


8392 


1FD2 


C3 



13255-y0003 



ITEM 



LOC 
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06 00 

3E 02 
CJ 0£ 



3E FD 

CD DC 

3E 02 

C3 11 



ICHUN,ICHOFF - INSERT CHARACTER ON/OFf 



$ 

B,0 

$ 

A,INSCHR 

ZSl'MDl 



;SET FOR NO BUNK 

;TURN ON INSERT CHARACTER 
;LED AND FAIT 



8394 

8395 

8396 

8397 

8398 

8399 

8400 

8401 

8402 

8403 

8404 

8405 

8406 

8407 

8408 

8409 

8410 

8411 

8412 

8413 

8414 

8415 1FE8 CO 00 14 

8416 

8417 IFED C3 07 IF 



1F05 
1FD5 
1FD5 
1FD5 
1FD5 
1FD5 
1FD5 
1FD7 
1FD7 
1FD9 
IFDC 
IFDC 
IFDC 
IFDE 
IFEI 
1FE3 
1FE6 
1FE6 
1FE6 
IFE6 
1FE6 
1FE8 
IFEB 
IFED 



ICHON Egu 
MVI 

ICHOIO E^U 
MVI 
JMP 

ICHOFF Egu 
MVI 
CALL 
MVI 
JMP 

; IWHPON - 

iwRpuN Egu 

MVI 

CALL 

MVI 

JMP 



A,377g-INSWPP 

CLCMFL ;CLEAR WRAP AROUND FLAG 

A,iNSCHP ;TURN OFF INSERT CHARACTER 

ZCLMDl 
♦♦♦♦♦♦♦♦♦♦*♦♦♦*♦*♦♦♦*♦♦*♦♦♦ 
INSERT WITH WRAPAROUND ON ♦ 

$ 

A,INSWHP 

STCMFL 

B,377Q 

ICHOIO 



;SET WRAP AROUND FLAG 

;SET TO BLINK LED 

JSET INSERT CHARACTER LED ON 
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; bCKSPC - BACKSPACE ONE CHARACTEP POSITION * 

BCKSPC EQU $ 

MVI L,CURCOL-BASE 

OCR M ; DECREMENT CURRENT COLUMN 

RP /RETURN IF NOT AT COLUMN ZER 

INR 1^ ;ELSt., RESTORE TO ZERO AND 

RET ; RETURN 



8419 


IFFO 


• • • 


8420 


IFFO 


9 • • 


8421 


IFFO 


« • • 


8422 


IFFO 


• • • 


8423 


IFFO 


2E CI • 


8424 


1FF2 


35 . 


8425 


1FF3 


FO . 


8426 


1FF4 


34 . 


8427 


1FF5 


C9 . 



13255- 


•90003 


s=s==s 


.SS:==ss 


ITEM 


LOC 






8429 


1F'F6 


8430 


IFF6 


8431 


1FF6 


8432 


IFF6 


8433 


2000 


8434 


2000 


8435 


2001 
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ROM BREAK 4* 

ORG ZBRK3+4000Q 

ZBRK4 EQU $ 

50 . . DB VERSN ;ROM PRESENT FLAGS 

20 . . DB ZBRK4/256 



ITEM 

8437 
8438 
8439 
8440 
844X 
8442 
8443 
8444 
8445 
8446 
8447 
8448 
8449 
8450 
8451 
8452 
8453 
8454 
8455 
8456 
8 457 
8458 
8459 
8460 
8461 
8462 
8463 
8464 
8465 
8466 

846 7 
8468 
8469 
8470 
8471 

847 2 
8473 



LOC 

2002 
2002 
2002 
2002 
2002 
2002 
2002 
2005 
2005 
2005 
2008 
200B 
200C 
200C 
200C 
200C 
200C 
200F 
2010 
2013 
2013 
2013 
2013 
2013 
2013 
2016 
2017 
201 A 
201D 
2020 
2023 
2023 
2023 
2023 
2023 
2024 
2027 



OBJECT CODE 



CD 05 20 



CD 
CD 
C8 



3A 
B7 
C2 



2A 
EB 
3A 
32 

CD 
C2 



57 
7b 



CI Ft 



8A 
C5 
83 
39 



C9 FF 



FF 
FF 
IE 
20 



AF 

32 67 

C9 . 
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; CURADV - CURSOR ADVANCE ROUTINE * 
; ADVANCES CURSOR TO NEXT POSITION * 
; ON DISPLAY ♦ 

CnRAD2 EQIJ $ ? ADVANCE CURSOR TWICE 

CALL CURADV ;D0 FIRST CURSOR ADVANCE 
; THEN FALL IN TO DO NEXT 

CURADV EQU S 

CALL CRADV 

CALL CHKFMS 

RZ 



FF 



;ADVANCE CURSOR 

; FORMAT/SOFT KEY DEFINE MODE 
;N0 - RETURN 

FORMAT MODE * 

CHECK FOR ADVANCE INTO PROTECTED FIELD * 

^♦♦♦♦♦♦♦* »*♦*♦♦*♦♦♦♦♦♦♦♦♦♦♦»*♦*♦♦*♦♦*♦♦♦* 

LDA CURCOL /GET NEW CURRENT COLUMN 
ORA A ;DID CURSOR WRAP AROUND? 

JNZ CRA040 ;NQ - CHECK FOR PROTECTED FL 

CURSOR WRAPPED AROUND * 

SEE IF NEW LINE IS CONTINUATION * 
OF UNPROTECTED FIELD ♦ 

LHLD LSTLIN 

XCHG ;GET CURRENT LINE ADDR IN D, 

LDA FMTCTL ; RESET "LSTFMT" TO LAST 

STA LSTFMT ;FOPMAT CONTROL IN LINE 

CALL FLDSRB /CONTINUATION FIELD? 

JNZ CRA060 ;Na - TAB TO NEXT FIELD 

; RESET CURADV FLAG ♦ 

CRADVl EQU $ 
XRA A 
STA CRAFLG 
RET 



13255-90003 
ITEM LOC 
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OBJECT CODE 



-7b 






8475 

8476 

8477 

8478 

8479 

84S0 

8481 

8482 

8483 

8484 

8485 

8486 

8487 

8488 

8489 

8490 

8491 

8492 

8493 

8494 

8495 

8496 

8497 

8498 

8499 

8500 

8501 

8502 

8503 



2028 
2028 
2028 
2028 
2028 
2028 
2028 
202B 
202C 
202D 
2030 
2031 
2034 
2035 
2038 
2039 
2039 
203C 
203F 
2042 
2045 
2048 
2049 
2049 
20 4C 
204r 
2050 
2053 
2054 



2 A C3 FF 

Eb . 

IB . 

2 A 86 FF 

CD 9D IE 

El . 

22 8b FF 

C8 . 



CD 
CD 
21 
C2 
CD 
6C 

CD 
CC 
CO 
CD 
C8 
C3 



23 

A6 
C2 
49 
14 



AO 
C4 



20 
12 

CI 
20 
48 



IE 
lu 



A6 12 



2C ID 



SOURCE STATEMENTS 

; CURSOR DID NOT WRAP AROUND * 
; SEE IF CURSOR ENTERED ♦ 
; PROTECTED FIELD ♦ 



PAGE 254 



CRA040 



CPA060 



CRA070 



EQU 
LHLD 
XCHG 
OCX 
LHLD 
PUSH 
CALL 
PUP 
SHLD 
RZ 

EOU S 

CALL CRADVl 
DCXB2D 



CURADR 



CHKRTN 

H 

FNDCHO 

H 

CHKRTN 



GET THE CURRENT CHAR ADDR 
;PUT IT INTO H,L 
;SET POINTER TO NEXT CHAR 
;SAVE THE CURRENT CHECK 

; ROUTINE ADDRESS 
;NEXT CHARACTER PROTECTED? 
; (RESTORE CHECK ROUTINE 
; ROUTINE ADDRESS) 
;N0 - RETURN 



CALL 

LXI 

JNZ 

CALL 

MOV 

Egu 

CALL 

C2 

RNZ 

CALL 

RZ 

JMP 



RESET CURADV FLAG 
;DATA COMM OR I/O 



BUFF CHAR? 



H,ENOPH»25b+XMONLy 



(SET DEFAULT) 



CRA070 

ZBELL 

L,H 

$ 

FNDCH 

FLDSR 

DCXB2D 

CURPHl 



;YES - DON'T SOUND BELL 
;mj - SOUND BELL 
JLDOK FOR "ENDPR" ONLY 

;NEXT CHARACTER UNPROTECTED 

;0R ANOTHER FIELD EXIST? 
;YES - RETURN 

;DATA from DATA COMM OR CTU? 
;N0, FROM KEYBOARD - RETURN 
;YES - HOME THE CURSOR 
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ITEM LOC OBJECT CODE 



8505 
8506 
8507 
8508 
8509 
8510 
8511 
8512 
8513 
8514 
8515 
8516 
8517 
8518 
8519 
8520 
8521 
8522 
8523 
8524 
8525 
8526 
8527 
8528 
8529 
8530 
8531 
8532 
8533 
8534 
8535 
8536 
8537 
8538 
8539 
8540 
8541 
8542 
8543 
8544 
8545 
8546 
8547 
8548 



2057 
2057 
2057 
2057 
2057 
205A 
205D 
205D 
205E 
2061 
2063 
2066 
2067 
2068 
206B 
206C 
206E 
2071 
2072 
2074 
2076 
2077 
2077 
2077 
2077 
2077 
207A 
207D 
2080 
2083 
2086 
2089 
208B 
208C 
208F 
2091 
2093 
2096 
2096 
2096 
2096 
2096 
2096 
2099 



3A 
21 

BE 
CA 
3E 
FA 
34 
BE 
C4 
C8 
3A 
E6 
CO 
2E 
36 
C9 



3A 
32 
CD 
CC 
C2 
3A 
E6 
CO 
3A 
E6 
3E 
C4 



BE 
CI 



77 
4F 
5D 



65 

r4 

02 

67 
01 



C5 

8A 

76 

47 

96 

FB 

04 

• 

6E 

80 

BF 

AA 



FF 
FF 



20 



20 



FF 



FF 
FF 
19 
10 
20 
FF 



FF 



04 
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; CRADV - ADVANCE CURSOR ♦ 



CRADV 



CRAOIO 



EQU 

LDA 

LXI 

EQU 

CMP 

JZ 

MVI 

JM 

IhR 

CMP 

CNZ 

RZ 

LDA 

ANI 

RNZ 

MVI 

MVI 

RET 



RHTMGN 

H,CURCOL 

$ 

M 

CRAIOO 

A,MAXCOL 

CRAOIO 

H 

lA 

CKPROT 



GET RIGHT MARGIN SETTING 



;CURSOR AT RIGHT 
;yES - CHECK FOP 



M 



MARGIN? 
WRAP AROUND 
;(SEI FOR LAST COL CHECK) 
AFTER MARGIN - CHECK EOL 
ADVANCE CURSOR 
MOVED INTO RIGHT MARGIN OR 
;INT0 PROTECTED FIELD? 
;YtS - DON'T SET CURADV FLAG 
MDFLGl ?GET TERMINAL MODE FLAGS 
INSCHR ;IN CHARACTER INSERT MODE? 

;YES - DON'T SET FLAG 
L,CRAFLG-BASE JNU - SET CURADV FLAG 
1 



; CURSOR IS IN LAST COLUMN OF LINE ♦ 



CRAIOO 



EQU 

LDA 

STA 

CALL 

CZ 

JNZ 

LDA 

ANI 

RNZ 

LDA 

ANI 

MVI 

CNZ 



LSTFMT 

FMXCTL 

CHKFMS 

CKDSPF 

CRLF 

KBJMPR 

lilNWRP 

DFLGS 
XBF20S 

A,377Q-WRPFLG 
CLRMF2 ;YES 



;SAVE LAST FORMAT CONTROL 

;IN CURRENT LINE 
; FORMAT/SOFT KEY DEFINE OR 

;DISPLAY FUNCTIONS ENABLED 
;YfcS - DON'T CLEAR WRI^P FLAG 
;N0 - GET KEYBOARD JUMPERS 1 
;WRAP AROUND ENABLED? 
;N0 - RETURN 

;YES - GET DATA TRANSFER FLG 
;I/0 BUFFER TO DISPLAY? 
;(SET CLEAR MASK) 
- CLEAR LINE WRAP FLAG 



CD B8 21 
C3 6F OA 



» t^^^^^ilF^^^ **^**^*'¥^*^*^***^^*1F* ******* *^*^^ 
; CURSOR SHOULD BE WRAPPED INTO NEXT LINE * 
; GENERATE CR,LF ♦ 

f if ^Hf4.i^iiliilii1tiT^f}^ilt:^}ll^:^:ti:$t********** *************** 

CRLF EQU $ 

CALL CRRET ;CARfaAG£ RETURN 
JMP LNFEED ;LINE FEED 
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ITEM 

8550 
8551 
8552 
8553 
8554 
8555 
8556 
8557 
8558 
8559 
8560 
8561 
8562 
8563 
8564 
8565 
8566 
8 56 7 
8568 
8569 
8570 
8571 
8572 
8573 
8574 
8575 
8576 
8577 
8578 
8579 
8580 
8581 
8582 
8583 
8584 
8585 
8586 
8587 
8588 
8589 
8590 
8591 
8592 
8593 



LOC 

209C 
209C 
209C 
209C 
209C 
209E 
20AI 
20AI 
20A1 
20A1 
20A1 
20A3 
20A3 
20A5 
20A6 
20A7 
20AA 
20AC 
20AD 
20AE 
20AE 
20AE 
20AE 
20AE 
20B0 
20B3 
20B3 
20B3 
20B3 
20B3 
2063 
20B5 
20B5 
20B5 
20B5 
20B6 
2067 
2067 
2089 
20BA 
20BB 
206D 
20BE 
20BF 



OBJECT CODE 



3E 
C3 



3E Ff 



2£ 
86 
77 
FA 
D6 
CO 
77 



3E 
C3 



3E 

2E 
86 
77 
D6 
F8 
77 
C9 



CI 



36 4F 



20 



3 20 




CO 



20 



RIGHT 
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; CUHPR - CURSOR POINTER RIGHT ♦ 

CUHPR Egu $ 

Mvi A,i ;get increment 

JMP CURPLl 

':tit^ilfiili^^:ill,^iiti^i4i:^:t*^**** 4 *^**nf ******* 

; CURPL - CURSOR POINTER LEFT ♦ 

CURPL Egu s 

A,-l 

$ 

L,CURCOL 

M 

M,A 

CURPL2 

MAXCOL+1 



CURPLl 



MVI 

EOU 

MVI 

ADD 

MOV 

JM 

SUI 

RNZ 

MOV 



;GET INCREMENT LEFT 



M, A 



;GET CURSOR COLUM"^ 

;ADD INCHEf'jfcNT 

; STORE NEW COLUMN ADDRESS 

; WRAPAROUND TO LEFT 

;WRAPARnUNU TO RIGHT? 

;N0 - RETURN 

;YES - SET TO COLUMN ZERO 



; CURPD - CURSOR POINTER DOWN ♦ 

CURPD Egu $ 

MVI A,l 
JMP CURPUl 

CURSOR MOVED OFF LEFT OF SCREEN * 
WRAPAROUND TO RIGHT AND UP ♦ 

CURPL2 Egu $ 

MVI M,MAXCOL ;PUT CURSOR AT LAST 

; CURPU - CURSOR POINTER UP ♦ 
^^ ^f.■lif.il^%^^^^H^^^^1f1fiif.1^.1^^i^*^^.1^^i^^f.i\i.if.^** 

CURPU 



COLUMN 



CUHPUl 



Egu 


$ 


MVI 


A,MAXROW 


Egu 


$ 


MVI 


L,CURHOw 


ADD 


M 


MOV 


M,A 


SUI 


MAXROw+1 


RM 




MOV 


M,A 


RET 





GET CURSOR ROW 

ADD DISPLACEMENT 

STORE NEW ROW ADDRESS 

ROW LIMIT EXCEEDED? 

NO - RETURN 

YES - STORE ADJUSTED ROW 

RETURN 



ITEM 



LOC 
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8595 
859b 
8597 
8598 
8599 
BbOO 
bbOl 
8602 
8603 
8604 
8605 
8606 
8607 
8608 
8609 
8610 
8611 
8612 
8613 
8614 
8615 
8616 
8617 
8618 
8619 
8620 
8621 
8622 
8623 
8624 
8625 
8626 
8627 
8628 



20C0 
2OC0 
20C0 
20C0 
20C0 
20C2 
20C4 
20C7 
20CA 
20CD 
20CD 
20CD 
20CD 
20CD 
20CD 
20CD 
20CD 
20CD 
20CF 
20D2 
20D5 
20U5 
20D5 
20D5 
20D5 
20D7 
20DA 
20DD 
20D0 
20DD 
20DD 
20DD 
20DF 
20E2 



2E 
IE 
CD 
21 
C3 



OE 
11 



09 
03 
FF 
DO 
7F 



OE 02 
11 DA 
C3 F2 



OE 07 
11 D9 
C3 E2 



4F 
DB 



10 
27 
04 



FF 
20 



FF 
20 



FF 



; DFSFKY - DEFINE SOFT KEYS ♦ 



DFSFKY 



DFSIOO 



DFSllO 



EQU 

MVI 

MVI 

CALL 

LXI 

JMP 



L,SCRNRW 

E,3 

CLBALl 

H,DFSTAB 

ESCAPA 



; CLEAR SOFT 
;T0 ZERO 



KEY PARAflETERS 



SET RANGE TABLE FOR SOFT KE 
; DEFINITION ESCAPE SEQUENC 



- DEFINE ATTRIBUTE CODE 

= NORMAL 

1 = LOCAL Ot^lLY 

2 = TRANSMIT ONLY 



EQU 
MVI 
LXI 
JMP 



$ 

C,2 

D,PARM2 

DFS220 



;SET MAXIMUM VALUE AND 
; PARAMETER TO BE SET 
;SET PARAMETER AND EXIT 



K - KEY NUMBER TO BE DEFIWED 



Fyu 

MVI 
LXI 
vJHP 



C,N?^FCTK-1 ;SET MAXIMUM VALUE AND 
D,PARM3 ; PARAMETER TO BE SET 
DFS200 ;SET PARAMETER AND EXIT 



L - SET LENGTH OF INPUT 

LFS120 EQU $ 

MVI CMAXCOL ;SET MAXIMUM VALUE AND 

LXI D,PARM1 
; FALL INTO EVALUATION ROUTINE 
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ITEM 



LOC 
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8630 


20E2 




• 


• 










8631 


20E2 




• 


• 


; EVALUATE 


AND SET 


PARAMETER 


8632 


20E2 




• 


• 










8633 


20E2 




• 


• 


; D 


= MAXIMUM ALLOWABLE VALUE 


8634 


20E2 




• 


• 


; E 


= LSB OF PARAMETER TO BE SET (MSB = BASEH) 


8635 


20E2 




• 


• 










8636 


20E2 




• 


• 


DFS200 


EQU 


$ 


;ENTRV: for MIN VALUE = 1 


8637 


20e2 2A 


DE 


FF 




LHLD 


lODATA 


;GtT INPUT PARAMETER 


8638 


20E5 2B 


• 


m 




DCX 


H 


; ADJUST PARAMETER TO ONE LES 


8639 


20E6 7C 


• 


m 




MOV 


A,H 


?CHE:CK for ZERO PARAMETER 


8640 


20E7 BU 


• 


■ 




CMP 


L 


;does MSB=LSB? 


8641 


20E8 C2 


EF 


20 




JNZ 


DFS210 


;N0 - STORE ADJUST VALUE 


8642 


20fcB 


JC 


, 


• 




INR 


A 


MS ADJUST VALUE -1 


8643 


20EC CA 


F2 


20 




JZ 


DFS220 


;yES - DON'T STORE NEW VALUE 


8644 


20EF 


, 


• 


■ 


DFS210 


EQU 


$ 


;N0 - STORE ADJUSTED VALUE 


8o45 


20EE 22 


DE 


FF 




SHLD 


lODATA 




8646 


20F2 


» 


• 


• 


DFS220 


EQU 


$ 




8647 


20F2 CD 


U 


10 




CALL 


CHKHO 


; EVALUATE AND SET PARAMETERS 


8648 


20F5 3A 


88 


FF 




LDA 


CHAR 


; RECALL INPUT CHARACTER 


8649 


20F8 E6 


20 


■ 




ANT 


40Q 


;IS IT UPPER CASE? 


8650 


20FA C2 


87 


04 




JNZ 


ESCAPB 


;N0 - CONTINUE ESCAPE SEQ 


8651 


20FD 


> 


• 


• 


• 
9 






iES - SET NEW DEFINITION 
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ITEM 


LOC 


OBJECT 


CODE 


SOURCE 


STATEMENTS 


= =: = s=:s 


:s==:==: = s 


= = 5S 


ssss 




sssssss; 




8653 


20FD 


• 


, 


• 


ft^$*^**t**-¥*^******** 


8b54 


20FD 


• 


• 


• 


; UPPEP CASE CHARACTER 


8655 


20FD 


• 


• 


• 


;f:r«4'4'^1'^!^ft4cff«3|c*4c%^4: 


8656 


20FO 


CD 


8C 


19 




CALL 


CHKSFK 


8657 


2100 


CC 


69 


21 




CZ 


SWAP 


8658 


2103 


3A 


09 


FF 




LDA 


PARM3 


8659 


2106 


87 


• 


• 




ADD 


A 


8660 


2107 


3C 


• 


9 




INR 


A 


8661 


2108 


32 


CO 


FF 




ST A 


CURROW 


8662 


210B 


21 


A6 


FF 




LXI 


H,SFTKYS 


8663 


210E 


CD 


F6 


OA 




CALL 


MLKSCl 


8664 


2111 


3E 


50 


• 




MVI 


A,MAXCOLtl 


8665 


2113 


CD 


58 


IF 




CALL 


FNDLSO 


8666 


2116 


3E 


51 


• 




MVI 


A,MAXC0L+2 


8667 


2118 


90 


• 


• 




SUB 


B 


8668 


2U9 


32 


D9 


FF 




STA 


PARM3 


8669 


211C 


3A 


DB 


FF 




LDA 


PARMl 


8670 


2iir 


32 


CI 


FF 




STA 


CUHCDL 


8671 


2122 


CD 


9F 


22 




CALL 


DSPASC 


8672 


2125 


B7 


• 


• 




OEA 


A 


867 3 


2126 


CA 


5A 


21 




JZ 


DFS250 


8674 


2129 


2 A 


C3 


FF 




LHLD 


CURADR 


8675 


212C 


CD 


8b 


OB 




CALL 


NXTCHO 


8676 


212F 


3A 


CI 


FF 




LDA 


CURCOL 


8677 


2132 


FE 


4F 


* 




CPI 


MAXCOL 


8678 


2134 


C4 


54 


IC 




CHZ 


CLERLA 


8679 


2137 


CD 


C5 


21 




CALL 


CUHPRT 


8680 


213A 


21 


CO 


FF 




LXI 


H, CURROW 


8681 


213D 


35 


• 


• 




OCR 


M 


86«?2 


213E 


3A 


DA 


FF 




LDA 


PARM2 


8bd^ 


2141 


3D 


• 


• 




DCP 


A 


8684 


2142 


3fc 


4E 


• 




MVI 


A,N 


8685 


2144 


FA 


4E 


21 




JM 


DFS230 


8686 


2147 


3E 


4C 


• 




MVI 


A,L 


8687 


2149 


CA 


4E 


21 




JZ 


DFS230 


8688 


214C 


3E 


54 


a 




MVI 


A,T 


8689 


214E 


• 


, 


• 


DFS230 


EQU 


$ 


8690 


214E 


CD 


14 


23 




CALL 


DSPTST 


8691 


2151 


CD 


63 


21 




CALL 


SWAPO 


8692 


2154 


21 


FO 


27 




LXI 


H,DFSTB2 


8693 


2157 


C3 


7F 


04 




J MP 


ESCAPA 



PAGE 259 

INPUT - EVALUATE SEQUENCE ♦ 

;SOFT KE^ DEFINE MODE? 

;N0 - SET TO SOFT KEY DISPLA 

;COMPUTE DESIRED KEY DATA RO 

;= 2*(KEY NUMBER) + 1 

; LOCATE THE START OF THE 
;DATA ROW 

; LOCATE THE END OF THE DATA 
;POW + 1 

;SAVE END COLUMN NUMBER 
;TRy TO EXTEND LINE TO 

;END OF NEW DATA LINE 
;TRY to ALLOCATE LINE NEEDED 
;COLUMN POSITION ALLOCATED^ 
?NU - DON'T SET NEW VALUE 
;YES - GET ADDRESS OF 

;END OF NEW DATA LINE 
;GET NUMBER OF DATA CHARS 
?FULL LINE USED? 
;N0 - CLEAR EXCESS CHARACTER 
;SET CURRENT COLUMN TO ZERO 
;SET FOR ATTRIBUTE ROW 

?GET ATTRIBUTE PARAMETER 
; WHICH ATTRIBUTE TO SET? 

;(N = NORMAL) 
;0 - SET AS NORMAL KEY 

;(L = LOCAL ONLY) 
;1 - SET FOR LOCAL ONLY 
;2 - SET FOR TRANSMIT ONLY 

; STORE ATTRIBUTE LETTER 
/RESTORE ACTIVE DISPLAY 
;SET RANGE TABLE FOR SOFT 
;KEY DATA ACCUMULATION 



13255-90003 
ITEM LOC 



8b95 
8696 
8697 
869» 
8699 
8700 
8701 
8702 
8703 
8704 
8705 
8706 
8707 
8708 
8709 
8710 
8711 
8712 
8713 
8714 
8715 
871b 
8717 
8718 
8719 
8720 
8721 
8722 
8723 
8724 
8725 
8726 
8727 
8728 
8 729 
87 30 
8731 
8732 
8733 
8734 
8735 
8736 
8737 
8738 
8739 
8740 
8741 



215A 
215A 
215A 
2 ISA 
215A 
215A 
215D 
21bO 
2163 
2163 
2163 
2163 
2163 
2163 
2163 
2163 
2163 
2163 
2163 
2163 
2166 
2168 
2169 
2169 
2169 
216C 
2160 
216E 
216F 
216F 
2171 
2174 
2177 
2177 
2177 
2177 
2177 
2178 
2179 
217A 
217B 
217C 
2170 
217E 
217F 
2180 
2183 



3A 
E6 
CO 



21 

7E 

2f 

77 

• 

OE 

11 

21 



46 
lA 
EB 
70 
12 
EB 
13 
23 
00 
C2 
C9 
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NOT ENOUGH BLOCKS AVAILABLE FOR SOFT KEY DATA * 
RESTORE OLD STATE AND IGNORE DEFINITION » 

DFS2b0 EQU $ 

3A 09 FF LDA PARM3 ; RECALL ENO OF DATA LINE 

32 CI FF STA CURCOL 

CD 3C IC CALL CLEARL ;CLEAR ANY ADDED CHARACTERS 

SWAP - SWAP DISPLAY PARAMETERS BETWEEN SOFT ♦ 
KE^ AND NORMAL DISPLAY * 

ENTRY: DON'T CARE 

EXIT : DISPLAY PARAMTERS EXCHANGED 
ALL REGISTERS DESTROYED 



F8 
08 



AE FF 



OF 

AF FF 

BE FF 



FF 



SWAPO 



SWAP 



SWAPl 



EQU 
LDA 


$ 
CMFLGS 


AN I 


DEFSKY 


RNZ 




EQU 


$ 


LXI 


H,DSPTXP 


MOV 


A,M 


CMA 




MUV 


M,A 


EQU 


$ 


MVI 


CNUMSWP 


LXI 


D,SWPSTR 


LXI 


H,RHTMGN 



;GET COMMON FLAGS 
;DEF1NE SOFT KEY MODE? 
;N0 - DON'T DO SWAP 



;SET DISPLAY T)^PE FLAG 

;T0 VALUE FOR DISPLAY TO 
;MADE ACTIVE 



;SET SWAP COUNT 
;SfcT ADDRESS OF LOCATIONS 
;T0 BE EXCHANGED 



EXCHANGE DISPLA)f PARAMETERS 



SWPOIO EQU 
MOV 



77 21 



$ 

B,M 
LDAX D 
XCHG 

MOV H,B 
STAX D 
XCHG 
INX 
INX 
OCR 
JNZ 
RET 



D 
H 
C 
SWPOIO 



;GET CURRENT SETTING 
;GET STORED SETTING 
; EXCHANGE ADDRESSES 
; STORE NEW SAVE VALUE 
/STORE NEW CURRENT VALUE 
/RESTORE ADDRESSES 
/INCREMENT TO NEXT VALUE 

;ALL VALUES EXCHANGED? 
;N0 - MOVE NEXT VALUE 
;YES - RETURN 



ITEM 

8744 
8745 
8746 
8747 
8748 
8749 
8750 
8751 
8752 
8753 
8754 
8755 
8756 
875 7 
8758 
8759 
8760 
8761 
8762 
8763 
8764 
8765 
8766 
8767 
8768 
8769 
^8770 
8771 
8772 
8773 
8774 
8775 
877o 
8777 
8778 
8779 
8780 
8781 
8782 
8783 
8784 
8785 
8786 
8787 
8788 
8789 
8790 
8791 
8792 
8793 
8794 



LOC 

2184 
2184 
2184 
2184 
2184 
2187 
218A 
218D 
218E 
218F 
2191 
2194 
2195 
2198 
219B 
219E 
21A1 
21A2 
21A5 
21A8 
21AB 
21AB 
21AB 
21AB 
21AB 
21AE 
21B1 
2182 
21B2 
21B2 
21B2 
21B2 
21B5 
21B8 
21B8 
21B8 
2JB8 
21B8 
21B8 
21B8 
21B8 

2ie8 

21B8 
21B8 
21B8 
21BB 
21BD 
21C0 
21C3 
21C5 
21C5 
21C8 



nBJECT CODE 



CD 
CC 
21 
7E 
F5 
36 
CD 
Fl 
32 
CD 
CD 
21 
35 
F2 
21 
C3 



CD 
CA 
C9 



3A 
E6 
CA 
21 
36 



8C 
69 

F4 



00 
B6 

• 

F4 
63 
30 

DB 

8F 
54 
7F 



A6 
6F 



CD A6 
C2 8F 



FB 
02 
C5 
6C 
20 



19 
21 

FF 



14 

• 

FF 
21 
05 
FF 

04 
26 
04 



12 
OA 



12 

04 



FF 

21 

FF 



snuRC 

; ♦♦♦» 
; SET 

^ ^ ^ ^ 

DFS30 



E STATEMENTS 
SOFT KEY DATA 

;(c4c4(;tif 4!«4:|if 3(c:|c:tc]^:«; 
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EQIJ 

CALL 

CZ 

LXI 

MOV 

PUSH 

MVI 

CALL 

POP 

STA 

CALL 

CALL 

LXI 

OCR 

JP 

LXI 

JMP 



■ ^ T T Tr 

; wAl 

;♦♦♦♦ 
DFS35 



CHKSFK 

SWAP 

HrMDFLGl 

A,M 

P3W 

M,0 

FDESCl 

PSW 

MDFLGl 

SWAPO 

GKTDCl 

HrNEwCOL 

M 

ESC API 

HrDFST63 

ESCAPA 

T FOR CHARACTER 

EQIJ $ 

CALL DCXB2D 
JZ LNFEEO 
PET 



SOFT KEX ALREADY ENABLED? 
NO « SET SOFT KEY DISPLAY 
GET SOFT MODE FLAGS 

SAVE SOFT MODE FLAGS 
FORCE IWSERT CHARACTER OFF 
ADD INPUT TO DEFINITION 
RECALL SOFT MODE FLAGS 
RESTORE ORIGINAL VALUES 
RESTORE ACTIVE DISPLAY 
SET DISPLAY CURSOR 

ALL CHARACTERS DONE? 
NO - CONTINUE ESC SEQUENCE 
YES - SET TO WAIT FOP ANY 
;CHAR EXCEPT CR, LF, OR DC 

TU RESTORE NORMAL MODE ♦ 

;LINE FEED CODE 

;OATA FROM KEYBOARD? 

; YES - DO LINE 'fEED 

;N0 - RETURN TO RE-ENABLE AL 
CODES BY CALL TO "ESCEND" 
IN "CHINT" CLEAN-UP 



DFS360 EQU 
CALL 
JNZ 



$ ; RETURN CODE 

DCXB2D ;DATA FROM KEYBOARD 
ESCAPl ;N0 - CONTINUE WAITING 

YES - DO RETURN OPERATION 

CFRET - SET CURSOR TO LEFT MARGIN * 
ENTRY; DON'T CARE 



3A BF FF 



EXIT 



CRRET EQU 
LDA 
ANI 
JZ 
LXI 
MVI 

CURPRT EQU 
LDA 

CRRETl EQU 



A,CURCOL = LEFT MARGIN SETTING 
IF SPOW NOT DISABLED, SPOW SET 



KBJMPR 

SPliDIS 

CURPRT 

H,SPOWL 

M,SPOWON 

$ 

LFTMGN 

$ 



;GET STRAP SETTINGS 
;SPOW DISABLED? 
;YES - RETURN CURSOR ONLY 
;N0 - SET SPOW LATCH 



?SET CURSOR TO LEFT MARGIN 
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; UPDATE CURRENT COLUMN NUMBE 

;AND SET DISPLAY CURSOR 
; RETURN 



8795 


21C8 


32 


CI 


FF 


STA 


CURCOL 


8796 


21CB 


32 


00 


87 


STA 


lOCRCL 


8797 


21CE 


C9 


• 


• 


RET 





ITEM 



LOC 



OBJECT CODE 






•§799 
8800 
8801 
8802 
8803 
8804 
8805 
8806 
8807 
8808 
8809 
8810 
8811 
8812 
8813 
8814 
8815 
8816 
8817 
8818 
8819 
8820 
8821 
8822 
8823 
8824 
8825 
.8826 
"8827 
8828 
8829 
8830 
8831 



21CF 

21CF 

21CF 

21CF 

21CF 

2102 

21D3 

21D6 

2109 

21D9 

2109 

2109 

2109 

2 IOC 

210E 

210E 

21E0 

21E0 

21E0 

21E0 

21E0 

21E0 

21E0 

21E0 

21E0 

21E0 

21E0 

21E0 

21E2 

21E2 

21E5 

21E6 

21E9 



CO 8C 19 

CO . 

21 54 27 

C3 81 04 



3A 89 FF 
F6 OF 



06 30 



F6 



80 
89 



32 
78 . 
32 77 



FF 
FF 
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; DISPLAY ENHANCEMENT ♦ 

DISPEN EQU $ 

CALL CHKSFK ;DEF1NE SOFT KEY MODE? 

RNZ JYES - NO DISPLAY ENHANCEMEN 

LXI H.DENTAB ; SET FOR DISPLAY ENHANCEMENT 

JMP ESCAPO 
.4:ft**»***>r ♦»*♦*♦*♦**♦*♦♦♦♦♦♦*** ♦**♦♦*♦***♦ 
; OISPLC - ENTER DISPLAY ENHANCEMENT CHAR ♦ 



OISPLC 



OISPCO 



EQU 
LOA 
ANI 
EQU 
MVI 



;GET DISPLAY CHARACTER 

; EXTRACT ENHANCEMENT BITS 



OCHAR 

17Q 

$ 

ti,60Q ;SET MASK TO SAVE ALT CHAR 

OISPCl - ENTER ENHANCEMENT OR FLAG CHARACTER * 



ENTRY 



EXIT : 

OISPCl Egu 
ORI 

DISPC2 Egu 
STA 
MOV 
STA 



:= CHARACTER TO BE STORED 

:= MASK TO SAVE UNCHANGED PART (USED 

ONL^ FOR ENHANCEMENT CHARACTERS) 



SEE "DISPLA" 



S 

2000 

$ 

OCHAR 

A,B 

CDSPEN 



;A0D bit FOP PEFRESH LOGIC 

; STORE NElM ENHANCEMENT CODE 
; STORE MASK FOR ENHfti>iC£MENT 

;B1TS NOT TO PE ALTERED 
FALL INTO DISPLAY ROUTINE 



13255-90003 
ITEM LOC 



8833 
8834 
8835 
8836 
8837 
88 38 
8839 
8840 
8841 
8842 
8843 
8844 
8845 
8846 
8847 
8848 
8849 
8850 
8851 
8852 
8853 
8854 
8855 
8856 
8857 
8858 
8859 
8860 
8861 
8862 
8863 
8864 
8865 
8866 
8867 
8868 
8869 
8870 
8871 
8872 
8873 
8874 
8875 
8876 
8877 



21E9 
21E9 
21E9 
21E9 
21E9 
21E9 

2ie9 

21E9 
21E9 
21E9 
21E9 
21E9 
2ie9 
21E9 
2ie9 
21E9 
21 £9 
21E9 
21 EC 
21ED 
2tF0 
21F0 
21E0 
21F0 

2iro 

21 FO 
21F3 
21F4 
21F7 
21FA 
21FA 
21FD 
21FD 
21FD 
21FD 
21FE 
2 IFF 
2202 
2205 
2205 
2206 
2209 
220C 
220F 
2212 
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DISPLA - ADD CHARACTER TO DISPLAY * 



ENTRY: CURCOLrCURPOW = SCREEN POSITION WHERE 
CHARACTER IS TO BE INSERTED 
DCHAR = CHARACTER TO BE DISPLAYED 
CDSPEN = MASK TO MASK OUT COMMON BITS 
IF DCHAR IS A DISPLAY CONTROL BYTE 

EXIT : A = 0, NO PLACE FOR CHARACTER 
A # 0, CHARACTER PROCESSED 

B = CHARACTER REPLACED IF ADDITION 
DONE BY INSERT 
D,E = ADDRESS OF CHAR IN DISPLAY 

DISPLA EglJ $ 

LDA DCHAR ;GET CHAR TO BE STORED 
ORA A ;IS THIS ASCII CHAR? 
JP DIS060 ;YES - CONTINUE 

CONTROL CODE TO BE ENTERED INTO ♦ 
DATA STREAM - FIND CHAR PRECEDING * 
THIS COLUMN * 



3A 
B7 
F2 



4F 
OC 
CD 
C2 

IB 
21 
CD 
CA 
21 
4E 



FF 



9F 22 



3A CI 

3D . 

CD OB 

FA 16 



65 
13 



C2 
AO 
D4 
CI 



FF 

07 
OB 



C2 EC 22 



10 
22 



CI 
IE 
22 
FF 



LDA 
DCR 
CALL 
JM 



CUHCOL 
A 

RCADRO 
MLOCKl 



JNZ DISlOO 



;GtT CURRENT COLUMN NUMBER 
;SET FOR PREVIOUS COLUMN 
;DOES LINE EXIST? 
;N0 - SOUND BELL AND EXIT 

WITH A -REGISTER = 
;COL BEYOND EOL - EXTEND LIN 



f PREVIOUS COLUMN FOUND ♦ 



SAVE COLUMN IN C 
;SET C TO NEXT COLUMN NUMBER 
/PREVIOUS CHAR PROTECTED? 
;N0 - CONTINUE 



MOV C,A 
INR C 
CALL CKPRGT 
JNZ DIS030 
DIS020 EQU $ 

DCX D ;YES - SET PTR TO NEXT CHAR 

LXI H,£NDPR*256+XMONLY 

CALL FNDCH ;IS NEXT CHARACTER PROTECTED 
JZ DIS092 ;YES - LOOK FOR NEXT FIELD 
LXI H,CURCOL ;YES - RECALL COLUMN VALUE 
MOV C , M 



w •■» «» aM ■» «M 




sssss 


SSS3 


:s:sss 


ITEM 


LOC 


OBJECT 


CODE 


8879 


2213 


• 


• 




8880 


2213 


• 


• 




8881 


2213 


• 


• 




8882 


2213 


• 


• 




8883 


2213 


CD 


87 


OB 


8884 


2216 


47 


• 




8885 


2217 


21 


89 


FF 


8886 


221A 


FE 


C4 




8887 


221C 


CA 


3F 


22 


8888 


221F 


FE 


CC 




8889 


2221 


7E 


• 




8890 


2222 


CA 


87 


22 


8891 


2225 


Ft: 


C4 




8892 


2227 


CA 


D5 


lA 


8893 


222A 


7« 


• 




8894 


222B 


87 


• 




8895 


222C 


7E 


• 




8896 


222D 


D2 


87 


22 


8897 


2230 


FA 


4 7 


22 


8898 


2233 


8 7 


• 




8899 


2234 


FA 


13 


22 


8900 


2237 


• 


• 




890i 


2237 


• 


• 




8902 


2237 


• 


• 




8903 


2237 


• 


• 




8904 


2237 


3 A 


77 


FF 


8905 


223A 


AO 


• 




8906 


223B 


B6 


• 




8907 


223C 


C3 


75 


22 


8908 


223F 


• 


• 




8909 


223F 


« 


, 




89.10 


223F 


• 


• 




89U 


22 3F 


• 


• 




8912 


223F 


BE 


• 




8913 


2240 


C8 


• 




8914 


2241 


CD 


B8 


lA 


8915 


2244 


C3 


13 


22 
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; SEARCH FOR PLACE FOR CHARACTER ♦ 

D I SO 30 EQU a 

;GET NEXT CHAR 

;SAVE EXISTING CHAR IN B-REG 

;NUN-D1SPLAYING TERMINATOR? 

;YES - DELETE IT 

; EXISTING CHARACTER AN EOL? 

;(GET CHAR TO BE DISPLAYED 
;YES - ADD CHARACTER TO LINE 
;NOM-DISPLAYiNG TERMINATOR? 
;YES - INSERT TERMINATOR 
;N0 - RECALL EXISTING CHAR 
;EXIST1NG CHARACTER ASCII? 

;(GFT CHAR TO BE DISPLAYED 
;YES - INSERT iViEW CHARACTER 
;FLAG char - ADD FLAG TO DIS 
;NEW CHAR DISPLAY CONTROL? 
;N0 - GO TO NEXT CHARACTER 

; MERGE NEW DISPLAY ENHANCEMENT * 
; WITH CODE ALREADY IN THIS COLUMN ♦ 

LDA CDSPEtM ;Gt,T ENHANCEMEiNiT MASK 

ANA B ; EXTRACT BITS TO BE SAVED 

ORA M /COMBINE WITH NEW ENHANCEHEN 

JWP DIS044 ; STORE THE NEVv DISPLAY CODE 

; wON-DISPLAiflNG TERMINATOR FOUND - DELETF IT * 

DIS035 EQU $ 

CMP M ;IS NEW CHAR TERMINATOR ALSO 

RZ ;YES - RETURN 

CALL CHRDL2 ; NO - DELETF THE CHARACTER 

JMP DIS030 /CONTINUE SCAN 



CALL 


NXTCHR 


MOV 


B,A 


LXI 


H,DCHAR 


CPI 


STPFLG 


JZ 


DIS035 


CPI 


EOL 


MOV 


A,M 


JZ 


DIS050 


CPI 


STPFLG 


JZ 


CRI104 


MUV 


A,B 


ADD 


A 


MOV 


A,M 


JNC 


DIS050 


JM 


DIS040 


ADD 


A 


JM 


DTS030 



13255-90003 



ITEM 

8917 
8918 
8919 
8920 
8921 
8922 
8923 
8924 
8925 
8926 
8927 
B928 
8929 
8930 
8931 
8932 
8933 
8934 
8935 
8936 
8937 
8938 
8939 
8940 
8941 
8942 
8943 
8944 
8945 
8946 
8947 
8948 
8949 
8950 
8951 
8952 
8953 
8954 
8955 
8956 
8957 



LOC 

2247 
2247 
2247 
2247 
2247 
2248 
2249 
224A 
224B 
224F 
2250 
2251 
2254 
2256 
2259 
225C 
225C 
225C 
225C 
225C 
225C 
225E 
2261 
2263 
2264 
2267 
2268 
226B 
226B 
226B 
226B 
226B 
226C 
226D 
2270 
2273 
2274 
2275 
2275 
2276 
2277 
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OBJECT CODE 



B8 
C8 
87 
IF 
F2 
FE 
78 
FA 
FE 
F2 
C3 



FE 
F2 
3E 
B8 
CA 
BE 
CA 



lA 
47 
3A 
21 
BE 
C8 

12 
3C 
C9 



7b 
C5 

5C 
C5 
6B 
13 



C5 
D5 
CO 

13 

05 



89 
6C 



-76 

SOURCE STATEMENTS 

; FLAG CHAh FOUND ♦ 

DTS040 EQU $ 
CMP B 
RZ 

ADD A 
RAR 

JP DIS045 
CPI ALPHA 
MOV A,B 
JM DIS042 
CPI ALPHA 
JP UIS043 
JMP DIS030 

; FIELD DEFINITION C 
AHEAD OF TYPE DF 



PAGE 266 



FF 
FF 



;IS THIS SAME FLAG CHAH? 

;YES - RETURN (A # 0) 

;NEW CHARACTER DISPLAY 

;(HESTORE CHARACTEK) 

iYES - CHECK PHOTECTED 



DIS042 



EQU 

CPI 

JP 

MVI 

CMP 

JZ 

CMP 

JZ 



$ 

ALPHA 

CRI104 

A,STPR 

B 

DIS030 

M 

CRI104 



; REPLACE EXISTING D 
UIS043 



DIS044 



EQU 


$ 


LDAX 





MOV 


B,A 


LDA 


UCHAR 


LXI 


h,SPOWL 


CMP 


M 


RZ 




EQU 


$ 


STAX 


D 


INR 


A 


RET 





CNTL? 

FIELD 
;IS NEW CHAR TYPE DEFINITION 

; (RECALL OLD FLAG CHAR) 
;N0 - ADD FIELD DEFINITION 
;IS OLD CHAR TiPE DEFINITION 
;YES - REPLACE THE CHARACTER 
;N0 - GO TO NEXT CHARACTER 

HARACTER TO BE ADDED - PUT ♦ 
FINITION OH AFTER "STPR" * 

;IS OLD CHAR TYPE DEFINITION 
;YES - INSERT FIELD DFF 
;N0 - STORE NEw FIELD OEF 
;OLD CHAR = START PROTECT? 
;YES - LOOK TO N'EXT CHAR 
;IS NEW CHAR A STPR? 
;YES - INSERT BEFORE UNPROTC 

ISPLAY CHARACTER * 

;PUT EXISTING CHARACTER INTO 

;B-REG FOR SOFT KEY CHECK 
;GET CHAR TO BE DISPLAYED 
;CHECK AGAINST SPOW LATCH 
; INPUT = SPACE AND SPOW SET? 
;YES - RETURN (A » 0) 

; STORE THE NEW CHARACTER 
; FORCE A # 
; RETURN 



ITEM LOC OBJECT CODE 

^B959 2278 

a960 2278 

896i 2278 

8962 2278 

8963 2278 

8964 2278 78 

8965 2279 FE CO 

8966 227B C2 13 22 

8967 227E CD 76 19 

8968 2281 CA 13 22 

8969 2284 C3 05 22 

8970 2287 

8971 22B7 

8972 2287 

8973 2287 

8974 2287 

8975 2287 87 

8976 2288 FA 95 22 

8977 22bB 3A 77 FF 

8978 228F ?fc C6 

8979 2290 A6 , 

8980 2291 2E 89 

8981 2293 B6 

8982 2294 77 

8983 2295 

8984 2295 78 

8985 2296 B7 
^986 2297 F2 05 lA 

^9Q7 229A Ofc: 00 . 

8988 229C C3 01 23 



SOURCE STATEMENTS 

£r = s=:sss=:srsss = ssss = ss 

; FLAG CHAK FOUND AND 
; DISPLAJ^ CONTHOL TO 
;**j^* ♦♦♦♦♦♦*»♦♦♦*♦♦♦♦ 
DIS045 EQU $ 

MOV A,B 
CPI STPR 
JNZ DIS030 
CALL CHKFMS 
JZ DrS030 
JMP DIS020 

; ASCII OP EOL FOUND 
; MERGE NEW DISPLAY C 



13255-90003 Kev AUG-01-76 

PAGE 267 

BE ADDED * 

^ :i( :*: 3»: 4: 41 f 9|c ^ ^ 



DIS050 



DIS054 



EQU 

ADD 

JM 

LDA 

MVl 

ANA 

MVI 

OKA 

MOV 

EyU 

MOV 

ORA 

JP 

MVI 

JMP 



$ 

A 

DIS054 

CDSPEN 

L.LSTDCD- 
M J 

L„DCHAR-B 

M 
M,A 
$ 

A,B 
A 

CR1104 
CrO 
DISllO 



/RECALL EXISTING CHARACTER 
/BEGINNING A PROTECTED FIELD 
;N0 - MOVE TO NEXT CHAR 
/FORMAT MODE? 
;N0 - ADD CHAR TO DISPLAY 
;YES - LOOK FOR NEXT FIELD 

* 
ONTROL IF NECESSARY * 

;NEW CHAR DISPLAY CONTROL? 

;N0 - ADD CHAP TO DISPLAY 

;YES - GET MASK 
BASE ;GET LAST ENHANCEMENT 
EXTRACT BITS TO BE SAVED 
ASE 

/COMBINE WITH NEW ENHANCEMEN 
STORE 



WAS CHAR ASCII? 

YES - DO INSERT 

NO • ADD SINGLE CHAR 



13255-90003 
ITEM LOC 
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OBJECT CODE 



B990 

8991 

8992 

8993 

8994 

8995 

8996 

8997 

8998 

8999 

9000 

9001 

9002 

9003 

9004 

9005 

9006 

9007 

900B 

9009 

9010 

9011 

9012 

9013 

9014 

9015 

9016 



229F 
229F 
229F 
229F 
229F 
229F 
22A2 
22A5 
22A5 
22A8 
22A9 
22AC 
2 2 AC 
2 2 AC 
22AC 
22AC 
22AE 
22B1 
22B4 
22B4 
22B4 
2264 
22B4 
22B4 
2267 
2 26H 
22BB 



CU 
C8 
CU 
C3 



-76 
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; LUIEB ASCII CHARACTER INTO DATA STREAM * 
USPASC FQU $ 



CO 08 07 

CA BE 22 

FA H4 22 

OD . 

C2 EC 22 



FE 4F . 
C2 01 23 
Ci Ct 22 



76 19 



DIS060 



DISPLO 



Evil $ 

CALL HCADDR 

JZ DIS080 

e^u S 

JH DIS070 

DCR C 

JNZ DISIOO 



;GET MEiMUPX 
;CHAR FOUND 



ADUHESS 
6Y RCAUDR 



; RET URN IF LINE NOT BUILT 
;MURfc THAN ONE CHAH NEEDED 



SI^iGLE CHARACTER REQUIRED * 
CHECK FOk LAST COLUMN UF LINE ♦ 

CRI MAXCOL ;COMPARE WITH 
JNZ DISllO ;N0T MAXIMUM 
JMP DIS090 

LINE NOT BUILT ♦ 

PERFUPh HOMEUP IF FORMAT MODE * 



MAX COLUMN 
COLUMN 



UIS070 



14 
E5 



4b 
22 



Eyu 

CALL 
RZ 

CALL 
JMP 



CHKFMS ; FORMAT MODE? 

;N0 - HEXUftN (A = 0) 
Z8ELL ;YES - SOUND BELL 
DIS093 ;HOME UP AND THY AGAIN 
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ss5s::s; 


zssssss 


sssz 


SS3S 


sssss 


sssrssss: 


ssssssssssss:?: 




ITEM 


LUC 


OBJECT 


CODE 


SOURCE 


STATEMENTS 


PAGE 269 




szsssss 


xssz 


ssss 


sssss; 




sssssssssssss 


ssssssssssssssssssssss-sssssstss 


9018 


22BE 


• 




• 


;***:»*:»t;|t:fj|t** ♦♦♦♦*♦♦*♦*♦*♦ 


9019 


22BE 


• 




• 


; CHARACTER REPLACEMENT ♦ 


9020 


22BE 


• 




• 


;4c]|cf:|ctft«t>|(3|c4t4::(()|;:(c:^:^i^^)(c%ir 


9021 


226E 


• 




• 


DIS080 


EQU $ 




9022 


22BE 


4F 




• 




MOV C,A 


?SAVE COLUMN IN C 


902:> 


226F 


3A 


F4 


FF 




LDA MDFLGl 


;GET TERMINAL MODE FLAGS 


9024 


22C2 


Et? 


02 


• 




AMI INSCHR 


;IN CHARACTER INSERT MODE? 


9025 


22C4 


CA 


CE 


22 




JZ DIS090 


;N0 - ADD CHARACTER TO DISPL 


902b 


22C7 


3A 


90 


FF 




LDA EOLMV 


;yES - GET EOL SHIFTED FLAG 


9027 


22CA 


B7 


• 


• 




OH A A 


;HAS LINE BEEN EXTENDED? 


902« 


22CB 


CA 


CF 


lA 




JZ CRllOO 


;N0 - PERFORM INSERT CHAR 


9029 


22CE 


• 


• 


• 


DI5090 


EQU $ 




9030 


22CE 


CD 


65 


10 




CALL CKPROT 


;CURSOR IN PROTECTED FIELD? 


90311 


22D1 


C2 


6B 


22 




JNZ DIS0 43 


;N0 - STORE THE CHARACTER 


9032 


2204 


• 


• 


• 


D1S092 


Egu $ 




9033 


22D4 


CD 


A6 


12 




CALL DCXB2D 


;DATA COMM or I/O BUFF CHAR? 


9034 


22D7 


CC 


14 


48 




CZ Z6ELL 


;N0 - SOUND THE BELL 


903t> 


22DA 


3A 


89 


FF 




LDA uCHAR 


;GET char to be DISPLAYED 


9036 


22DD 


B7 


• 


• 




ORA A 


;IS IT A CONTROL CHARACTER? 


9037 


22DE 


F8 


• 


• 




RM 


;YES - DON'T TAB (RETURN A 10 


9038 


22DF 


CD 


C4 


ID 




CALL FLDSR 


?N0 - TAB TO NEXT FIELD 


9039 


22E2 


C2 


E9 


21 




JNZ DISPLA 


;JOMP IF FIELD FOUND 


9040 


22E5 


• 


, 


• 


DIS093 


EQU i> 




9041 


22E5 


CD 


2C 


ID 




CALL CURPHl 


;ANY FIELDS IN DISPLAY? 


9042 


22E8 


C2 


E9 


21 




JivtZ DISPLA 


;YES - ADD CHARACTER TO FIEL 


9043 


22EB 


C9 


• 


• 




RET 


;N0 - RETURN (A # 0) 



13255-90003 
ITEM LUC 



9045 
904o 
904 7 
904B 
9049 
9050 
9051 
9052 
9053 
9054 
9055 
9056 
9057 
9058 
9059 
9060 
9061 
9062 
9063 
9064 
9065 
9066 
9067 
906B 
9069 
9070 
9071 
9072 
907 3 
907 4 
9075 
9076 



22ec 
22ec 
22t:c 

22EC 
22c;C 

22ec 
22e;c 

22fc:C 
22fc;C 

22fc:n 

22F0 
22F3 
22F6 
22f9 
22FB 
22F6 
22FB 
22FB 
22FF 
2 301 
23ul 
2301 
23o4 
2307 
2 30A 
230A 
230b 
230C 
230F 
2310 
2313 
2314 
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LINE MUST BE EXTENDED TO ACCOMODATE CHARACTER ♦ 
- EXTEND TO ONE COLUMN BEFORE DESIRED COLUMN * 

ENTRY: C = NUMBER OF CHARACTERS REQUIRED 



CD 
C2 
CD 
CA 
21 
36 



CD 
CA 
CO 

B7 
C8 
3A 
3u 
F2 
C9 



01 
65 
04 
9B 
01 



CD B7 
C3 OA 



65 
D4 
AB 



23 

10 
22 
FF 



Od 
23 



10 
22 
OB 



9B FF 



E9 21 



CALL D1SPL2 
JMP DISli4 



DISloO EyU $ 

DCR C ;MOHE THAN ONE CHAR TO ADD? 

JNZ DISllO ;N0 - ADD MULTIPLE CHARACTER 
CALL CKPROT ;CURSOK IN PROTECTED FIELD? 
JZ DIS092 ;YES - TAB TO NEXT FIELD 
LXI HrNCHAH ;iMu - SET "NCHAR" TO STORE 
MVI M,l pBLANK OVER EOL (I.E., 

MAKE DISPLAY RQUTINF 
THINK MORE THAN ONE 
CHARACTER BEING ADDED) 
; EXTEND LINE BY ONE CHARACTE 
/CHECK MEMORY LOCKED 

m 

DISllO EQU $ 

CALL CKPROT /CURSOR IN PROTECTED FIELD? 

JZ DIS092 ;YES - TAB TO NEXT FIELD 

CALL DISPLl ;N0 - EXTEND LINE 

DIS114 EvU $ 

ORA A /MEMORY LOCKED? 

RZ ;YES - RETURN FAIL (A = 0) 

LDA NCHAR /GET # OF CHARACTERS ADDED 

DCR A /SINGLE CHARACTER ADDED? 

JP DISPLA /NO • TRY TO STORE AGAIN 

RET /YES - STORE DUNE BY DISPLAY 

(A # 0) 



ITEM 

9078 
9079 
9080 
9081 
9082 
9083 
9084 
9085 
9086 
9087 
9088 
9089 
9090 
9091 
9092 
9093 
9094 
9095 
9096 
9097 
9098 
9099 
9100 
9101 



LOC 

2314 
2314 
2314 
2314 
2314 
2314 
2314 
2314 
2314 
2314 
2314 
2317 
23iA 
23iA 
231A 
231A 
231A 
231A 
231D 
231D 
231E 
2321 
2322 
2325 



OBJECT 



32 89 
CD OF 



21 05 20 



Kb . 

CD 9F 

B7 . 

CA 50 



13255-90003 Hev AUG-01-76 

CODE SOURCE STATEMENTS fc^ACiE 271 



DSPTST - DISPLAY TEST PATTERN 

ENTRY: A = CHARACTER TO BE DISPLAYED 
EXIT : A,B,C,D,E,L DESTROYED 



DSPTST EQU $ 

FF SIA DCHAR ;PUT CHAR IN DISPLAJf BUFFER 

17 CALL SETDFO ; SET DATA COMM INPUT FLAG TO 

INHIBIT BELL ON FIELD SKIP 

DSPCHR - DISPLAY CHARACTER IN DCHAR 

DSPCHR Ego $ 

LXI H,CURADV ;SET NORMAL EXIT ROUTINE 
DSPCHO EQU $ 

PUSH H ;SAVfc NORMAL EXIT ROUTINE 

22 CALL DSPASC ;ADD ASCII CHAR TO DISPLAY 
HRA A ;CHARACTER DISPLAYED? 

23 01 UCHIOO ;NU - DON'T MOVE CURSOR 

FALL INTO DISPLAY ROUTINE 



13255-90003 



ITEM 

9103 

9104 

9105 

9106 

9107 

9108 

9109 

9110 

9111 

9112 

9113 

9114 

9115 

9116 

9117 

9118 

9119 

9120 

9121 

9122 

9123 

9124 

9125 

9126 

9127 

9128 

9129 

9130 

9131 

9132 

9133 

9134 

9135 

9136 



LOC 

2325 
2328 
2329 
232C 
232D 
2330 
2333 
2334 
2335 
2336 
2336 
2336 
2336 
2337 

233 A 
233A 
233D 
233D 
2340 

234 3 
2346 
2348 
234B 
234D 
2350 
2350 
2350 
2350 
2350 
2350 
2351 
2351 
2354 
2357 
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CD 
C8 
CD 
CO 
3A 
2A 
C7 
C8 
Fl 



AF 



CD 
CD 
C2 
FE 
C2 
3E 
C3 



El 

CD 
CA 
C9 



76 19 



A6 12 



89 
86 



8b 
05 
3D 
00 
3A 
09 
08 



FF 
FF 



32 9C FF 



CD 14 48 



15 
48 
23 

23 

48 



PAGE 272 

FUHMAT/SOFT KEY DEFINE MODE 

NO - DO NORMAL EXIT 

DATA COMM OH I/O BUFF CHAR? 

m - DO NORMAL EXIT 

GET CHARACTER DISPLAYED 

NO - GET CHECK ROUTINE ADDR 

IS IT A VALID CHARACTER? 

YES - DO NORMAL EXIT 

NO - POP OFF NORMAL EXIT AD 



FIELD CHECK ERROR - LOCK UP UNTIL BACKSPACE HIT 



CALL 


CHKFMS 


RZ 




CALL 


DCXB2D 


RNZ 




LDA 


DCHAR 


LttLD 


CHKRTN 


HST 


;RSTJMP 


RZ 




POP 


PSW 



A6 
14 



12 
48 



XRA 
Si A 

DCHOIO EQU 
CALL 

DCH020 EQU 
CALL 
CALL 
JNZ 
CPI 
JNZ 
MVI 

JN!P 
♦ + 4c ♦♦♦♦»♦ ^c ♦ 

CHARACIEH 
CHARACTE 

DCHioo egu 

POP 
DSPCHl EUU 
CALL 
JZ 
RET 



A 

CHARIN 

$ 

ZBELL 

$ 

lOCTMN 

ZGETKY 

DCH020 

CR 

OCHOIO 

A,STPRPT 

ZKBCTL 



;CLEAR OUT INPUT CHARACTER 
;T0 KILL FUNCTION KE^S 

; SOUND BELL 



; MUNI TOP THE TAPE DRIVES 

;AwY KEY HIT? 

;N0 - CONTINUE WAITING 

;IS IT THE RETURN KEi? 

;N0 - SOUND BELL, TRY AGAIN 

;YES - STOP RETURN KEY 

JFROM REPEATING AND EXIT 
♦ ♦♦♦4t****t** + ♦♦♦♦♦ + ♦♦♦♦♦♦*♦*♦** 
NOT DISPLACED - SOUND BELL IF * 
K FROM KEYBOARD * 

$ 

H ;PUP OFF NORMAL EXIT ROUTINE 

$ 

DCXB2D ; INPUT FROM KEYBOARD 
ZBELL ;YES - SOUND BELL AND EXIT 
;NU - RETURN ONLY 



ITEM 

913B 
9139 
9140 
9141 
9142 
9143 
9144 
9145 
9146 
9147 
914B 
9149 
9150 
9151 
9152 
9153 
9154 
9155 
915b 
9157 
9158 
9159 
9160 
9161 
9162 
9163 
9164 
9165 
9166 



LOC 

2358 
2358 
2358 
2358 
2358 
2358 
2358 
2358 
2358 
2358 
2358 
2358 
235B 
235C 
235D 
2360 
2363 
2364 
2365 
2367 
236A 
23t>C 
236F 
2371 
2374 
2375 
2377 
2379 
237C 
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EXPAND - EXPAND DISPLAY CONTROL TO ESCAPE ♦ 
SEQUENCE * 

ENTRY: A,C = DISPLAY CONTROL BYTE 

EXIT : H = BASEH 

A,B,L DESTROYED 



CD 
87 
IF 
FA 
21 
AE 
C8 
E6 
CA 
06 
CD 
3E 
CO 
79 
E6 
F6 
CD 
2E 



05 26 



AC 
76 



OF 
7E 
26 
BA 
64 
CO 

• 

OF 
40 
CO 
76 



EXPAND 



23 

FF 



23 



13 



Egu 

CALL 

ADD 

PAR 

JM 

LXI 

XRA 

RZ 

ANT 

JZ 

MVI 

CALL 

MVI 

CALL 

MOV 

ANI 

UK I 

CALL 

MVI 



INITDI 



EXPlOO 
H,ENriOUT 

1/0 
EXPOlO 
e,AMPSND 
ECQUIB 
ArSMALLD 
A2UUTB 
A,C 

I7g 

lOOQ 

A20UTB 

L,ENHOUT- 



; INITIALIZE CHAR BUFFER PTHS 
;TS CHAR DISPLAY CONTROL? 

/(RESTORE CHARACTER) 
;N0 - EXPAND FORMAT CONTROL 
;YES - COMPARE TU PREVIOUS 
;ANV CHhHGtlS^ 
NO - RETURN IMMEDIATELY 
CHANGE IN ENHANCEMENT? 
;N0 - CHECK NEW CHARACTER SE 
;YES - OUTPUT ENHANCEMENT 

; ESCAPE SEQUENCE: 

;<ESC>-<&>-<LOWER CASE D> 

; COMPUTE ENHANCEMENT 

/PARAMETER (^-0) 
/ADJUST TO ASCII LETTER 
;PUT IT INTO OUTPUT BUFFER 
BASE /CHECK CHARACTER SET 



13255-90003 
ITEM LOC 



9168 
9169 
9170 
9171 
9172 
9173 
9174 
9175 
9176 
9177 
9178 
9179 
9180 
9181 
9182 
9183 
9184 
9185 
9186 
9187 
9188 
9189 
9190 
9191 
9192 
9193 
9194 
9195 
9196 
9197 
9198 
9199 
9200 
9201 
9202 
9203 
9204 
9205 



237E 
237E 
237E 
237E 
237E 
237F 
2380 
2382 
2383 
2384 
2385 
2387 
238A 
238C 
238D 
2390 
2391 
2391 
2391 
2391 
2391 
2393 
2396 
2397 
2399 
239A 
239B 
239C 
239D 
239F 
23A2 
23A2 
23A2 
23A4 
23A7 
23A7 
23A7 
23A9 
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CHECK FOR CHARACTER SET CHANGE 



sssssxrsssss: 
PAGE 274 



79 
AE 
E6 
71 
C8 
79 
E6 
CA 
2E 
BE 
CA 
77 



06 
CD 
79 
E6 
OF 
OF 
OF 
OF 
C6 
CD 



3E 
C3 



3E 
C3 



30 



30 
A7 
75 

A2 



29 
BA 

30 



40 
CO 



OE 
CO 



OF 
CO 



23 



EXPOlO EQU $ 

MUV A,C ; RECALL CURRENT SETTING 

XRA M ;COMPAHE TO PREVIOUS VALUE 

ANI 600 ;ANY change in CHAR SET? 

MOV M,C ;(SAVE NEW SETTING) 

RZ ;N0 - RETURN 

MOV A,C ;YES - RECALL NEW SETTIMG 

ANI 600 ; RETURN TO BASE SET? 

JZ EXPOlO ;YES - SEND SHIFT IN (SI) 

MVI L,CALTST-BASE ; LS IT THE SAME 

CMP M ? ALTERNATE CHAP SET? 

JZ EXP020 ;YES - SEND SHIFT OUT ONLY 

MUV M,A ;NQ - SAVE NEW ALTERNATE 

GENERATE ESCAPE SEQUENCE FOR ALTERNATE 
CHARACTER SET SPFCIf lEP 



MVI ti,ARPARN 

CALL ECOUTB 

MOV A,C 

ANI 60y 

RkC 

RRC 

RRC 

RRC 

ADI lOOQ 

CALL A2UUTB 



; OUTPUT <ESC> 

;<RIGHT PARENTHESIS> 

;COMPUTE ALTERNATE CHARACTER 
;SET PARAMETER 



;SEND IT 



13 



EXP020 Egu s 

MVI A, SO 
JMP A20UTB 

r 

EXP030 EQV $ 

MVI A, SI 
JMP A20UTB 



;SEND SHIFT OUT (SO) 
;AND RETURN 



;SEND SHIFT IN 
;AND RETURN 



ITEM LOC OBJECT CODE 

9207 23AC 

9208 23AC 

9209 23AC 

9210 23AC 

9211 23AC FE C2 

9212 23AE 06 7B 
921 i 23B0 CA BA 13 

9214 2363 F2 C2 23 

9215 23B6 FE CI 
9210 23B8 06 5B 

9217 23BA CA BA 

9218 2 3BD 04 , 

9219 23BE 04 . 

9220 23BF C3 BA 

9221 23C2 

9222 23C2 

9223 23C2 

9224 23C2 

9225 23C2 FE C8 

9226 23C4 06 7F 

9227 23C6 F2 BF 
922B 23C9 FE C3 

9229 23CB CA BF 

9230 23CE D6 8F 

9231 2300 47 . 

9232 23D1 C3 RA 13 
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EXPAND ON FORMAT CONTROL 

EXPlOO Egu $ 

CPI XMONLY ;TRANSMIT ONLY CONTROL? 

MVI brLFTBRC ; (SEX FOR LEFT BRACE) 

vVl eCOUTB ;YES - OUTPUT AND EXIT 

JP EXPUO ;TYPE DEF - OUTPUT NUMBER 

CPI ENDPR ;END PROTECT? 

MVI BrLFXBKT ;(SET FOR LEFT BRACKET - [ 

JZ ECOUTB ;YES - OUTPUT AND EXIT 

livR B ;N0 - ALTER CHAR TO RIGHT 

IfMR B ; BRACKET AND OUTPUT IT 

JMP ECOUTB 

T^PE DEFINITION - OUTPUT NUMERIC TERMINATOR 

EXP 110 EQU $ 

CPI SFKYAT ;tS CODE VALID? 

MVI 6,ADEL ;(SET DEL CHAR FOP INVALID 

JP 620UT6 ;N0 - RETURN DEL CHARACTER 

CPI FILL ;F1LL CODE? 

JZ 620UTB ;YES - RETURN DEL CHARACTER 

SUI ALPHA-6-ZER0 ;COMPUTE ASCII DIGIT 

MOV B,A ;PUT CHARACTER INTO b-HEG 

JMP ECOUTB ? OUTPUT THE ESCAPE SEQUENCE 



13255-90003 
ITEM LOC 
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SOFl KEY MODE? 
NO - DO NORMAL PROCEDURE 
YES - GET CURSOR ROw 
BEYOND SOFT KEY DATA? 
YES - RETURN END OF DISPLAY 
IN ATTRIBUTE ROw? 
NO - OUTPUT DISPLAY DATA 
YES - START ESCAPE SEQUENCE 
INIT OUTPUT BUFFER POINTERS 
SEND <FSC>-<<i> 
;<LOWER CASE F> 



9234 


23D4 


• 


• 








9235 


23D4 


• 


• 




; GET DISPLAY DATA 


9236 


2304 


• 


• 








9237 


23D4 


• 


a 




GDSOIO EQU 


$ 


9238 


23D4 


CD 


8C 


19 


CALL 


CHKSFK 


9239 


23D7 


CA 


70 


24 


JZ 


GDS050 


9240 


23DA 


3A 


CO 


FF 


LDA 


CURROW 


9241 


23DD 


. FE 


10 




CPI 


SFIEND 


9242 


23DF 


fl 


BB 


24 


JP 


GDS160 


9243 


23E2 


OF 


• 




RRC 




9244 


23E3 


DA 


3C 


24 


JC 


GDS030 


9245 


23e6 


Oo 


26 




MVI 


B,AMPSND 


9246 


23E8 


CD 


05 


2b 


CALL 


INITDl 


9247 


23EB 


CD 


6A 


13 


CALL 


ECOUIB 


9248 


23EE 


3E 


6b 




MVI 


ArSMALLF 


9249 


23F0 


CD 


CO 


13 


CALL 


A20UTB 


9250 


23F3 


3A 


CO 


FF 


LDA 


CURROW 


9251 


2 3F6 


OF 


• 




RkC 




9252 


23F7 


3C 


, 




INR 


A 


9253 


23F8 


Fb 


30 




Ohl 


ZERO 


9254 


23FA 


CD 


CO 


13 


CALL 


A20UTB 


9255 


23FD 


3E 


6B 




MVI 


A,SMALLK 


9256 


23FF 


CD 


CO 


13 


CALL 


A20UTB 


9257 


2402 


2A 


C9 


FF 


LHLD 


LSIHN 


9258 


2405 


70 


, 




MOV 


A,L 


9259 


2406 


Do 


08 




SUI 


ATBLOC 


9260 


24u8 


6r 


« 




MOV 


L,A 


9261 


2409 


7E 


• 




MOV 


A,M 


9262 


240A 


06 


30 




MVI 


6, ZERO 


9263 


240C 


FE 


4E 




CPI 


N 


9264 


24ue 


CA 


18 


24 


JZ 


GDS020 


9265 


2411 


04 


• 




INR 


6 


9266 


2412 


FE 


4C 




CPI 


L 


9267 


2414 


CA 


18 


24 


JZ 


GDS020 


9268 


2417 ' 


04 


• 




INR 


b 


9269 


2418 


• 


» 




GDS020 EQU 


$ 


9270 


2418 


CD 


BF 


13 


CALL 


B20UTB 


9271 


2418 


3E 


61 




MVI 


A,SMALLA 


9272 


241D 


CD 


CO 


13 


CALL 


A20UTB 


9273 


2420 


3E 


10 




MVI 


A,FRS0UT 


9274 


2422 


CD 


39 


17 


CALL 


SETMF2 


9275 


2425 


CD 


C4 


ID 


CALL 


FLDSR 


9276 


2428 


EB 


• 




XCHG 




9277 


2429 


22 


73 


FF 


SHLD 


GETADR 


9278 


242C 


• 


• 




« 




9279 


242C 


• 


a 




t 





;<KEY NUMBfcP> 



;<L0WER CASE K> 

;GET ADDRESS OF CURRENT 

;HNE 
;COf>^PUX"E LOCATION OF 

; ATTRIBUTE CODE 
;GET ATTRIBUTE CODE 
/COMPUTE ATTRIBUTE CODE: 

;0 = NORMAL 

;1 = LOCAL ONLY 

;2 = TRANSMIT ONLY 



;OUTPUT ATTRIBUTE CODE 

;OUTPUT <LOWER CASE A> 
;SET FLAG TO INDICATE FIRST 

;SOFX KEY DATA OUT 
; LOCATE THE DATA FIELD 

;SAVE FIRST CHAR ADDRESS 
RESTART "GETDSP" TO OUTPUT 
FIRST SOFT KEY CHAR 



ITfcM 
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GCTDSP - GET A CHAPACTER FROM DISPLAY 

ENTRY: CURADR = ADDP OF DISPLAY BYTE 
CURCOL = COLUMN OF NEXT BYTE 

EXIT : NC - CHARACTER FOUND 
A = CHARACTER 
GETADR, CURCOL UPDATED 

C " NO CHARACTER 

M - END Ot UI6PLAY 
Z - END OF FIELD 
P,NZ - END OF LINE 

B-L DESTROYED 



9281 


242C 




9282 


242C 




9283 


242C 




9284 


242C 




9285 


242C 




9286 


242C 




9287 


242C 




9288 


242C 




9289 


242C 




9290 


242C 




9291 


242C 




9292 


242C 




9293 


242C 




9294 


242C 




9295 


242C 




929t> 


242C 




9297 


242C 




9298 


24 2C 




9299 


242C : 


>A 


9300 


242F / 


'E 


9301 


2430 4 


J6 


9302 


2431 F 


\E 


9303 


2432 C 


:a 


9304 


2435 7 


!C 


9305 


2436 3 


K 


9306 


2437 1 


n 


9307 


2438 e 


>F 


9308 


2439 1 


'E 


9309 


243A E 


\1 


9310 


243B C 


:9 



3C FF 



D4 



ETOSP EQU 


$■ 


LXI 


H,B20PTR 


MOV 


a,m 


DCX 


rii 


CMP 


f'l 


JZ 


GDSOIO 


INR 


L 


InR 


A 


MOV 


M, , A 


MOV 


L,A 


MOV 


A,M 


ora 


A 


RET 





;GtT EXPANSION BUFFER 

; POINTER 
;SET ADDRESS TO END POINTER 
; BUFFER EMPTi? 
;YES - GET BYTE 
;N0 - INCREMENT 

; STORE TT 



FROM DISPLAY 
POINTER AND 



;SET BUFFER ADDRESS 
;GET THE DATA BYTE 
;SET C = FALSE 
; RETURN CHARACTER FOUND 



13255-90003 



ITEM 



LOC 
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9312 
9313 
9314 
9315 
9316 
9317 
9318 
9319 
9320 
9321 
9322 
9323 
9324 
9325 
9326 
9327 
9328 
9329 
9330 
9331 
9332 
9333 
9334 
9335 
9336 
9337 
933B 
9339 
9340 



243C 
243C 
243C 
243C 
24 3C 
24 3F 
2440 
2442 
2443 
2446 
2447 
244A 
244D 
244E 
2450 
2453 
2455 
2458 
2459 
2459 
245A 
245D 
2460 
2462 
24b5 
2466 
2467 
2469 
246C 



GET SOFT KEY DATA 



GDS030 



21 

7E 

E6 

BE 

CA 

77 

CD 

2A 

EB 

3E 

CD 

3E 

FA 

90 

• 

F5 

21 

CD 

3E 

CD 

Fl 

3D 

3E 

FC 

a 



6F FF 

• • 
EF . 

• • 
70 24 

• • 
05 26 
73 FF 
» • 
4F . 

58 IF 
50 . 

59 24 



CO 
23 
4C 
CO 



13 
08 

13 



GD&040 



20 . 
CO 13 
2C 24 



LXI 

i4UV 

AM 

CMP 

JZ 

MUV 

CALL 

LHLD 

XCHG 

MVI 

CALL 

MVI 

JM 

SUB 

EQU 

PUSH 

LAI 

CALL 

MVI 

CALL 

POP 

DCR 

MVI 

CM 

JMP 



H,MFLGS2 

A,M 

i77Q-FHSOU 

f4 

GDS050 

M, A 

INITDI 

GETADP 

A,MAXCUL 
FNDLSO 

ArMAACOL+1 

GDS040 

B 

$ 

PSw 

H,A20UTB 

BN2DE1 

A,L 

A20UTB 

PSa 

A 

A,ABLNK 

A2UUTB 

GEIDSP 



GET MODE FLAGS 

MASK OUT FIRSr OUTPUT FLAG 



X 

;F1PST DATA? 

;N0 - GET NEXT DATA 

;Yt,S - UPDATE FLAG 

; INITIALIZE CHAP BUFFER PTRS 

; LOCATE END OF LINE 

;PUT STAKT ADDRESS IN D,E 

; SEARCH TO END OF LINE 

;ANY "EOL" In DATA LINE? 

;(SEX FOR i^O EOL LENGTH = 80 
;N0 - OUTPUT VALUE MAXCOL+1 
;yES - COMPUTE EOL LOCATION 

;SAVE DATA LENGTH 
;SET OUTPUT ROUTINE ADDRESS 
/CONVERT AND STORE Irt BUFFER 
/OUTPUT UPPER CASE L 

/RECALL DATA LENGTH 
/DOES DATA EXISTS 

; (SET TO ADD BLANK) 
/NO - ADD A BLANK TO OUTPUT 
/OUTPUT LENGTH PARAMETER 



ITEM 



LOC 
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■^9342 


2 4 OF 


• 














9343 


24dF 


• 








GET 


NEXT 


BYTE Fl 


9344 


246F 


• 














9345 


246F 


• 






GDS045 


EQU 


$ 


9346 


246F 


77 










MOV 


M,A 


9347 


2470 


• 






• 








934B 


2470 


• 






GDS050 


Eyu 


$ 


9349 


2470 


2A 


73 


FF 






LHLD 


GETADR 


9350 


2473 


AF 










XHA 


A 


9351 


2474 


b5 










OKA 


L 


9352 


2475 


CA 


B8 


24 






JZ 


GDS150 


9353 


2478 


• 






GDS060 


EQU 


$ 


9354 


247 8 


7E 










MOV 


A,M 


9355 


2479 


2B 










OCX 


H 


935b 


247A 


22 


73 


FF 






SHLD 


GETADR 


9357 


247D 


B7 


• 








OHA 


A 


9358 


247E 


F2 


92 


24 






JP 


GDSIOO 


9359 


24yi 


FE 


DO 








CPI 


LNKLIM 


9360 


2483 


DA 


BF 


24 






JC 


GDS200 


9361 


2486 


6E 


• 








MUV 


hfW 


9362 


2487 


67 


• 








MQV 


ri,A 


9363 


2488 


7D 


• 








MOV 


A,L 


9364 


2489 


2F 


• 








CMA 




9365 


248A 


E6 


OF 








AM 


BLKSH 


9366 


248C 


CA 


78 


24 






JZ 


GDSOoO 


9367 


248F 


C3 


44 


25 






JMP 


GDS320 



;EN1RY TO SKIP TERMINATOR 
,• UPDATE "DFLGS" TO CLEAR 
SKIP TERMINATOR FLAG 

;GET CURRENT ADDRESS 

;ENP OF DISPLAY? 
;YES - TERMINATE 



DECREMENT TO NEXT BYTE 

UPDATE "GETADR" 

tS BYTE ASCII? 

YES - RETURN CHARACTER 

IS IT A LINK? 

NO - PROCESS DISPLA)^ CONTRO 

YES - SET MEW ADDRESS 

PUT LSB INTO A-REGISTEP 

IS IT AN END OF LINE LINK? 
NU - CONTliViUE THRU CHAIN 
YES - CHECK TERMINATON 



13255-90003 
ITEM LOC 
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9369 
9370 
9371 
937 2 
9373 
9374 
9375 
9376 
9377 
9378 
9379 
9380 
9381 
9382 
9383 
9384 
9385 
938b 
9387 
9388 
9389 
9390 
9391 
9392 
9393 
9394 
9395 
9396 
9397 
9398 
9399 
9400 
9401 
9402 
9403 
9404 
9405 
9406 
9407 
9408 



2492 
2492 
2492 
2492 
2492 
2493 
2496 
2497 
2498 
2499 
249C 
249F 
24A0 
24A2 
24A5 
24A8 
24A9 
24AA 
24AA 
24AA 
24AA 
24AA 
24AA 
24A0 
24AE 
24AF 
24B2 
24B3 
24B5 
24B8 
24B8 
24B8 
24B8 
24B8 
24BB 
24BB 
24BB 
24BC 
24BD 
24BE 



47 
U 
lA 
3C 
12 
32 
3A 
B8 
3t 
CA 
CD 
7b 
C9 



21 

A6 
RE 
C2 
lA 

CC 



Ci F 



00 
04 

F7 
AA 
01 



CD 20 



AF 
3D 
37 
C9 



87 

50 



24 
16 



6E FF 



6F 24 



6 20 



ASCII BYTE FOUND - RETUHN CHARACTER FOUND 



GDSIOO EQU 
MOV 
LXI 
LDAX 
IwR 
ST AX 
STA 
LDA 
CMP 
MVI 
JZ 

CALL 
MOV 
RET 

'K TER 
lUHN 

EQU 

LXI 

ANA 

CMP 

JNZ 

LDAX 

Cf I 

CZ 



$ 

B,A 

D,CURCOL 

D 

A 

D 

lOCRCL 

BLKTRM 

b 



;SAVE THE CHARACTER 

; INCREMENT CURSOR COLUMN 
; POSITION 



; BLQCI 
HE 

GDSllO 



; UPDATE DISPLAY CURSOR 
/GET BLOCK TERMTNAIOR CHAR 
;I5 CHAR = BLOCK TERMINATOR? 
A,377Q-SKPTRM ?(SET CLEAR FLAG) 
GDSllO ;YfcS - PETURi^ TERMINATION 
CLRDFL ;N0 - CLEAR SKIP FLAG 
A,B /RECALL DISPLAY CHARACTER 
;R£TURw (NC FROM "CLRDFL") 

MINATOR - CHECK FOR END OF LINE, * 
END OF DISPLAY * 

5J 

H,DFLGS /CLEAR SKIP TERMINATOR FLAG 

M 

M 

GDS045 

D 

MAaCOL+1 

CPLF 



/WAS SKIP FLAG SET? 
/YES - IGNORE TERMINATOR 
/NO - TERMINATE TRANSMISSION 
/WAS RS IN LAST COLUMN? 
/YES - DO CP,LF 



RETURN END OF DISPLAY 



GDS150 EQU $ 

CALL FLDSHX 

GD5160 EyU $ 

XRA A 

DCR A 
STC 
RET 



/SET "LSTCOL" TO MAXCOL+1 TO 
FORCE LINE PE-SCA^J 

/SET A TO -1 

/SET C-FLAG TRUE 
/RETURN 



13255-90003 



ITEM 



LOC 



OBJECT CODE 



SOURCE STATEMENTS 
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'9410 


24BF 


• 


m 


• 










9411 


24BF 


• 


• 


• 


; NON- 


-ASCII 


, BYTE PROCESSING 


9412 


24BF 


• 


• 


• 










9413 


24BF 


« 


• 


• 


GDS200 


EQU 


$ 




9414 


24BF 


FE 


CE 


• 




CPI 


EOP 


;END OF DISPLAY? 


9415 


24CI 


CA 


BB 


24 




JZ 


GDS150 


;Y£S - RETURN END OF DISPLAY 


9416 


24C4 


FE 


C4 


• 




CPI 


STPFLG 


; NON-DISPLAYING TERMINAIORV 


9417 


24C6 


CA 


OC 


25 




JZ 


GDS230 


;YES - RETURN END OF DISPLAY 


9418 


24C9 


FE 


CC 


• 




CPI 


EOL 


;END OF LINE? 


9419 


24CB 


CA 


22 


25 




JZ 


GDS300 


;YhS - RETURN END OF LINE 


9420 


24CE 


FE 


C3 


• 




CPI 


FILL 


;fill byte? 


9421 


24D0 


CA 


78 


24 




JZ 


GDS060 


;YES - GET NEXT BYTE 


9422 


24D3 


4F 


• 


• 




MOV 


CA 


;NQ - SA^E THE BYTE 


9^- -23 


24D4 


CD 


76 


19 




CALL 


CHKFMS 


; FORMAT/SOFT KEY DEFINE MODE 


9424 


24D7 


C2 


E7 


24 




JNZ 


GDS210 


;YES - LOOK FOR START PROTEC 


9425 


24DA 


3 A 


64 


FF 




LDA 


10FLG2 


;Nu - GET 1/0 FLAGS 2 


942b 


24DD 


E6 


20 


• 




AN I 


XDS2BF 


/DISPLAY TO I/O buffer? 


942 7 


24DF 


79 


• 


• 




MOV 


A,C 


; (RECALL DATA BYTE) 


9428 


24E0 


CO 


• 


, 




R/^*Z 




;YES - RETURN UNEXPANDED BYT 


9429 


24k;i 


CD 


5B 


23 




CALL 


EXPAND 


;Nu - EXPAND DISPLAY CONTROL 


9430 


24E4 


C3 


2C 


24 




JMP 


GETDSP 


;P£TUPN 1ST EXPANDED CHAR 


9431 


24E7 




* 


• 










9432 


24E7 




• 


• 


; FORMAT MODE - IGNORE ALL DISPLAY CONTROL EXCEPT 


9433 


24E7 




• 


• 


; FOR START PROTECT 


9434 


24E7 




• 


, 










9435 


24E7 




• 


• 


Gr)S210 


E^U 


S 




9436 


24E7 


79 


• 


m 




MOV 


A,C 


; RECALL THE DATA BYTE 


,9437 


24E8 


FE 


CO 


• 




CPI 


STPR 


;IS IT START PROTECT? 


943« 


24EA 


C2 


78 


24 




JNZ 


GDS060 . 


;N0 - IGNORE THE BYTE 


9439 


24ED 


E6 


w 


• 




XCHG 




;YES - PUT GETADR INTO D,E 


9440 


24EE 


2A 


CO 


FF 




LHLD 


CURROW 


;SAVE ENDING ROW AND 


9441 


24F1 


3A 


A3 


FF 




LDA 


TLINO 


;C0LUMN+1 FOR FIELD 


9442 


24F4 


85 


• 


• 




ADD 


L 




9443 


24F5 


6F 


• 


• 




MOV 


L,A 


;SAVE ABSOLUTE ROV»( NUMBER 


9444 


24F6 


22 


20 


FF 




SHLD 


EMDPOW 




9445 


24F9 


• 


• 


• 


GDS220 


Egu 


S 




9446 


24F9 


CD 


53 


10 




CALL 


GTMODl 


;PAGE MODE/DISPLAY -> BUFFER 


9447 


24FC 


CA 


09 


25 




JZ 


GDS225 


;N0 - RETURN END OF FIELD 


9448 


24FF 


CD 


B9 


ID 




CALL 


FLDSRl 


;ANY MORE FIELDS? 


9449 


2502 


CA 


B8 


24 




JZ 


GDS150 


;N0 - EXIT END OF DISPLAY 


9450 


2505 


EB 


• 


• 




XCHG 




;yES - STORE NEW GETADR 


9451 


2506 


22 


73 


FF 




SHLD 


GETADR 




9452 


2509 


• 


• 


• 


GDS225 


Egu 


$ 




945 3 


2509 


AF 


• 


• 




XRA 


A 


;RETUPN END OF FIELD 


9454 


250A 


37 


• 


• 




STC 




;(C = TRUE, A = 0) 


9455 


250B 


C9 


• 


• 




RET 







13255-90003 
ITEM LOC 
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OBJECT CODE 



9457 
9458 
9459 
9460 
9461 
9462 
9463 
9464 
9465 
9466 
9467 
9468 
9469 
9470 
9471 
9472 



250C 
250C 
250C 
250C 
250C 
250C 
250F 
2511 
2514 
2515 
2518 
2519 
251A 
251D 
251E 
251F 



3A 
E6 
3A 
4F 
2A 
23 
EB 
C4 
EB 
2B 
C3 



FA 
02 
CI 



73 FF 



B8 



B8 24 



-76 

ssssssxxxsssssssssssssasss 

SOURCE STATEMENTS 

; NON-DISPLAYING TEPMIN 
; AUTO CLEAR OPTION 

GDS230 E^U $ 



LUA 


KBJMP2 


ANI 


CLRTt^M 


LDA 


CURCOL 


MOV 


C,A 


LHLD 


GETAUR 


INX 


H 


XCHG 




CNZ 


CHRl)L2 


XCHG 




OCX 


H 


JMP 


GDS150 



PAGE 282 
ATOR FOUND - CHECK FOR * 

GET JUMPERS SET 2 
CLEAR TERMINATOR? 
;(SET CURRENT COLUMN) 

;(SET LOCATION OF 

; TERMINATOR) 
;CPUT ADDRESS INTO D,E) 
YES - CLEAR THE B^TE 

SET LAST CHARACTER ADDRESS 
RETURN END OF DISPLAY 



ITEM 



LOC 



OBJKCl CODE 



13255-90003 Rev AUG-01-76 
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9474 


2522 


• 


• 


• 


• 








9475 


2522 


• 


• 


• 


; 


END 


OF LINE - PAD 


9476 


2522 


• 


• 


• 










947? 


2522 


• 


• 


• 


GDS300 


EQU 


$ 


947B 


2522 


CD 


76 


19 






CALL 


CHKFHS 


9479 


2525 


CA 


41 


25 






JZ 


GDS310 


9480 


2528 


FA 


41 


25 






JM 


GDS310 


9481 


2S2B 


U 


CI 


FF 






LXI 


D,CURCOL 


9482 


252E 


JA 


• 


• 






LDAX 


D 


9483 


252F 


F£ 


50 


• 






CPI 


MAXCQL+1 


948 4 


2531 


CA 


41 


25 






JZ 


GDS310 


9485 


2534 


3C 


• 


• 






INP 


A 


9486 


2535 


12 


• 


• 






STAX 


D 


948/ 


2536 


32 


00 


8 7 






STA 


lOCRCL 


9488 


2539 


23 


• 


• 






INX 


ri 


9489 


253A 


22 


73 


FF 






ShLD 


GETADR 


9490 


253D 


3E 


20 


• 






MVI 


A,ABLi^JK 


9491 


253F 


B7 


• 


• 






ORA 


A 


9492 


2540 


C9 


• 


, 






PET 




9493 


2541 


• 


• 


• 


» 
t 








9494 


2541 


• 


• 


• 


GDS310 


EQU 


$ 


9495 


2541 


CD 


69 


19 






CALL 


CHAINl 



PAD OUT LANE IF FORMAT MODE 



FORMAT/SOFT KEY DEFINE MODE 

NO - ADVANCE TO NEXT LINE 

SOFT KEY • SKIP TO NEXT LIN 

FORMAT - BLANK FILL 

GET CURRENT CURSOR COLUMN 

LINE COMPLETED? 

YES - ADVANCE TU NEXT LINE 

NO - INCREMENT COLUMN 

; NUMBER 
UPDATE DISPLAY CURSOR 
RESTORE "GETADR" TO LOCATIO 

;0F "EOL" 
RETURN BLANK 
CLEAR C-FLAG 
RETURN 



;GET ADDR OF NEXT LINE LINK 



13255-90003 



ITEM 



LOC 
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9497 


2544 


. , 




• 

> r 


9498 


2544 


• • 




m 


9499 


2544 


• < 




* 
1 


9500 


2544 


• 




Gl 


9501 


2544 


7E . 






9502 


2545 


2B , 






9503 


2546 


6t , 






9504 


2547 


67 . 






9505 


2548 


22 73 FF 


9506 


254B 


Af 


• 


• 


9507 


254C 


32 76 FF 


9508 


254F 


CD C8 : 


21 


9b09 


2552 


CD ' 


76 


19 


9510 


2555 


CA » 


fiF : 


^5 


9511 


2558 


FA \ 


39 : 


25 


9512 


255B 


2A CO 1 


rp 


9513 


255E 


3A t 


\S 1 


rf 


9514 


2561 


85 


• 


* 


9515 


2562 


6F 


• 


• 


9516 


2563 


22 


20 


F-F 


9517 


2566 


CD 


6F 


OA 


9518 


2569 


CD 


9£ 


OF 


9519 


256C 


2A 


73 ! 


FF 


9520 


256F 


70 


• 




9521 


2570 


B7 


• 




9522 


2571 


CA 


^B 


24 


9523 


2574 


• 


• 




9524 


257 4 


• 


• 




9525 


2574 


• 


• 




9526 


2574 


Eb 


• 




9527 


2575 


CO 


84 


Ih. 


9528 


2578 


C2 


F9 


24 


9529 


257B 


EB 


• 




9530 


257C 


3A 


64 


FF 


9531 


257F 


E6 


20 




9532 


258 1 


CA 


78 


24 


9533 


2584 


22 


73 


FF 


9534 


2587 


37 


• 




9535 


2588 


C9 


• 





EQL LINK FOUND - DETERMINE TERMINATION TYPE 



GDS320 EQU 
MUV 
OCX 
MOV 
MUV 
SHLD 
XHA 
ST A 
CALL 
CmLL 
JZ 
JM 

LHLD 
LDA 
ADD 
MOV 
SHLD 
CALL 
CALL 
LHLD 
MOV 
OKA 
J 2 



$ 

A,M 

ri 

L,M 

H,A 

GETADR 

A 

ENHOUT 

CRRETl 

CHKFMS 

GDS3dO 

GDS350 

CURRUW 

TLINO 

L 

L,A 

tNDROW 

LNFEEO 

DISLNl 

GETADR 

A,L 

A 

GDS160 



;GET POINTER TO NEXT LINE 



;PUT IT INTO "GETADR" 

;PUT CURSOR IN COLUMN ZERO 

; CLEAR LAST ENHANCE OUT FLAG 

;FUPMAT/SOFT KE\ DEFINE MODE 
;NfcIlHER - SfcND END OF LINE 
;SOFT KEY - FIND NEXT FIELD 
; FORMAT - SAVE ENDING ROW AN 
;C0LUMN+1 FOR FIELD 

;SAVE ABSOLUTE ROW NUMBER 

;YfcS - DO LINE FEED 

;SET DISPLAY CURSOR ROw 

; RECALL POINTER TO t'EXT LINE 

;GET LoB VALUE 

;END OF DISPLAY (LSB =0)? 

;yES - RETURN EMD OF DISPLAY 



FORMAT EOL - CHECK FOR CONTINUATION FIELD 



XCHG 

CALL 

JNZ 

XCHG 

LDA 

ANI 

JZ 

SHLD 

SIC 

RET 



FLDSR2 
GDS220 

I0FLG2 
XDS2BF 
GDS060 
GETADR 



PUT CURRENT ADDR IN D,E 
NEXT LINE CONTINUES FIELD? 
NO - RETURN END OF FIELD 
YES - CONTINUE PROCESSING 
GET I/O FLAGS 2 
DISPLAY TO I/O BUFFER? 
YES - CONTINUE FIELD 
NO - STORE NEW "GETADR" 
RETURN END OF LINE 
RETURN NZ, C 



13255-90003 



ITEM 

953 7 
9538 
9539 
9540 
9541 
9542 
9543 
9544 
9545 
9546 
9547 
9548 



LOC 

2589 
2589 
2589 
2589 
2589 
2589 
258C 
25bF 
258F 
2590 
2591 
2592 



Rev AUG-01-76 

SSSB 

85 



OBJECT CODE SOURCE STATEMENTS PAGE 2 

END OF LINE FOR NON-FOHMAT MODE - RETURN END 
OF LINE CODE (Cr P, NZ) 



* 



GDS350 EQU $ 

CD 6F OA CALL LNFEED 

CD C4 ID CALL FLOSR 

GDS360 EgU $ 

AF . . XRA A 

3C • . INR A 

37 . . STC 

C9 • . RET 



;SOFT KEY END OF LINE 

; locate the attribute of 

;next definition 
; non-format/soft key eol 

;SET NZ,P 

;SET C-TRUE 

;RETURN end of LINE 



THE 



13255-90003 
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ITEM LOC OBJECT CODE SOURCE STATEMENTS PAGE 286 

INITDG - INITIALIZE FOH DISPLAY GET ♦ 

EXIT : Z - CHARACTER FOUND 

GETADR = ADDRESS OF FIRST CHARACTER 

NZ - NO CHARACTER FOUND 
GETADR UK»CHANGED 

ALL REGISTERS DESTROYED 

DISPLAY GET ROUTINE IS SET TO START 
AT CURRENT CURSOR LOCATION 



9550 


2593 








9551 


2593 








9552 


2593 








9553 


2593 








9554 


2593 








9555 


2593 








9556 


2593 








9557 


2593 








9558 


2593 








9559 


2593 








9560 


2593 








9561 


2593 








9562 


2593 








9563 


2593 








9564 


2593 C 


:d ' 


^B 


.9 


9565 


2596 C 


12 '■ 


}Q : 


?b 


9566 


2599 : 


VI C 


:i E 


^F 


9567 


259C 








9568 


259C ( 


'D f 


)F 


,7 


9569 


259F 








9570 


259F i 


:6 \ 


'B , 




9571 


25A1 i 


JE , 






9572 


25A2 


n , 






9573 


25A3 C 


:o . 






9574 


25A4 : 


>E t 


>4 




9575 


25A6 


^E . 






9576 


25A7 E 


:6 ; 


!f \ 




9577 


25A9 / 


'7 . 







INITDO 



INITDG 



EQU 

CALL 

JNZ 

STA 

EC>U 

CALL 

AM 
CMP 

MOV 
PNZ 
MVI 
MOV 
AM 
MOV 



CHKFMT 

INlTDG 

CURCOL 

$ 

SETDFO 



; ENTRY FOR DISPLAY TO I/O 
/FORMAT MODE ENABLED? 
;yES - DON'T MOVE CURSOR 
;N0 - BEGIN AT LINE START 



;SET DATA COMM INPUT FLAG TO 
ENABLE TRANSHIl ONLY DATA 
3770-NOSEND ;CLEAR NO DATA FLAG 
M ;WAS IX SET BEFORE? 

M,A ?(SET NEW VALUE) 

;yES - RETURN NO DATA 
L,I0FLG2-BASE ;CL£AR DISPLAY BOUNDARY 
A,M ; FLAGS 

3770-ENDDSP-DSPBTM 
M,A 
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ITEM LOC OBJECT CODE 



(xssssssssssssssssasssxs 
SOURCE STATEMENTS 






TER 



PAGE 28 7 



9579 


25AA 


• 


• « 


> 


9 






9580 


25AA 


• 


• 4 


1 


; LOCATE FIRST CHARAC 


9581 


25AA 


• 


« < 


1 


; 






9582 


25AA 


CD 


8C 19 




CALL 


CHKSFK 


9583 


25AD 


CA 


BE 25 




JZ 


IDG055 


9584 


25B0 


21 


CO FF 




LXI 


H,CUHROW 


9585 


2563 


3E 


10 . 






MVI 


A,SFTEND 


9586 


2565 


BE 








CMP 


M 


9587 


25B6 


F8 








RM 




9588 


25B7 


3E 


FE ! 






MVI 


A, 3760 


9589 


25B9 


A6 








ANA 


M 


9590 


25BA 


77 








MOV 


M,A 


9591 


256B 


AF 








XRA 


A 


9592 


25BC 


23 








I NX 


H 


9593 


256D 


77 








MOV 


M,A 


9594 


256E 


• 












9595 


25Be 


• 






• 






9596 


2 5 BE 


• 






IDG055 


EQU 


$ 


9597 


2 5 BE 


3fc 


01 ! 






MVI 


ArlGNTRM 


9598 


25C0 


32 


6D F 


T 




STA 


TRMFCT 


9599 


25C3 


CO 


CD ( 


)6 




CALL 


RCADR4 


9600 


25C6 


F8 


• I 


1 




RM 




9601 


25C7 


CA 


D3 : 


lb 




JZ 


IDG060 


9602 


25CA 


CD 


7B 1 


9 




CALL 


CHKFMT 


9603 


25CD 


CA 


EE : 


lb 




JZ 


IDGIOO 


9604 


2500 


C3 


07 : 


lb 




JMP 


1DG070 


9605 


25D3 


• 


• 4 


» 


« 







9606 


25D3 


• 


• < 


» 


IDG060 


EQU 


$ 


9607 


25D3 


21 


C2 i 


T 




LXI 


H,PROFLD 


9608 


2 5 1)6 


70 


m < 


1 




MOV 


M,B 


9609 


25D7 


• 


• 1 


• 


IDG070 


EQU 


$ 


96110 


25D7 


CD 


65 1 


10 




CALL 


CKPROT 


96 U 


25DA 


C2 


£8 : 


lb 




JNZ 


IDG090 


96J12 


2500 


3E 


FF , 


1 




MVI 


A,STPXFR 


96113 


25DF 


32 


6D F 


^F 




STA 


TRMFCT 


9614 


25E2 


CD 


B9 ] 


LD 




CALL 


FLDSBl 


9615 


25E5 


CA 


01 ( 


)6 




JZ 


NZEXIT 


9616 


25E8 


, 


• a 


> 


IDG090 


Egu 


$ 


9617 


25E8 


21 


FF ( 


)0 




LXI 


H,3770 


9618 


25EB 


22 


20 F 


,p 




SHLD 


ENDROW 



;SOFT KEY MODE? 

;N0 - LOCATE THE FIRST CHAR 

;YES - CHECK CURSOR POSITION 

;CURSOH BELOW DATA AREA? 
;YES - RETURN NO CHARACTER 
;N0 - SET CURSOR ROW TO 
;ATTRIBUTE ROW 

;SET CURSOR COLUMN TO 
; BEGINNING OF ROW 

LOCATE ATTRIBUTE 



;SET TO IGNORE NON-DISPLAYIN 

;TERMIWATORS 
; DISPLAY PRESENT? 
;NU - RETURN NO CHARACTER 
;CHARACTER - CHECK PhOTECTED 
;EOL - FORMAT MODE? 
;N0 - EXIT WITH EOL 
;YES - CHECK PROTECTED 



;SET PROTECT STATUS 



;CURSOR IN PROTECTED FIELD? 
;N0 - RETURN CHARACTER FOUND 
;SET TERMINATOR FUNCTION TO 

; TERMINATE TRANSFER 
;ANY MORE FIELDS? 
;N0 - RETURN NO CHARACTER 

; INITIALIZE PREVIOUS FIELD'S 
?ROW AND COLUMN TO ZERO 
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ITEM 

9b20 
9b2i 
9622 
9623 
9624 
9625 
9626 
9627 
9b2a 
9629 
9630 
9631 
9632 
9633 
9634 
9635 
9636 
963? 



LOC 

25EE 
25EE 
25EE 
25fcE 
25EE 
25EF 
25F1 
25F4 
25F5 
25F8 
25FB 
25FE 
2601 
2604 
2605 
2605 
2608 
260B 



OBJECT CODE SOURCE STATEMENTS 
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lA 
FE 
CC 
EB 
22 
3A 
32 
3A 
32 
BF 

21 
22 

C9 



C4 
87 

73 
2A 
75 
Co 
76 



3C 

3B 



OB 

• 

FF 

48 

FF 

Ff 

FF 



3C 
FF 



CHAikACTER FOUND - RETURN CHARACTER FOU^D 



IDGIOO EQU 
LDAX 
CPl 
CZ 
XCHG 
SHLD 
LDA 
SI A 
LUA 
SIA 
CMP 

IMTDl EQU 
LAI 
SHLD 
RET 



$ 

D 

5TPFLG 

NXTCriR 

GETAOR 

ALTOUT 

CALTST 

LSIDCD 

ENHOUT 

A 

$ 

H,CB2DbFL- 

B2DEND 



;GET FIRST CHARACTER 
;NON-DiSPLAyiNG TERMINATOR? 
;YES - GET THE NEXT CHARACTE 
;SAVt ADDRESS OF BYTE 

;SET CURRENT ALTERNATE CHAR 
;SET TO UEFAULl VALUE 

;SET LAST ENHANCEMENT OUT 
;WORD 

;SET Z-FLAG TRUE 

MNITJAUZE CHARACTER BUFFER 
•l)+256-»'B2DBFL-l? POINTERS 

; RETURN 



;ss3:s;s= 




zsss 


sszs 


:sss3 


ITEM 


LOC 


oajecT 


CODE 


»#639 


260C 


• 


• 


ll flB4H* «■«» 


9640 


260C 


• 


• 




9641 


260C 


• 


• 




9642 


260C 


• 


• 




9643 


260C 


01 


00 


04 


9644 


260F 


C3 


CA 


16 


9645 


2612 


• 


• 




9646 


2612 


• 


• 




9647 


2612 


• 


• 




9648 


2612 


• 


• 




9649 


2612 


01 


FF 


FB 


9650 


2615 


CD 


70 


10 


9651 


2618 


06 


7C 




9652 


261A 


CO 


BB 


17 


9653 


261D 


21 


CI 


1 7 


9654 


2620 


CD 


26 


26 


9655 


2623 


C3 


ID 


12 
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; STAT2 - SEND SECONDARY TERMINAL STATUS REQUEST ♦ 

• 4c4cf3(if:|(^](c4:4;:»:4^:^:t^:t::|(]4c:t(itL$]^)|c]|c4(t4:)fc:f:4;:^:|t4cf;«:«4c«4'4c^)|E>|:ff^^4(«* 

STAT2 EQU $ 

LXI B,,SSTAT2 ;SET SECONDARY STATUS PENDIN 
JMP SBLXFO ;FLAG 

; STA2G0 - TRANSMIT SECONDARE TERMINAL STATUS * 

STA2G0 EQU $ 

LXI B,-1-SSTAT2 

CALL CLBLXF ? CLEAR STATUS 2 PENDING FLAG 

MVI B.VRTBAP ?StND <ESC>-<VERTICAL BAR> 

CALL iLSCOUT 

LXI H.XPUTOC ;SET OUTPUT ROUTINE ADDRESS 

CALL STA2G1 ;OUTPUT SECONDARY STATUS BIT 

JMP SDTERM ;SEND TERMINATOR AND RETURN 



13255-90003 
ITEM LOC 



Rev AUG-01 
OBJECT CODE 



9657 


2626 




• 


« r 


9658 


2626 




• 


• f 


9659 


2626 




• 


• f 


9660 


2626 




• 


• t 


9661 


2626 




• 


• r 


966^ 


2626 




m 


• t 


9663 


2626 




• 


• t 


9664 


2626 




• 


• f 


9665 


2626 




• 


• # 


9666 


2626 




• 


i> 


9t>67 


2626 ; 


12 


CE 


FF 


9668 


2629 




• 


s 


9669 


2629 




• 


• f 


9670 


2629 




• 


• f 


9671 


2629 




• 


• t 


9b72 


2629 : 


)E 


DO 


m 


9673 


262B : 


n 


8t 


FF 


9674 


262E « 


)b 


• 


• 


9675 


262F C 


:o 


9D 


Ob 


9676 


26 3 2 


> 


• 


• f 


9677 


2632 


» 


• 


• f 


9678 


2632 


• 


• 


m f 


9679 


2632 : 


)A 


FD 


FF 


9680 


2635 ( 


:d 


9F 


06 


9681 


2638 


> 


• 


• 1 


9tj82 


2638 


t 


• 


; 


9683 


2638 


» 


• 


• t 


9684 


2638 : 


2A 


F9 


FF 


9685 


2636 


IC 


■ 


• 


9686 


263C < 


:o 


9F 


OB 


9687 


263F 


7C 


• 


• 


9688 


2640 ( 


:d 


9B 


OB 


9689 


2643 


7D 


• 


• 


9690 


2644 < 


:d 


9F 


OB 


9691 


2647 


7U 


• 


• 


9692 


2648 ( 


:d 


9b 


OB 


9693 


2646 


• 


■ 


• f 


9694 


2648 


• 


• 


• ; 


9695 


264B 


• 


• 


• 1 


9696 


264B 


3A 


6A 


FF 


9697 


264E 


21 


F4 


FF 


9696 


2651 


^6 


• 


■ 


9699 


2652 


^16 


04 


• 


9700 


2654 < 


:3 


9F 


OB 


9701 


2657 


• 


• 


• 9 



-76 
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STA2G1 - OUTPUT SECONDARY STATUS BITS * 

ENTRY: H,L = ADDRESS OF OUTPUT ROUTINE 

EXIT : ALL REGISTER DESTROYED 
CNTFAU DESTROYED 



STA2G1 EQU $ 

SHLD CNTFAD 
STA2G2 EQU $ 



;SET OUTPUT ROUTINE ADDRESS 



SEND NON-DISPLAi RAM SlZF (K) 

MVI A,(BFSPCe+l)/256 

L.XI ri,bUFBGN + l ;CUMPUTE NON-DiSPLAY RAM 

SUB M ;S1ZE 

CALL PAR0T2 ;SEND NON-DISPLAY RAM SIZE 



OUTPUT TERMINAL TYPE 



LDA TRMTYP 
CALL PA ROUT 



JGET THE TERMINAL TYPE NUMBE 
;StnV ONLY LOWER FOUR BITS 



OUTPtIT REMAINING KYbD INTFACE STRAPS 



LHLD KBJMP3 
MOV A,H 
CALL PAROUT 
MOV A,H 
CALL PAR0T4 
MOV A,L 
CALL PAROUT 
MOV A,L 
CALL PAR0T4 



;GET JUMPERS J-Z 
;SEND STRAPS J-K-L-M 

;SEHD STRAPS N-P-Q-R 

;SEND STRAPS S-T-U-V 

;SENL STRAPS W-X-Y-Z 



OUTPUT MEMORY LOCK STATUS 

LDA MLhFLG ;GET MEMORY LOCK FLAG 
LXI tt,MOFLGl /COMBINE WITH MODE FLAG 
ANA M ; EXTRACT MEMORY LOCK STATE 

ANI MEMLOK 

JMP PAROUT ; OUTPUT MEMORY LUCK STATE 

AND RETURN 



(^703 
9704 
9705 
9706 
9707 
9708 
9709 
9710 
9711 
9712 
9713 
9714 
9715 
9716 
9717 
971B 
9719 
9720 
9721 
9722 
9723 
9724 
9725 
9726 
9727 
9728 
9729 
9730 
9731 
9732 
9733 
9734 
9735 
9736 
9737 
9738 
9739 
9740 
9741 
9742 
9743 
9744 
9745 



LOC 

2657 

2657 

2657 

2654 

2657 

2659 

265B 

265D 

265F 

2661 

2663 

2663 

2663 

2660 

26b3 

2665 

2667 

2667 

2667 

26 64 

2667 

2669 

266B 

266D 

266F 

2671 

2673 

2673 

2675 

2677 

2677 

2677 

2677 

2677 

2679 

2679 

267B 

267D 

267F 

2681 

2683 

2685 

2687 



OBJeCT CODE 



OA 
AB 
00 
B2 
13 
8F 



20 
lA 
07 
77 
IB 
61 

00 
12 



FO 
82 
6F 
71 
71 
B8 
08 
SB 



OA 
Al 
OD 
Al 
13 
84 



20 7F 
BA 8C 



7F 

A3 

OF 

26 

IB 

84 

• 

7F 

84 



14 48 



IF 
IF 
OA 
19 
19 
21 
OC 
OC 
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; SOFT KEY OATA DONE TABLE - IGNORt) DC3,CR,& LF ♦ 

DFSTB3 EQU $-3 

DB 12Q,12g ?LINE FEED 

Dw DFS350tB15 ;CHECK FOR IGNORE 

DB l5Q,15tt ; RETURN 

Dw DFS360+B15 ;CHECK FOP IGNORE 

DB 23Q,23y ;DC3 

DW ESCAP1+B15 ; IGNORE XT 

; SOFT KEY MODE ENABLED RANGE TABLE ♦ 

DFSTBO EgU $-3 

DB 40g,1770 ;DISPLAYABLF CHARACTER 

Dw SFKYDS+B15 ;D1SPLAY IN PROPER DISPLAY 

; NOhMAL CHARACTER SET ATTRIBUTES * 

HTABLE EQU $-3 

DB 40Q,1770 ; ALPHANUMERICS 

DW DSPCHR+BIS ;DISPLAYABLE CHARACTERS 

DB 7Q,17Q ;BELL,BS,HT,LF,VT,FF,CH,SO,S 

Dw RTBOIO ?USE FUNCTION TABLE 

DB 330,330 ;ESCAPE 

DW ESCAPE+B15 ;USE <£SC> RANGE TABLE 



DB 00rl77Q ;ALL OTHER CODES 

Dw CHKCTL+B15 ;CHECK FOR' BLOCK XFR CHARS 

<bELL> THROUGH <SHIFT IN> 

RTBOIO FyU S 

Dw Z8ELL ;BELL - SOUND KEiBUARD BELL 

RTB020 EQU S ;<BS> THROUGH <SHIFT IN> 

DW BCKSPC ;BS - BACKSPACE CURSOR 

DW HTAB ? HORIZONTAL TAB 

DW LNFEED ;L1NE FEED 

DW tsiOFNCT ?Vi - HO FUNCTION 

Dw nOFNCT ;FF - NO FUNCTION 

Dw CRRET ;CARRIAGE RETURN 

DW SHFTOT ; SHIFT OUT 

DW SHFTIN ; SHIFT IN 



13255-90003 



Rev AUG-01-76 



ITEM 

9747 
9748 
9749 
9750 
9751 
9752 
9753 
9754 
9755 
975b 
9757 
9758 
9759 
9760 
9761 
9762 
9763 
9764 
9765 
97o6 
9767 
9768 
97o9 
9770 
9771 
9772 
9773 
9774 
9775 
9776 
9777 
9778 
9779 
9780 
9781 
9782 
9783 
9784 
9785 
978b 
978 7 
9788 
9789 



LOC OBJKCT CODE SOURCE STATEMENTS 
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2689 
2689 
2689 
2686 
2689 
2688 
268D 
268P 
2691 
2693 
2695 
2695 
2697 
2699 
269B 
269D 
269D 
269D 
2 69 A 
2690 
269F 
26A1 
26A1 
26A3 
26A5 
26A7 
26A9 
26AB 
26AD 
26AD 
26AF 
26B1 
26B1 
2683 
2685 
2685 
2667 
26B9 
26B9 
26BB 
26B0 
26BD 
26BF 



29 
95 
4C 
95 
53 
95 

6C 
9b 
79 
95 



26 

8E 

• 

29 
7C 
31 
CI 
3b 
AB 

3C 
CB 

40 
Dl 

78 
2D 

7e 

OC 

00 
95 



3E 
84 
4F 
84 
58 
84 

60 
84 
7B 
84 



26 
9o 

29 
8C 
35 
2b 
38 
8F 

3E 
26 

60 
26 

7B 
2 7 

7E 
Ab 

7F 

84 



. )»; 4. j(e *:»[)»; t » f 

; ESCAPE C 

SFSCTB EQU 
DB 
Dw 
DB 

DB 
Drt 

DB 
Dw 
DB 
Dw 

; NORMAL E 

; j(c ;». ♦ ^t ♦ ♦ * » ♦ 

ESCTAB EglJ 
DB 
Dw 

* 

DB 
Dw 
DB 
Dw 
OB 
Dw 

• 

DB 

Dw 

DB 
Dw 

Dw 

DB 
Dw 

« 

DB 
Dw 



HAHACTER ATTRIBUTES FOR SOFT KEYS ♦ 

$-3 

;<)> TO (>) 

? ABORT ESCAPE SEgilENCE 

;<L> TO <U> 

; ABORT ESCAPE SEQUENCE 

;<S> TO <W> 

; ABORT EoCAPE SEQUENCE 
CASE CHARACTERS ♦♦* 

;<L> TO <M> 



5ig,76Q 
ESCEND+B15 
1140, 117Q 
ESCEND+B15 
123Q,130Q 
ESCEND+B15 
♦♦* LOWER 
1540,1550 
ESCEND-»-B15 
171Q,173g 
ESCEND+B15 



SEQUENCE 



; ABORT ESCAPE 
<Y> TO <l> 

; ABORT ESCAPE SEQUENCE 

SCAPE CHARACTER ATTRIBUTES * 

$-3 

46Q,46Q ;<&> - AMPERSAWD 
PRMSEQ+B15 ;PARAI^£T£RIZED SEOUEf^CE 

51Q,51Q ?) - SPECIFY ALT CHAR SET 
SCHRST-I-B15 

6ig,65g ;<i> to <5> 

Ell 

66Q,70Q ;<b> TO <8> 

TYPSET+B15 ? DEFINE FIELD TYPE 



74Q,76Q 
EIIA 

100Q,155Q 
EI2 

♦♦* LOWER 
1700, 173Q 
EI3 

176Q,176Q 
STAT2+B15 



CO TO (>) 

;USE INDEX TABLE 

;<p> TO <LOWER CASE M> 
;USE INDEX TABLE 
CASE RANGE **♦ 
<X> TO <LEFT BRACE> 
;USE INDEX TABLE 

'<"> (TILDE) 
; TERMINAL STATUS 2 



00,177Q ;ALL OTHER CODES 
ESCEND+B15 ? ABORT ESCAPE SEQUENCE 



ITEM 

9791 
9792 
9793 
9794 
9795 
9796 
9797 
9798 
9799 
9800 
9801 
9802 
9803 
9804 
9b0!i> 
980o 
9807 
9808 
9809 
9810 
9811 
9812 
9813 
9814 
9815 
981b 
9817 
9818 
9819 
9820 
9821 
9822 
9823 
9824 
982;) 
9826 
9827 
9828 
98 29 
9830 
983t 
9832 
9833 
98 34 
9835 
9836 
98 37 
9838 
98 39 



LOC 

26C1 
26C1 
26C1 
26C1 
26C1 
26C3 
26C5 
26C7 
26C9 
26CB 
26CB 
26CB 
26CD 
26CF 
26D1 
2601 
26D1 
26D3 
26D5 
26D7 
26D9 
26DB 
26DD 
26DF 
26fc:i 
26P:3 
26^5 
26E;7 
26t;9 
26eB 
26ED 
26EF 
26F1 
26F3 
26F5 
26F7 
26f9 
26FB 
26FD 
26FF 
2701 
2703 
2705 
2707 
2709 
270B 
270D 
270F 
2711 



OBJECT CODE 



5A 
60 
FB 
17 
29 



AC 
B5 
AE 
9C 
Al 
9D 
07 
C5 
F4 
82 
8F 
3C 
00 
B7 
E6 
91 
99 
05 
DC 
27 
Cb 
2D 
A9 
18 
02 
7B 
95 
9E 
95 
94 
F3 
3F 



15 
15 
10 
17 
17 



38 15 
95 04 
30 15 



12 
20 
20 
20 
20 
08 
U 
21 
17 
IF 
10 
IC 
OA 
09 
IF 
19 
19 
IF 
IF 
OC 
OB 
OB 
OB 
ID 
15 
14 
04 
16 
04 
16 
OC 
17 



SOURCE STATEMENTS 
; ^iNDEX TABLES FUR 
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« f f « «: )«: 4: 4; 41 1 "t^ 4^ 4^ ^ 4^ 4" f 3(c 4: 

ESCAPE SEQUENCES * 



Ell 



EIIA 



EI2 



Egu 

DW 
DW 
DW 
DW 
DW 

EQU 
Dw 
DW 
Dw 

Egu 

DW 
DW 
DW 
DW 
DW 
Dw 
Dw 
Dw 
DW 
DW 
Dw 
DW 
DW 
Da 
Dw 
Dw 
DW 
DW 
DW 
Dw 
Dw 
Dw 
DW 
DW 
DW 
Dw 
DW 
Dw 
DW 
DW 
DW 
DW 



HTBSET ;l - HORIZONTAL TAB SET 

HTBCLR ;2 - HORIZONTAL TAB CLEAR 

CLHALL ;3 - CLEAR ALL TABS 

SETLFT ;4 - SET LEFT MARGIN 

SETRHT ;5 - SET RIGHT MARGIN 



FRNCTl ;< - SET FOREIGN MODE 1 
ESCEND ;= - INVALID, APOR'I SEQUENCE 
rRfvCT2 ;> - SET FOREIGN MODE 2 



DELA5fO ;# - PAUSE FOR 1 SECOND 

CURPU ;A - CURSOR POINTER UP 

CURPD ;CURSOR POINTER DOwN 

CURPR ;CURSOK POINIER RIGHT 

CURPL ;D - CURSOR LEFT 

CLEAR ;E - FULL TERMINAL RESET 

CURPHD ;F - HOME DOWN 

CURPRT ;G - CURSOR RETURN 

XMOHMF ;H - HO^lE TO TRANSi^IT-ONLY 

HTAB ;CURSOR POINTER TAB 

CLEARS ;CLEAR DISPLAY 

CLEARL /CLEAR LINE 

LININS ;HNE INSERT 

LINDEL ;M - LINE DELETE 

IWRPON ;N - INSERT W/WRAP AROUND ON 

DELWRP ;0 - DELETE CHAP W/WRAPAROUN 

CHRDEL ;P - DELETE CHARACTER 

ICHON ;0 - INSERT CHARACTER OM 

ICHOFF ;R - INSERT CHARACTER OFF 

HOLLUP ;S - ROLL UP 

HOLLDN ;ROLL DOwN 

MEXTPG ;NEX1 PAGE 

PPEVPG /PREVIOUS PAGE 

FORMON /FORMAT MODE ON 

FORMOF /X - FORMAT MODE OFF 

FDISON /Y - DISPLAY FUNCTIONS ON 

ESCEND /INVALID 

PREND ;EiMD PROTECT 

ESCEND /INVALID 

PRSTRT /START PROTECT 

STATUS /** - SEND TERMINAL STATUS 

SETTRM /« - STORE NON-DISPLAYING 
TERMINATOR CODE 



13255-90003 
ITEM LOC 
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984i 
9842 
9b43 
9844 
9845 
9846 
9847 
9848 
9849 
9850 
9851 
9852 
9853 
9854 
9855 
9856 
9857 
9858 
9859 
986u 
9861 
9862 
9863 



2711 

2711 

2711 

2711 

2713 

2715 

2717 

2719 

271B 

27 ID 

271F 

27 21 

2723 

2725 

2727 

2729 

272B 

272D 

272D 

272D 

272E 

27 31 

2733 



Dl 
D9 
FA 
07 
C7 
68 
40 
CC 
27 
FF 
A5 
8D 
CB 
CO 



99 
70 
7D 
99 



11 
11 
15 
16 
16 
15 
12 
OC 
10 
18 
OC 
OC 
OA 
OA 



12 
14 
OD 
16 



LOWfcR CASt RANGE FOR 2 CHARACTER ESC SEQUENCES 



fcI3 



OW 
DW 
Dw 
Dw 
Dw 
DW 
Dw 
Dw 
OW 
DW 
Dw 
Dw 
Dw 

EQU 

DW 

DW 

DW 

DW 



RLCRSN 

CURSEN 

KPENl 

KBLOKO 

ENTREN 

lOBNGO 

UISMOM 

SFTRST 

CORP hi 

dKIAtt 

SFKYON 

SFKYOF 

MLKON 

MLKOFF 



DC TEST 
MNMDON 
TEST 
STRXMH 



(a - SCREEN RELATIVE SENSE 
A - ABSOLUTE CURSOR SENSE 
B - ENABLE KEYBOARD 

C - DISABLE (LOCK) KEYBOARD 

D - SEND DISPLAY TO CPU 

E - FAST BINARY READ 

F - DISCONNECT MODEM 

G - SOFT RESET 

H - HOME TO UNPROTECTED 

I - BACK TAB 

J - TURN ON SOFT KEY MENU 

K - RESTORE ^?ORMAL DISPLAY 

L - MEMORY LOCK ON 

M - MEMORY LOCK OFF 

; LOWER CASE <X> TO <t> 
;X - DATA COMM SELF-TEST 
;Y - MONITOR MODE ON 
;Z - StLF-TEST 
:r - START TRANSHIT-ONLY 



ITEM 

9865 
9866 
9867 
9868 
9869 
9870 
9871 
9872 
9873 
9874 
9875 
9876 
9877 
9878 
9879 
9880 
9881 
9882 
9883 
9884 
9885 
9886 
9887 
9888 
9889 
9890 
9891 



LOC 

2735 
2735 
2735 
2732 
2735 
2737 
2739 
2739 
273B 
273D 
273D 
27 3F 
2741 
2741 
2743 
2745 
2747 
2749 
2749 
2749 
274B 
2740 
274F 
2751 
2753 
2755 
2757 



OBJECT CODE 



61 
49 



73 
ID 
00 
95 



3A 
11 
IC 

CF 
95 
CO 
4C 



67 
27 



6B 68 

20- C8 

70 70 

80 95 



73 
C8 
7F 

84 



11 
16 
16 
21 
04 
20 
17 
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; PRMTAB - TABLE FUR SEQUFl^CES WITH PARAMETERS ♦ 

PPMTAB EQU $-3 

DB 1410, 147Q ;L0WER CASE <A> TO <G> 
Dw PRMOIO ;USF INDEX TABLE 

DB 1530, 153Q ;L0WEH CASE <K> 

DW ZSTLKY+B15 ;G0 TO SET KEYS ROUTINE 

DB 1600, 160Q ;L0WER CASE <P> 

Dw I0CTG0^B15 ;G0 TO T/O CONTROL ROUTINE 



PRMOIO 



Db 
DW 
Db 
DW 

Egu 

Dw 
DW 
DW 
DW 
DW 
Dw 
DW 



1630, 163g ;L0wEH CASE <S> 

ZSTiJPR + Bl5 ;G0 TO SET JUMPERS ROUTINE 

00,17 70 ;ALL OXHEP CODES 

ESCEND + B15 ,* ABORT ESCAPE SEQUENCE 



CURPOS 

LOADR 

LOADRl 

DISPEN 

ESCENO 

DFSFKY 

SNDCDE 



r'A 

;b 
;c 
;d 
;e 
;F 
;G 



LOWER CASE 
CURSOR 
BINARY 
LOADER 



<A> TO <F> 

POSITIONING 

LOADER 

SANS MESSAGE 



DISPLAY ENHANCEMENT 
INVALID, ABORT SEQUENCE 
DEFINE FUNCTION KEYS 
SEHD ATrFNTION/FUNCIION 
CODE 



13255-90003 
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ITErt 

9893 

9«94 

9895 

989b 

9897 

9898 

9899 

9900 

9901 

9902 

9903 

9904 

9905 

990b 

990 7 

9908 

9909 

9910 

9911 

9912 

9913 

9914 

9915 

9916 

9917 

9918 

9919 

9920 

9921 

9922 

9923 

9924 

9925 

9926 

9927 

9928 

9929 

9930 

9931 

9932 

9933 

9934 

9935 

9936 

9937 

9938 

9939 

9940 



LUC OBJECT CODE SOURCE STATEMENTS 



PAGE 296 



2757 

2757 

2757 

2754 

2757 

2759 

275B 

275B 

275B 

2758 

275B 

275D 

275F 

275f 

2761 

2763 

2763 

27b3 

27bO 

2763 

2765 

2767 

27b9 

276B 

276D 

276F 

276F 

27 71 

27 7 3 

2773 

2775 

2777 

2777 

2779 

277B 

277B 

2770 

277F 

277F 

2781 

2783 

2783 

2785 

2787 

2787 

2789 

27 8B 

27 80 



40 
09 



40 

82 

00 
95 



2B 
86 
20 
8B 
30 
62 

43 
4f 

52 

65 

59 
5A 

63 
4F 

72 
65 

79 

5A 

• 

20 
8F 
00 
95 



4F 
Al 



43 

8C 

7F 

84 



2B 
92 
2D 
92 
39 
92 

43 
91 

52 

91 

• 

59 

91 

• 

63 
91 

m 

72 
91 

• 

79 
91 

• 

20 
64 
7F 
84 



; DENTAB - OlSPLAY ENHANCEMENT ESCAPE TABLE * 
UEi^TAB EQl] S-3 

Ob iooo#n70 ;<0>-<o> 

Dw 0ISPLC+B15 ;TURN OM ENHANCEMENT 

;4t ^c*;*; ♦♦♦4; *♦*♦♦!;*♦*:». + ♦♦♦♦^ ♦♦♦♦♦♦♦♦♦♦ + ♦♦♦♦*♦ 

; CHHSTB - ALTERNATE CHARACTER SET TABLE * 

CHRSTB EQU S-3 

DB 1000, 103W ;<»> - <C> 

Ow SCHST1+B15 ;SET ALTERNATE CHAR SET 



DB 00 r 1770 ;ALL 
Ow ESCEN0+B15 ;A 

; CRPTAB - CURSOR POSITION 

CRPTAB EOO $-3 

DB 530,530 ;<■»■> 

DW DCPLUSfB15 ;SE 

Db 550,550 ;NEGAT 

OW DCMNUS+Bi5 ; SE 

DB 600,710 ;VALiD 

Dw DCNUM+B15 ; ACC 



OTHER CODES 
BOHT ESCAPE SEOUENCE 

ING ESCAPE TABLE * 

- PLUS SIGN 
T SIGN FLAG TO +1 
IVE REL. POSITIONING 
T SIGN FLAG TO -1 

PARAMETER DIGITS 
UMULATE NUMERICAL VALUE 



DB 
Ov^ 

DB 
Da 

DB 
Dw 

DB 
DW 

Db 

Dm 

DB 
Dm 

OB 
Dw 
DB 
DM 



1030,1030 
CURP01+B15 



" <C> 

';SET COLUMN 



PARAMETER 



1220,1220 ;<P> 

CURPU3+R15 ;SET POw PARAMETER 

1310,1310 ?<Y> 

CUKP02+B15 ;SET SCREEN ROw PARAHETEH 

1430,1430 ;<LOVlER CASE C> 
CURPGltB15 ;SET COLUMN PARAMETER 

1620,1620 ?<LOWER CASE R> 
CURP03+B15 ;SET ROW PARAMTER . 

1710,1710 ;<LOWER CASE X> 
CURPU2+B15 ;SET SCREEN HOW PARAMETER 

400,400 ;SPACE - IGNORE 

E5CAP1+B15 
0,1770 ;INVALIO 

ESCEND+B15 



13255-90003 



ITtCM 



LOC 



9942 


278F 


• 


• • 


9943 


278F 


• 


• • 


9944 


278F 


• 


• • 


9945 


278C 


• 


, , 


9946 


278F 


OD 


OD . 


9947 


2791 


F2 


8F . 


9948 


2793 


IB 


IB , 


9949 


2795 


AA 


94 • 


9950 


2797 


5A 


5A , 


9951 


2799 


88 


94 . 


9952 


279B 


00 


7F . 


9953 


279D 


BA 


8C . 



OBJECT CODE SOURCE STATEMENTS 

; FUNCTION DISABLE ATTRIBUTES * 

FDISTB EQU $-3 

DB 15Q,i5Q 
DW CARRET+B15 

33Q,3 3Q ; ESC APE 



Rev A 
PAGE 



UG-01-76 
297 



RETURW CODE 



DB 
DW 
DB 
DW 
DB 
Dw 



FDESC+B15 
t32w,132Q 
F0IS0F+B15 

0,17 70 ;ALL other CODES 
SFKYDS+BIS ;ADn CHARACTER TO DISPLAY 



13255-90003 
ITEM hOC 
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OBJECT CODE SOUPCf: STATEMENTS 



PAGE 298 



9955 
995b 
9957 
995B 
9959 
9960 
9961 
9962 
9963 
9964 
9965 
9966 
9967 
99bB 
9969 
9970 
9971 
9972 
9973 
9974 
9975 
997o 
997 7 
9978 
997 9 
9980 
99bl 
9982 
9983 
9984 
9985 
9986 
9987 
9988 
998*^ 
9990 
9991 
9992 
9993 
9994 
9995 



279F 

279F 

279F 

279C 

27 9F 

27A1 

27A3 

27A3 

27A5 

27A7 

27A7 

27A9 

27AB 

27AD 

27AF 

27BI 

2763 

27B3 

27B3 

27B0 

27B3 

2765 

27B7 

27B7 

27B9 

27BB 

276B 

27BD 

27BF 

27BF 

27C1 

27C3 

27C5 

27C7 

27C7 

27C7 

27C9 

27CB 

27CD 

27CF 

27D1 



41 
CI 

9 

61 
C7 

OA 
8F 
OD 
8F 
13 
8F 



30 
62 

41 
5A 

46 
CE 

20 
8F 
00 
00 



39 
27 
75 
4A 
5A 
00 



46 
27 

64 
27 

OA 
84 
OD 
84 
13 
84 



37 
92 

41 
9 7 



46 
92 

20 
84 
7F 
80 



16 
16 
16 
16 
16 
00 



; BINA8Y LOADER CHARACTER ATTRIBUTES * 
.♦^^♦♦♦^(♦^^♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦********** 

LDRTAB EgU $-3 

DB 1010,1060 ;<A> - <F> 

Om LIl ;IJSE INDEX TABLE 

DB 141Q,1440 ?LOAOfcH COMMAND 

Dw LIl ;USE INDEX TABLE 

» 

DB 12g,12g ;L1NE FEED 

Dw ESCAF1+B15 

DB 150,150 ;CR 

DW EvSCAFl+Bl5 

DB 230,239 ;DC3 

Drt ESCAP1+Bi5 ; IGNORE 

; SNDCTB - ACCUMULATE ATTENTION/FUNCTION CODE ♦ 

iSNDClB EQU $-3 

DB D0g,67g ;nCTAl. DIGITS 

Dw 0Cf^UM + B15 ;ACCUMULATE VALUE 

* 

DB 101Q,10ig ;<A> 

Da SNDCD1-I-B15 ;SEND ATTEwTlOf^ CODE 

DB 1060,1060 ;<F> 

DW SNDCD2+B15 ;SEND FUNCTION CODE 

« 

DB 40Q,40Q ;SfACE 

Dw fiSCAt'l+B15 

DB 0,1 77Q ; OTHER CHARACTERS 

Dw B15 ;TERMINATF. AND RESET 



LIl 



EWU 

Dw 

Dw 

DW 

Dw 

DW 

Dw 



$ 

L0R3 

LDRO 

LORIO 

LDR4 

LDR060 

BEGIN 



;A - ADDRESS 
;B - IGNORE 
/CHECKSUM 
'DATA 
' ;E - EXECUTE LOADED CODE 

;F - TERMINATE AND RESET 



ITEM 

^997 
9998 
9999 
10000 
lOOOX 
10002 
10003 
10004 
10005 
10006 
10007 
10008 
10009 
lOOlO 
lOOU 
lOOliJ 

looii 

10014 
10015 
lOOlo 
10017 
10018 
10019 
10020 
10021 
10022 
10023 
0024 
fQ02b 
10026 
10027 



LUC 

271)3 

27D3 

27D3 

27D0 

2703 

27D5 

27D7 

27D9 

27DB 

27DD 

27DF 

27t;i 

27E3 

27£3 

27E3 

27e3 

27E5 

27E7 

27E9 

27EB 

27eD 

27EF 

27eF 

27£F 

27F1 

27F3 

27F3 

27F3 

27FO 

27F3 

27F5 



OBJECT CODE 



20 
8F 
30 
62 
41 
CO 
4B 
EF 



61 
CD 
6b 
EF 
00 
95 



05 
DD 



00 

84 



20 
84 
39 
92 
41 
AO 
4C 
27 



61 
AO 
6C 
27 
7F 
84 



20 
20 



7F 
Al 
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SOURCE STATEMENTS PAGE 299 

; DFSTAB - DEFINE SOFT KEYS TABLE ♦ 

DFSTAB Eyu $-3 

DB 40Q,40J^ ; SPACE 

Dw ESCAPlfBlS ; IGNORE 

DB 60t>,71Q /DIGITS <0>-<9> 

D^ DCWlJM+615 ? ACCUMULATE NUMERICAL VALUE 

Ob i01Q,10ig ;<A> - ATTRIBUTE PARAMETER 

DW UFS100+B15 ;STORE DEFINED ATTRIBUTE 

DB 1.130, U4Q ;<K> - <L> 

DW DFTOIO ;USE IWDEX TABLE 



LOWER CASE RANGE 



DB 
DW 
DB 
D^ 
DB 
DW 



141Q,1 
DFSIOO 
1530,1 
DFTOIO 
0Q,177 
ESCEND 



DFTOIO EQU $ 

Dw DFSllO 

Dw ufS120 

; ACCUMULATE SOFT 

DFSTB2 EQU $-3 

Db 00,177 

Dw DFS300 



41Q ;<A> - ATTRIBUTE PARAMETER 
+B15 ; STORE DEFINED ATTRIBUTE 
54Q ;<K> - <L> 

;USE INDEX TABLE 
Q ;ALL OTFIER CODES 
+B15 ; ABORT ESCAPE SEQUENCE 



;DEFINE KEi NUMBER 

; DEFINE LENGTH Ot INPUT DATA 

KEY DATA TABLE ♦ 

g ;all CODES 

tBlS ;ADD TO DATA LINE 



13255-90003 Bev AUG-01-76 

ITEM LOC OBJECT CODE SOURCE STATEMENTS .^^'!!:.i2^. 

10029 27K7 . . . END 

ERRORS FOUND IN ASSEMBLY CODE , 



qvMttnr «m i.l> «.^r,r,« 13255-90003 Hev AUG-01-76 

SYMBOL VALUE REFEPENCEO ON 

A 0041 317 *"~ 

A2QUrB 13C0 5490, 5485, 7413, 7432, 9161, 9165, 9197, 9201, 9205, 9249, 
9254, 9256, 9272, 9332, 9335, 9339 

ABCKSL 005C 332, 3978 

ABLNK 0020 299, 2669, 2889, 2916, 2982, 3090, 5029, 5750, 6988, 7003, 
7083, 7642, 9338, 9490 

ABSTAK PF5F 743, 747 

ADEL 007F 347, 1915, 5879, 9226 

ALCC 0063 338, 5097 

ALPHA 00C5 358, 4531, 7071, 7097, 7292, 8203, 8926, 8929, 8937, 9230 

ALPHNM 00C7 3t>0 

ALTIN 0040 850, 1120 

ALTIO 0010 768 

ALTURG 600u 275, 276 

ALTOUl 482A 205, 9629 

AMPSND 0026 300, 1395, 5087, 915ft, 9245 

ANL 0080 760 

ANR 0040 759 

ARPAHN 0029 302, 1400, 9188 

ATBOIO 14E0 5753, 5756 

ATBLEN OOOE 5757, 1209, 1217 

ATBUN 14DA 5749, 5757, 1200 

ATBLOC 0008 5756, 5589, 9259 

ATSIGN 0040 3l6, 6021 

AUTOLF 0u04 124, 1436, 4018, 5453, 5618, 6327 

AUTTH.M 0001 56, 5336, 6451 

^^5 8000 368, 9708, 9710, 9712, 9718, 9724, 9728, 9731, 9752, 9754, 
9756, 9759, 9761, 9767, 9770, 9774, 9786, 9789, 9873, 9876, 
9879, 9881, 9898, 9904, 9907, 99l3, 9915, 9917, 9920, 9923, 
9926, 9929, 9932, 9935, 9938, 9940, 9947, 9949, 9951, 9953, 
9966, 9968, 9970, 9976, 9979, 9982, 9985, 9987,10002,10004, 
10006,10013,10017,10027 

BILEN FF38 812, 813 

BISTAT FF3A 810, 811 

BlXyPE FF39 811, 812 

B2U050 0845 2740, 27l3 

B2D100 0858 2765, 2737, 2739, 2742, 2744 

B2D110 085B 27to8, 2771 

B2D200 086A 2786, 2706, 2733 

B2U210 0875 2793, 2788 

B2O220 0876 2795, 2790 

62UBFL 003D 794, 7481, 9635, 9635 

B2D6UF FF3D 793, 794, 795 

B2DEND FF3B 796, 810, 5491, 7479, 9636 

62DPTR FF3C 795, 796, 9299 

62LEN FF35 815, 819 

B2UUTB 13BF 5486, 9227, 9229, 9270 

B25TAT FF37 813, 814 

B2rYPE FF36 814, 815 

6ACKT0 1802 6601, 6764 

BACKTl 1805 6603, 6479 

BACKT5 18E8 6742, 3125 



BASE FFOO 506, 794, 1494, 2338, 2599, 2605, 2611, 3313, 3765, 4886, 
4955, 4966, 4975, 6153, 6364, 6375, 6679, 6767, 6803, 6816, 
0968, 7017, 7250, 7341, 7898, 8323, 8423, 8523, 89/8, 8980, 



132b5-90003 Rev AUG-01-7b 
SYMBOL VALU£ REFfclRENCED ON 



BASE2 

BASEH 

BAS£ri2 

BCKSPC 

BfcGlN 

BELLIM 

BFSPC£ 

BINOCT 

BXNXMT 

BKIOIO 

BKT050 

BKTOoO 

BKTIOO 

BKTHO 

BKT120 

BKTliO 

BKT150 

8KT210 

BKT220 

BKT230 

BKT240 

aKT250 

BKT300 

BK1310 

BKT400 

BKT410 

BKT420 

BKT430 

BKT450 

BKT500 

BKi510 

BKTAB 

BLKFIL 

BLKMOe 

BLKSN 

BLKSZ 

BLKTHG 

BLKTRM 

BN2DE0 

BN2DE1 

BN2De2 

BN2ueC 

BNOOiO 

BNHiiGO 

BOX 

BRKDC 

BSYCHK 

BUFBGN 

BUFBSY 

BUFFND 

BUFMSG 

C 



FEOO 
OOFF 
OuFE 
IFFO 
0000 

0008 

CFFF 

Od02 

0002 

1922 

1926 

1938 

1939 

194/ 

1949 

t94D 

195B 

1830 

IB 39 

lb3B 

1B68 

1B6B 

187 A 

1B86 

lw9u 

18 AC 

1BB5 

tBDi 

IBDB 

IBFO 

IBFd 

IBFF 

FF91 

0o02 

OOOF 

0010 

OoOi 

5u04 

0810 

0823 

0B26 

0B2t 

OBOC 

2829 

0020 

123B 

283A 

FF8D 

008 

FF8B 

0F27 

0043 



9166 
508 
505 
507 
8422 
904 
9995 
377 
578 
2668 
382 
6785 
6796 
6806 
oBll 
fc)827 
6829 
6835 
6850 
6620 
6628 
t>630 
b652 
b654 
6667 
6677 
0687 
6703 
b708 
6724 
6736 
6750 
67 5 3 
6762 
575 
123 
i7 8 
3058 
379 
80 
233 
2704 
27u7 
27 09 
2731 
2676 
888 
727 
SloO 
897 
580 
770 
581 
4443 
318 



9180, 9574 
1217 

506, £07, 1616, 2571 

508 
9738 

914, 922, 930, 937, 945, 954, 962, 2647, 906, 

1425 

1069, 9672 

4424, 4426 

6778 
6781 
6800 
6770 
e>857 
6854 
6852 
b83l 
o670 
66bl 
b615 
b649 
6682 
b6i9 
b640 
6636 
6719 
b7l5 
6710 
6699, 
6643, 
6728 
9853 
576, 

I7i2, 

1140, 

3625, 

1137, 

1665 
234, 

1003 

5096, 

5119 

1002, 

2687 
889, 



6720 
6651 , 



2321 , 
2132, 
1951, 
5830, 
1156, 

1646, 

9333 

4431 

1683 



b659 



2 3 38, 
4018, 
1957, 
687 2, 
1178, 



3051 , 
47^4, 
19«0, 
7 361 , 
2000, 



7232 

5331 

1997, 

7519, 

2900, 



2037, 
7575, 
3201 



2893, 
7 593, 



2923 
7612 



3026 
9365 



5441, 5646, 6321, 6476, 9379 



5710, 6554 
898, 5919 
581, 1073, 



1827, 3575, 9673 



585, 1070, 1826, 1830, 3577 
999, 1844 
1405 
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SYMBOL VALUE 



REFERENCED ON 



CALTST 
CAPSLK 
CAKOIO 
C ARRET 
CDSPEN 
CHAIN 

CHAINO 

CHAINl 

CHAR 

CHARIN 

CHDOOO 

CHDOIO 

CHD020 

CHD050 

CHDIOO 

CHDllO 

CHP120 

CHD130 

CHDX40 

CHD150 

CH0200 

CH0210 

CHD250 

CHD260 

CHD400 

CHD500 

CHD510 

CHD515 

CHD520 

CHEKCC 

CHIOOO 

CHIOIO 

CHI020 

CHiOiO 

CH1050 

CHXIOO 

CHIllO 

CH1200 

CHI270 

CHXN'r 

CHINTO 

CHINTl 

CH1NT2 

CHKOIO 

CHK050 

CHK060 

CHK070 

CHKIOO 

CHK150 

CHKlbO 

CHKCTl 

CHKCTL 

CKKt-MO 

CHKFMS 



FF75 
0001 
lOOB 
0FF2 
FF7 7 
196D 

1968 
1969 
FF88 
FF9C 
lAOA 
19A4 
19D0 
lAOl 
1A19 
1A22 
1A49 
1A57 
tASE 
1A6C 
1A70 
1A74 
lA8a 
1A8C 
1A91 
1A9A 
lAAl 
lAAE 
lABO 
0040 
0342 
035F 
0380 
0393 
03A8 
03B9 
03C4 
03Eb 
040A 
0350 
0330 
03B9 
03A0 
1025 
1028 
10 34 
lu37 
1038 
103A 
1041 
0424 
0412 
1972 
1976 



611 
122 
4614 
4598 
609 
6874 
5834 
6868 
6870 
587 
566 
7021 
6951 
6987 
7013 
7042 
7052 
7077 
7089 
7095 
7101 
7109 
7116 
7132 
7135 
7147 
7163 
717 
7176 
7182 
7 3 
1471 
1493 
1523 
1528 
1549 
1563 
1575 
1612 
1632 
1479 
1459 
1562 
1541 
4653 
4661 
4671 
4675 
4680 
4686 
4693 
1656 
1645 
6894 
6897 



612, 

4018 
4600 
9947 

610, 
1356, 
5947, 
7110, 
9495 
588, 
567, 
6954 
6947 
7009 
69«2, 
7027 
7 072, 
7057, 
7080 
709 3 
7098 
7064 
7054 
7002 
7121, 
70o5, 
7024 
7175, 
7172 
7174 

1463 

1556 

1503 

1526 

1487 

1483, 

1585, 

1601 

1624, 

1467, 

989 
1473, 
1906 
4695 
4647 
4688 
4649, 

4666 

4665 

5357, 

9731 

6763, 

1417, 



9160, 9630 



8830, 
1689, 
6657, 
7133, 

1566, 
1333, 



7004 

7103 
7066 



7125 
7 099, 

7184 



1499, 
1590 

1628 
1475, 

2150 



4689 



6293 

8321 
2149, 



8904, 
1965, 
7363 
7940 

1633, 
1378, 



8977 
2467, 



4996, 
1432, 



2476, 3431, 3714, 5592, 5822 



5222, 
5612, 



6128, 
5614, 



8648 
9116 



7117 



1505, 1510, 1551, 1554 



1901, 2151, 5613 



2369, 2489, 3111, 3193, 3362, 3508, 4528 



13255-90003 
SYMBOL VALUE 



CHKFMT 


197B 


6901, 


5420, 


6361, 


63/2, 


646J, 


/u/o. 


/ I 3 U , 


CHKLIO 


1011 


4640, 


4994, 


8647 










CHKLIM 


1017 


4643, 


973 












CHKMLK 


1981 


6916, 


2170, 


6461 










CHKftiN 


FF8o 


588, 


589, 


3367, 


8209, 


8240, 


8484, 


8488, 


CHKSFi^ 


198C 


69J2, 


1367, 


1716, 


1750, 


2129, 


2211, 


3879, 






3961, 


4599, 


4912, 


5333, 


5433, 


5675, 


5695, 






8656, 


8747, 


8803, 


9238, 


9582 






CHKSUM 


0881 


2819, 


4153, 


4199, 


4305 








CriiRDiLL 


1999 


o945. 


6957, 


9823 










CHBDLl 


1A19 


7041, 


6996, 


72u6, 


7426 








CHRDL2 


1AB8 


7203, 


4R76, 


7655, 


8253, 


8914, 


9469 




CHRINS 


lACl 


7229, 


7488 












CHHLQC 


0002 


5758, 


1215 












CHRSET 


FF7 2 


616, 


617, 


1278, 


3866, 


3946 






CHRSTB 


2758 


9902, 


3854 












CHSAV 


FF98 


570, 
7148, 


57 2, 
7424, 


6953, 
7427 


6955, 


6*^69, 


7 002, 


7007, 


CIL 


0001 


698 














CIR 


0002 


697 














CKBRKY 


OUOA 


218, 


6548 












CKDSPF 


1047 


4702, 


1550, 


1623, 


1913, 


2123, 


3883, 


8533 


CKEDIT 


104D 


4709, 


2176, 


2248, 


3336, 


3389, 


4096, 


5501, 


CKIOK^ 


0008 


216, 


4098, 


5322 










CKLNMD 


105r 


4733, 


5 37 3 












CKPHOT 


1065 


4742, 
9610 


2378, 


3053, 


7247, 


7907, 


8518, 


8869, 


CKRMTE 


106A 


47 49, 


5179, 


5259, 


6301, 


6527 






CLAOIO 


UOO 


4900, 


4904 












CLBLXF 


1070 


4769, 


974, 


3977, 


5066, 


5466, 


5635, 


9650 


CLCMFL 


13DC 


5521, 


3882, 


6 131, 


B4o7 








CLEAR 


089D 


2849, 


9812 












CLEARL 


1C3C 


7538, 


982, 


3129, 


4800, 


8702, 


9818 




CLEARS 


losr 


4795, 


983, 


9817 










CLEROl 


1C9C 


7632, 


4859 












CLER02 


lC9u 


7634, 


7069, 


7313 










CLERLO 


1C5E 


7568, 


7440 












CLERLl 


1C61 


7570, 


7127, 


7137 










CLERLA 


1C54 


7553, 


7542, 


8678 










CLL120 


1C7F 


7598, 


7602 












CLL160 


1C8A 


7608, 


7595 












CLL310 


lC9a 


7618, 


7613 












CLL400 


1C9A 


7625, 


7543 












CLL510 


1C9F 


7637, 


7645, 


7656, 


7664, 


7669, 


7 6 7 9 




CLL540 


ICBO 


7649, 


7641 












CLiu544 


ICBi 


7654, 


7668 












CLL550 


1C69 


7661, 


7650 












CLLSbO 


ICCA 


7674, 


7639 












CLKALl 


lOFF 


4898, 


r 1063, 


1739, 


4186, 


4292, 


8601 




CLRALL 


lOFB 


4885 


f 9797 












CLRDFL 


1601 


6084 


f 1336, 


4797, 


r 5887, 


, 6485 


, 7771 


, 9383 


CLRMF2 


04AA 


1767 


, 4954, 


, 5079 


, 5543 


, 8541 






CLRTRG 


0000 


257 


, 4787 













91 . 

3899, 

6946, 



3922, 
7554, 



3944, 
7776, 



7046, 70B1, 7123 



5531, 7757 

9030, 9055, 9066 



SYMBOL 
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==ss==s 


£r=s=xs 






SSSSSS' 


ssssszasssrs 


CLRTHM 


0002 


57 


, 9463 








/:LRXOi^ 


1088 


4786 


f 5130, 


6268 






CLSIOO 


IOC 9 


4837 


, 4799 








CLSUO 


10D4 


4848 


, 4841 








CLS120 


10D9 


4852 


f 4872 








CLS130 


lOOD 


4858 


, 4843 








CLS200 


10E4 


4866 


f 4870 








CLS210 


10E5 


4868 


f 4877 








CMBASE 


OOFF 


140 


r 141 








CMDEXC 


oooa 


725 










CMfLGS 


FFFb 


149 
5556 


r 150, 
, 7446, 


1019, 
8714 


1337, 


1664, 


CMND 


FF55 


751 


r 7 7 2, 


2611, 


5921, 


6169 


CMPLIM 


FF46 


792 


r 793 








CMSTOR 


FFOO 


141 










CNTFAD 


FFCE 


513 


, 1614, 


2708, 


2734, 


3998, 


CNTHLC 


FF62 


731 


r 741 








CNTXFR 


0002 


644 










COMMA 


002C 


304 










COMMON 


FFFF 


139 


f 140, 


143 






CGi^DlS 


0001 


27 


f 2122 








CONDLF 


0A69 


3306 


f 4331, 


4358 






CONDTiM 


2bl4 


878 


f 879, 


5743 






C0U.>IT 


FF8 4 


59 3 


f 594, 


2902, 


2936 




CR 


GOOD 


292 


f 1310, 


1433, 


1472, 


1553, 


CRAOIO 


205D 


8511 


r 8515 








CRA040 


2028 


8480 


, 8455 








CRA060 


2039 


B490 


f 8466 








CRA070 


2049 


8497 


, 8494 








rCRAlOO 


2077 


8529 


r 8513 








CRADV 


2057 


8508 


, 8446 








CRADVl 


2023 


847 


r 1279, 


15t>7, 


2316, 


4395, 


CRAFLG 


FFb7 


667 


, 689, 


1480, 


8472, 


8523 


CRIIOO 


lACF 


7246 


, 9028 








CRI104 


1AD5 


7249 


, 8892, 


8938, 


8943, 


8986 


CRIUO 


IAD 9 


7253, 


, 7277, 


7286, 


7288, 


7293 


CR1120 


1 ADF 


7258 


, 7256 








CRH40 


lAFi 


7274 


, 7295, 


7 364, 


7400 




CRI150 


1B22 


7300 


, 7291 








CRI152 


1627 


7304 


, 7306 








CRI154 


1B2F 


7309 


, 7303, 


7311 






CRI158 


1B39 


7319, 


, 7281 








CRil59 


1B44 


7326< 


, 7283 








CRI160 


lb47 


7334 


, 7322 








CR1170 


1B4B 


7336< 


r 7325 








CRiieo 


1B49 


7338, 


, 7376 








CRI200 


1B50 


7356, 


r 7279 








CRI24Q 


1B6E 


7368, 


, 7362 








CRI260 


1B83 


7387, 


r 7378 








CHliOO 


1B89 


7397, 


, 7269 








CRi305 


1B91 


7402, 


, 7265 








CRI310 


IBAF 


7420, 


r 7434 








CRI320 


1BC3 


7431i 


, 7412 








CRI330 


1BD8 


7445, 


, 7415 








CRX400 


ICOC 


7478, 


r 7466, 


7470, 


7490 





1875, 4490, 4750, 5325, 5522, 



9667 



1896, 5430, 5615, 6324, 9123 



5467, 5701, 8491 



13255-90003 Rev AUG-01-76 
SYMBOL VALUE PEFERENCED ON 



CRI450 


1C25 


7494, 


7473, 


7482 
















CRiSOO 


1C2E 


7516, 


7305, 


7310 
















CRX510 


1C39 


7523, 


7520 


















CRLF 


209b 


8546, 
8379, 


4349, 
8534, 


4387, 
9397 


4388, 


4585, 


4591, 


4615, 


6482, 


8328, 


8358, 


CRP023 


1170 


4993, 


49b8, 


4977 
















CRP050 


1180 


4995, 


4984 


















CRP2U0 


1 192 


5011, 


5006 


















CRP5U0 


liAo 


5035, 


5012 


















CRPTA6 


2760 


9911, 


4957 


















CRRET 


2188 


8786, 


4330, 


8547, 


97 4 3 














CRRETi 


21C8 


8794, 


5363, 


5382, 


7985, 


9508 












CRSIOO 


1215 


5117, 


5106 


















CR6NG0 


HE4 


5084, 


1697 


















CH TOFF 


0080 


4 1 , 


U93, 


2853, 


4183, 


b 1 7 2 












CSUIOO 


0884 


2823, 


2827, 


2831 
















CSUllO 


089A 


2841, 


2838 


















CTBDLX' 


OU20 


775, 


2608 


















CTBLnK 


FF5 3 


773, 


774 


















CTBLlPi 


FF5 2 


774, 


7 76, 


/605 
















C IOC UP 


28 2C 


889, 


893, 


5913 
















C 11 ADR 


FF33 


819, 


820 


















CTIBPT 


FF2F 


H21, 


822 


















C TIC NX 


FF2C 


822, 


823 


















CTiCSM 


FF2A 


824, 


825 


















CTIJMP 


FtEO 


lb4, 


lb5. 


1110 
















CTINIR 


2 8 3D 


H98, 


b014 


















CTISPX 


FF31 


820, 


, 821 


















CTlSTA 


FF29 


825, 


, 829 


















CTITRL 


FF2B 


82 3 < 


r 824 


















CTivfcC 


FFEi 


163, 


r 164, 


1108 
















CTLLIM 


0020 


298, 


, 1413, 


14«6 
















CTLREi) 


2808 


874, 


. 875, 


57 44 
















CTMON 


282F 


893, 


, 894, 


5936 
















CTRDKY 


OOAO 


5722 




















CTSTAT 


FF6b 


689, 


, 700 


















CTUIN 


008u 


849 


, 1127 


















CUR 100 


IIDE 


5080 


, 5073 


















CURAD2 


2002 


8442 


, 4340, 


4375 
















CURADR 


FFC3 


530 


, 532, 


1496, 


1530, 


2095, 


2386, 


2540, 


2559, 


3212, 


3818, 






4538 


, 6745, 


7988, 


8040, 


8481, 


8674 










curadv 


2005 


8445 


, 1533, 


4385, 


8443, 


9095 












CURCOL 


FFCl 


538 


r 539, 


1422, 


1543, 


2329, 


2331, 


2362, 


2402, 


2443, 


2945, 






3068 


f 4951, 


49b6, 


5021 , 


5095, 


57b6, 


b227. 


b364. 


6374, 


6696, 






6765 


, b961. 


7 015, 


7 341, 


7349, 


7450, 


7486, 


7898, 


8323, 


8423, 






8453 


, 8510, 


8562, 


8670, 


8676, 


8701, 


8795, 


8858, 


8876, 


9374, 






9464 


, 9481, 


9566 
















CURFKY 


FFA4 


554 


, 555, 


5593, 


587 3, 


5878 












CURPD 


20AE 


8572 


, 9809 


















CURPH 


102 7 


7769 


» 978, 


1231r 


9852 














CURPHl 


ID2C 


7774 


, 6576, 


8392, 


8503, 


9041 












CURPHO 


1107 


4911 


r 979, 


0621, 


9813 














CURPL 


20AI 


8559 


, 9811 


















CURPLl 


20A3 


8561 


, 8555 


















CURPL2 


2083 


8579 


, 8565 
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SYMBOL 


VALUE PEFEPEr 


JCED 0^ 


i 


r ffi s 2: 21 2: - 


:UHP01 


U4F 


4963, 9920, 9929 




1* 4M <^ «W M» «» « 


'CURPU2 


115A 


4972, 


9926, 


9935 






CURP03 


1165 


4981, 


9923, 


9932 






CURP04 


1198 


5020, 


6769, 


6805, 


6844, 


8361 


CURPOS 


U3A 


4950, 


9884 








CURPR 


209C 


8553, 


9810 










21C5 


8792, 


3130, 


3225, 


3507, 


4914, 


CUkPU 


20B5 


8584, 


9808 








CURPUl 


2 OB 7 


8586, 


8574 








CURRQW 


FFCO 


539, 


540, 


1194, 


1511, 


2232, 






3228, 


3313, 


3386, 


3506, 


3738, 






5007, 


5042, 


5104, 


6119, 


6494, 






6672, 


667 3, 


6711, 


6716, 


6725, 






6997, 


7458, 


7495, 


7547, 


7847, 






B5b7, 


8661 , 


8680, 


9240, 


9250, 


CURSKi^ 


11D9 


5077, 


9845 








D 


0044 


M9, 


8043 








DATATR 


0040 


739 










DATCOj^ 


0020 


769 










DBLHOL 


0010 


726 










DC 2 


0012 


295 










PC2G0 


122d 


5137, 


1693 








DC2SND 


0080 


46, 


5355, 


6290 






DC 3 


0013 


296, 


1474 








OCCOIO 


124C 


5185, 


5180 








DCERR 


1251 


5190, 


6168 








DCHOIO 


233A 


9117, 


9124 








DCM020 


233D 


9119, 


9122 








)CH100 


2350 


9131, 


9100 








^DCHAR 


FF8 9 


586, 


587, 


2948, 


2980, 


3006, 






7250, 


7284, 


7339, 


7398, 


8811, 






9035, 


9088, 


9107 






DC i OFF 


0010 


104 










DCJMPO 


0080 


61 










DCJMPl 


0001 


65 










DCJMP2 


0002 


66 










0CJMP3 


0004 


67 










DCJMP4 


0008 


68 










DCdMS2 


5006 


235 










DCJMSK 


5005 


234, 


235 








DCMOIO 


128D 


5247, 


5241 








DCMCTl 


1240 


5187, 


1038, 


5545 






DCMCTL 


1242 


5177, 


1658, 


4788, 


5132, 


5143, 


DCMERR 


0001 


89, 


3984 








DCMIIMT 


1234 


5151, 


936 








DCMNUS 


1286 


5245, 


971, 


9915 






0CN005 


126C 


5221, 


5219 








DCiMOlO 


127B 


5230, 


5233 








DCNUM 


1262 


5215, 


969, 


9917, 


9976, 


10004 


DCPLUS 


1286 


5239, 


970, 


9913 






OCTESt 


1299 


5258, 


1000, 


5324, 


9860 




DCXB2D 


12A6 


5274, 
9033, 


3924, 
9105, 


4611, 
9134 


5677, 


5697, 


DECRDX 


OOOA 


130, 


1732 








DEFSKi 


0008 


83, 


3881, 


3901, 


4491, 


8715 



7775, 8679, 8789, 9814 



2237, 2446, 2561, 2986, 3083, 

3746, 4514, 4943, 4975, 4989, 

6497, 6607, 6616, 6623, 6638, 

6737, 6755, 6776, 6948, 6990, 

7856, 7868, 7998, 8033, 8034, 

9440, 9512, 95b4 



3071, 4337, 4530, 5028, 7230, 
8828, B850, 8885, «950, 8980, 



5162, 5315, 5511, 5657, 6427 



8131, 8492, 8501, 8767, 8774 
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DELAY 


12B3 


5290 


f 1439 






DELAiO 


12AC 


5282 


, 9807 






DELTRM 


0000 


655 


r 2555, 


8105 




DEjjWRP 


1991 


6940 


r 9822 






DENTAB 


2754 


9896 


r 8805 






DL\/FLG 


FE7F 


847, 


r 854, 


1131, 2626, 6012 




DFCTOF 


1490 


5685 


r 5711 






DFLGS 


FF6fc 


641< 


r 652, 


1034, 1300, 1415, 1649, 1708 






5636< 


, 6071, 


b085, t)3^5, 0414, 8538, 9391 


DFSIOO 


20CD 


8611 


rl0006, 


10013 




DFSllO 


20D5 


8618. 


rl0020 






OFS120 


20 no 


B625 


r 10021 






DFS200 


20E2 


8636 


, 8621 






OFS2iO 


20EF 


8644 


f 8641 






DFS220 


2 OF 2 


8646 


, 8614, 


8643 




DFS230 


214E 


8689 


, 8685, 


8687 




DFS250 


215A 


8699 


r 8673 






DFS300 


2184 


8746. 


rl0027 






DFS350 


21 AS 


8766, 


, 9708 






DFS360 


2182 


8773. 


, 9710 






DF5FKY 


2oC0 


8598, 


, 98b9 






DFSTAB 


2 7 DO 


10000, 


, 8602 






OFSTBO 


2660 


9716 1 


1752 






DFSIB2 


27F0 


10025, 


8692 






DFSTB3 


2654 


9706, 


8761 






OF TO 10 


2 7EF 


10019, 


10008, 


10015 




OIS020 


2205 


8871, 


8969 






DIS030 


2213 


8882, 


8870, 


8899, 8915, 8931, 8941, 8966 


DIS035 


223F 


8911, 


8887 






OIS040 


2247 


8920, 


8897 






D1S042 


225C 


8936, 


8928 






DIS043 


226B 


8947, 


8930, 


9031 




DIS0§4 


2275 


8954, 


8907 






01S045 


2278 


8963, 


8925 






0IS050 


2287 


8974, 


8890, 


8896 




OIS054 


2295 


8983, 


8976 






0IS060 


229F 


8994, 


8852 






01S070 


2284 


9012, 


8998 






01S080 


2 2 BE 


9021, 


, 8996 






DIS090 


22CE 


9029, 


, 9007, 


9025 




OIS092 


2204 


9032, 


7248, 


8875, 9056, 90t)7 




0IS093 


22E5 


9040, 


9016 






OISIOO 


2 2 EC 


9052, 


8863, 


9000 




OISUO 


2301 


9065, 


8988, 


9006, 9054 




0IS114 


230A 


9069, 


9063 






0IS120 


08CF 


2898, 


2901 






016140 


08E1 


2915, 


2929 






DIS160 


08FA 


2935, 


2904 






DIS170 


0915 


2955, 


2947, 


29t)l 




0IS175 


0916 


2957, 


2950 






OIS180 


091D 


2965, 


3016, 


3030 




OIS210 


0933 


2983, 


2981 






OIS220 


094A 


3002, 


2881 






O1S240 


0954 


3013, 


2920 






DIS400 


095A 


3021, 


2888 







4111, 4434, 5275 



8968 
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ISCNT 
SLNl 
>I5LN2 
DISLN3 
DISLN4 
DISLNK 
DISMDH 
DISPCO 
DISPCl 
DiSPC:2 
QISPEN 
DlbPLO 
DISPlI 
DISPL2 
DISPLA 
DISPLC 
DISPLlf 
DISPST 
DLJfOlO 
DLY020 
DMAOFF 
DOOCTl 
DPSlOO 
DPS200 
DPS210 
UPS215 
DPS220 
DPSENl 

05Ei\(D 
ip^SGO 
DSGOIO 
DSG020 
DSGluO 
DSGllO 
OSG200 
L)SG210 
DSG220 
DSG225 
DSG230 
DSMOIO 
OSM500 
DSM510 
DSPOlO 
0SP02O 
DSPASC 
DSPBGN 
OSPBTM 
DSPCHO 
DSPCHl 
DSPCriR 
DSPEND 
DSPFNC 
DSPUM 
DSPrtSO 
DSPMSl 



0006 
0F9E 
OFAi 
0FA4 
OF A 5 
0F95 
1240 
2 IDE 
21E0 
2IE2 
21CF 
22Ab 
08AB 
08B/ 
21E9 
2iD9 
0u04 
FFFE 
12BC 
12C0 
0u6U 
2835 
1308 
130E 
1318 
1316 
1322 
133i 
12D8 
133B 
134to 
134E 
USD 
1376 
USA 
1399 
13A7 
UAA 
UBl 
1CE3 
ICFB 
IDOl 
0437 
044D 
229F 
FFAA 
0040 
231D 
2351 
2 3 1 A 
FFA8 
0001 
FBFF 
ICD6 
1CD7 



263 
4513 
4515 
4517 
4519 
4506 
5166 
8813 
8825 
8827 
8802 
8997 
2877 
2884 
8849 
8810 
766 
143 
5296 
5299 
409 
895 
5345 
5353 
5358 
5360 
53o8 
5378 
5321 
5394 
5399 
5406 
5415 
5429 
54^0 
5449 
5458 
5460 
5464 
7705 
7723 
7726 
1671 
1688 
8993 
551 
716 
9096 
9133 
9094 
552 

in 

491 
7694 
7696 



5167 

1529, 

5284 

1622 

5201, 

3171, 

9850 

4369, 

3956, 

4579, 

9887 

5030 

7347, 

9062 

7234, 

9898 

144, 
5305 
5303 
4507 

896, 

5332 

5 37 4 

5334, 

6496 

5709 

1699 

5424, 

5410 

5408 

5421 

5396, 

5419 

5444, 

5445 

54U 

7713 

7699 

7735 

1677 

1673 

8671, 

552, 
9576 
4616 
6366, 
3923, 

553, 
4704, 
1077 
5196, 
1268, 



1905, 2995, 3095, 5435, 7751, 8044, 9518 



6166 
3290, 

4374 

4532, 

6404, 



9068 



7835 



6244 
7006 



9039, 9042, 90/4 



2094, 2553, 4493, 7715, 7750 



1107 



5337 



5436 



5416 



5451 



9098 
1081 



6377 
3926, 
1078, 
5667, 

6121 

4110, 



1146, 1840, 3580, 4002 



4341, 
1136, 
5689 



4612, 
1839, 



5700, 
1842 



9724 



4113, 526 3 
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OSPMSG 
DSPSTH 
DSPTAB 
DSPTCH 
DSPTST 
DSPTlfP 
eCONTF 

ECOUTB 

EDIT 

EDTWRP 

Ell 

EI I A 

£12 

EI 3 

ELM 100 

ELl^^llO 

ELMliO 

ENDBLK 

ENOCOL 

ENDDSP 

ENDPR 

ENDHOk^ 

ENOTST 

ENHLIM 

ENHNCE 

ENriOUf 

ENLIOO 

ENRIOO 

ENTLCL 

ENTRCD 

ENTREN 

ENXREN 

EOF 

EOL 



EOLADR 

EOLMOtf 

EOLMtf 

EOLMVO 

EOP 

ERREOP 

ERRFLG 

ESC 

ESCOlO 

ESCAPO 

ESCAPl 

ESCAPA 
ESCAPB 
ESCAPE 
ESCENl 



ICDA 
FE4F 
0451 
0429 
2314 
FFAE 
FFCD 

138A 
0010 
0008 
26C1 
26CB 
2601 
2720 
0992 
099E 
09AF 
0007 
FF21 
OUBO 
OOCl 

FF20 
0006 
OOBF 
OOFF 
FF76 
1305 
UFO 
13C7 
0098 
13e2 
16C7 
0001 
OOCC 



FF94 
0971 
FF9 
0969 
OOCE 

0F50 
FFF7 
0018 
0473 
0481 
048F 

047F 
0487 
0461 
04A1 



7698 

498 

1692 

1663 

9087 

544 

512 

3653 

5483 

115 

59 

9794 

9801 

9806 

9859 

3079 

3089 

3100 

264 

839 

717 

354 

8132 

840 

214 

352 

5734 

610 

5509 

5539 

5500 

5719 

5530 

6252 

733 

364 

5752 

8312 

573 

3056 

576 

3050 

365 

4571 

4460 

150 

297 

1715 

1733 

1740 

9985 

1731 

1736 

1707 

1753 



967 
1199, 
1702, 
1326 
4363, 
550, 
513, 

9159, 
4711 

9772 

9777 

97B0 

97 8 3 

3066, 

3093 

3098 

5131 

840 
9576 
2397, 
8493, 
9444, 
2596, 
7056, 
1380 

611, 
5502 
5532 
1923 
5327 
187H 
9848 

1504, 
7044, 
8888, 

574, 
28 79 

577, 
2557 
2049, 
4810, 
4418 

151, 
1375, 
1710 
1718, 
5235, 
10002 
4958, 
4998, 
97 28 
1751 , 



1209, 1215, 
1668 

4383, 45bl, 

1230, 6898, 

518, 542, 



1217, 7700, 7714 



8690 

6933, 8719 

1014, 1050, 1270, 1620, 2748, 2779, 



9189, 9213, 9217, 9220, 9232, 9247 



3070, 3073 



4871, 
887 3, 
9516, 
4392 
7276 



5750, 

9215 

9618 



5754, 6221, 6602, 6602, 7551, 8132, 



yi53, 9166, 9507, 9632 



2944, 
7061 , 
9418 
2886, 

3103, 

2200, 
4860, 

3982, 
1555, 

3855, 
5253, 

6203, 
8650 

5670 



3014, 3028, 3064, 4080, 4574, 4938, 5750, 

7136, 7280, 7389, 7557, 8197, 8283, 8283, 

2985, 7 388 

8170, 9026 

3491, 4427, 4444, 4461, 4464, 4467, 4470, 

4873, 6044, 7676, 7944, 8199, 8314, 9414 

4046, 4379, 6181 

5484, 5682, 5750, 6520 

6135, 6419, 8806 

8760, 8775, 9712, 9938, 9966, 9968, 9970, 

8603, 8693, 8762 



13255-90003 



Rev AUG-01-76 



SYMBOL 
ESCEND 



ESCF'LG 
ESCINP 
ESCLWD 
ESCOUT 
ESC SO 
esc TAB 
EVP 
EW 

EXPOlO 
EXP020 
EXP030 
EXPlOO 
EXPllO 
EXPAND 
£XrB2D 
f 

FICODE 
F8C0DE 
P^CROOd 
FCROIO 
fCRlOO 
FCRliO 
FCR150 
FCRlbO 
FCR200 
FCR250 
f'FCR2 60 
FCR400 
FCT200 
FCT210 
FCTADl 
FCiADJ 
FCTK2D 
FCTKEY 
FDESC 
FDESCl 
FD I SOF 
FDISON 
FDISTB 
FDOIOO 
FF 

FILCHR 
FILL 

FILNUM 

FXLRED 

FIVE 

FKEYGO 

FKGOIO 

FLDSEP 

FLDSR 

FLDSRl 



VALUE 
0495 



FFDl 
0008 
00E4 
17B8 
008E 
269A 
0002 
0080 
2i7E 
23A2 
2iA? 
2 3 AC 
23C2 
2358 
0001 
0046 
OOFO 
OOF? 
1E06 
lEDA 
IEEE 
1F24 
IF 26 
lF3e 
1F45 
1F55 
lF5b 
lECB 
1432 
1430 
OlEO 
FFDF 
0010 
1406 
14AA 
1486 
1488 
1478 
278C 
1470 
OOOC 
FF8F 
00C3 

FF5E 
0004 
0035 
1451 
145U 
00C4 
1DC4 
1DB9 



REFERENCED ON 



1748, 

9759, 

10017 

176, 

635, 

5727, 

6519, 

5726, 

97o5, 

734 

7 29 

9171 

9199 

9203 

9210 

9224 

9148 

714 

320 

5728 

5729 

8174 

8180 

8196 

8223 

8229 

8239 

8248 

tt258 

8260 

8142 

5608 

5611 

5730 

5731 

647 

5579 

5694 

5699 

5674 

5664 

9945 

5666 

291 

577 

356 

7663 

747 

704 

312 

5633 

5642 

363 

7901 

7895 



972, 1276, 1630, 1914, 5251, 
9761, 9789, 9803, 9833, 9835, 



5688, 9752, 9754, 9756, 
9881, 9888, 9907, 9940, 



179, 
1298, 
1394 
3979, 
1404 
1717 



9157 
9182 
9179 
9152 
9214 
993 



1419, 
1713, 



1625, 
1757 



1741, 1756 



5088, 9652 



9429 



4041 

5730, 1363 

1365 

8184 

8191, 8206, 8214, 8222, 8242, 8252, 8254 

8189 

8220 

8204 

8232, 8235, 8237 

8202 

8251 

8182 

8104 

5597 

5621 

5731 

5582 

1301 

1368 

9949 

3927, 5680, 5696, 8753 

9951 

9832 

5669 

5660 



, 5616, 5619 

, 5731 

, 1416, 5598, 5637, 5886 



1944, 
1941, 
9420 



2001, 
2960, 



7571, 
3074, 



760 3 
7 063, 



580 
1509 
9228 

748 
1313 

943 
1698 
5650 



3509, 4849, 8390, 8499, 9038, 
7861, 9448, 9614 



7126, 7282, 7439, 7600, 



9275, 9543 
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FLDSR2 

FL05RB 

FLOSRX 

FLIWe 

FLSOIO 

FbS020 

FLS030 

FLS035 

FLS040 

FLS050 

FMTCTL 

FNCLIl^ 

FNCLWR 

FNCTAB 

FNDCri 

FNDCriO 

FNDCHR 

FNDCHU 

FNDCUl 

FNOLSO 

F(^DLST 

FNDRAM 

FNDTAB 

FNDTBi 

FNDTB2 

FOFOiO 

FORGN 

FORMAT 

FORMOF 

FORMO.^ 

FOUR 

FPS 

FRBLKS 

FRCOiO 
FRCOSO 
FRCIOO 
FRCPTY 
FRCRST 
FRECNT 
FRHOiO 
FRNCTl 
FRNCa2 
FRNMDl 
FRNMD2 
FRSALT 
FRSOUT 
FRSIBL 
FS2000 
FS2005 
FSR080 
FSRIOO 
FSRi20 
FSR140 
FSR200 



1E84 

1&83 

1E20 

FF9F 

1F61 

1F6C 

1F60 

1F7 2 

1F75 

1F7« 

FF8A 

OOhl 

0098 

14BC 

lEAO 

1E9D 

leCF 

1EB9 

lt.C4 

tF58 

1F5C 

04B0 

14Ey 

14ED 

14FA 

1494 

009U 

OOOd 

1502 

IDld 

0034 

0004 

FFAC 

150F 
151E 
1530 
0080 
0004 
150A 
04C4 
1538 
153D 

oooe 

OOOF 
4829 
0010 
FF92 
IE80 
1E83 
1005 
IDE 2 
1DE8 
1E20 
lE2b 



HObS 
8063 
7972 
557 
8290 
8296 
8298 
8302 
8304 
8311 
585 
5724 
5723 
5708 
8098 
8096 
»lb8 
8130 
8138 
8281 
b285 
1784 
5765 
57t>8 
5788 
5679 
118 
114 
5799 
7756 
311 
724 
550 
6466 
5813 
5825 
5839 
75 
82 
5810 
1801 
5848 
5854 
222 
223 
204 
636 
574 
8061 
8064 
7913 
7928 
7936 
7973 
7982 



7678, 

8465 

3909, 

564, 
8303 
8293 
8295 
8315 
8313 
8300 

586, 
1349 
1351 
1354 
2398, 
2384, 
2554, 
7929 
7915, 
7469, 
6635 
1072, 
5895, 
6820, 

984 
5676 
4079 
5800, 
9831 
9830 

935 



7963, 8069, 9527 



6405, 
2098, 



9402 
2246, 



2257, 3162, 3300, 7818, 7821, 7872 



84b3, 8531 



8498, 8874 

8486 

8143 

8133 

8665, 9326 

1080, 1797 

5903 

8334 



t>903, 7761, 7842 



551, 1154, 1945, l<?t>6, 2293, 2295, 48i2, 4821, 5812, 

5831 
5835 
5819 



1020, 
980, 
1789, 
9802 
9804 
5849 
5855 

205, 
9273, 

575 
8073 
8075 
7966 
7900, 
7916 
7938, 
7930 



2851, 
3337, 
1792 



1277, 
9318 



5197, 
5841 



6125, 6130 



4084 



7908, 7957, 7967 



7945 
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SYMBOL VALUE 



REFERENCED ON 






SR240 
p^R300 
FSR340 
FSR360 
FST 

FSTBIN 
FSTRAM 
FSTSND 
FTBIOO 
FULDUP 
FWD 
GAP 

GBLIOO 
GBL200 
GBL210 
GDCOiO 
GDC020 
GDC 030 
GDC050 
GDC 100 
GDSOIO 
GDS020 
GDSOiO 
GDS040 
GDS045 
GDSO&O 
GDS060 
GDSIOO 

DSUO 
i^DSlSO 
GDSltoO 
GDS200 
GDS210 
GDS220 
G0S225 
GDS230 
GDS300 
GDS310 
GDS320 
GDS350 
GDS360 
GEN 
GETADR 

GETBUF 

GETDCl 

GETDCM 

GETDSP 

GO 

GOO 10 

GOl 

GTB005 

GTBOiO 

GTBIOO 

GTBLK 



1E42 

1E55 

1E64 

1E7B 

0U04 

OOOA 

9100 

0020 

14FC 

0080 

0002 

0020 

0576 

0584 

058D 

050C 

0514 

052A 

053b 

0544 

2304 

2418 

243C 

2459 

2 46F 

2470 

2478 

2492 

24AA 

24B8 

24Bb 

24BF 

24E7 

24F9 

2509 

250C 

2522 

2541 

2544 

2589 

258F 

0020 

FF7 3 

04CB 
0530 
04FC 
242C 
0OB4 
00D8 
OODA 
04DA 
04DD 
04F2 
054D 



8000, 
8021, 
8032, 
8042, 
755 
267 

41 

5790, 

18, 

754 

693 

1974 

1996 

2002 

1882 

1890 

1900 

1911 

1921 

9237 

9269 

9315 

9330 

9345 

9348 

9353 

9372 

9390 

9401 

9404 

9413 

9435 

9445 

9452 

9461 

9477 

9494 

9500 

9541 

9544 

758 

612 

9519 

1825 

1904 

1872 

9298 

1010 

1028 

1033 

1831 

1838 

1849 

1943 



8028 
8025 
8003 
7997 



136 

5793 
2139 



1958 

1969 

2006 

1902 

1916 

1894, 

1884 

1876 

9303 

9264, 

9244 

9328 

9394 

9239, 

9366, 

9358 

9382 

9352, 

9242, 

9360 

9424 

9528 

9447 

9417 

9419 

9479, 

9367 

9511 

9510 

616, 
9533, 
1099, 
1288, 
995, 
991, 
909 
1024 
3938 
1843 
1829 
1828, 
2890, 



503, 1052, 4208 



1897 



9267 



9320 
9421, 



9415, 
9522 



9438, 9532 



9449, 9472 



9480, 9484 



9277, 

9628 

UIB 

8757 

1293 

5407, 



9323, 9349, 9356, 9451, 9466, 9489, 9505 



9340, 9430 



1841 
2917 
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SYMBOL valuh; 



GTBLKF 

GTFOIO 

GTFCTK 

GTMODl 

GTMUDE 

GTNwLN 

H 

HAi^iGUO 

HOC 100 

HDC200 

HDC210 

BNOSHK 

HNGOIO 

HOL. 

HObCNT 

HFOERl 

HHOtRR 

HTAB 

HTblOO 

HTB120 

HTB130 

HTB140 

HTBlbO 

riTB200 

HTBCLR 

HTBLEN 

HTBStT 

KTBTBL 

HUP050 

HUfObO 

HUP 100 

nUPllO 

ICHOlO 

ICHUFF 

iCriON 

IDG055 

10G060 

IDG070 

IDG090 

IDGIOO 

IGNTRM 

INEHMS 

If^IOlO 

IlVil020 

INlllO 

INI130 

INX210 

INI220 

iNlilO 

INIT 

INITDO 

INITDl 

IMITDG 

INITDS 

INPDfcV 



054B 
1553 
1542 
1053 
1059 
059/ 
0048 
1254 
llOE 
U2A 
1136 
0040 
125C 
0010 
FF51 
OOlO 
0004 
1FB2 
IF9C 
IFfll 
IFBD 
IFCl 
IFAb 

iFce 

1560 

OOOA 

155A 

FF7b 

1D7D 

1D92 

1DA3 

IDAb 

1FD7 

IFDC 

1FD5 

2i)BE 

25D3 

25D7 

25E8 

2 SEE 

0001 

0F3F 

OOFB 

0103 

0166 

0177 

019A 

OlAl 

01C8 

OOF 4 

2593 

2605 

259C 

05CB 

FF4E 




5 

5872, 

4718, 

4722, 

2029, 

321 
5195, 
4918, 
4936, 
4942, 
43, 
5200, 
694 
776, 
737 
735 
8320 
8341 
8344 
b369 
8376 
8350 
8^89 
5902 
604 
5894 
605 
7839 
7854 
7865 
78b7 
8401 
8405 
8399 
9596 
9606 
9609 
9616 
9623 
656 
4452 
1053 
1062 
112 
11 
11 
11 
12 
10 
9 
9 




9 
74 
06 
48 
63 
34 
567 
092 
784 



998, 
4931 
4925 
4940 
5355, 
5202 

777 



5600, 6320 



1101, 1845, 1912, 4437, 5262, 6048, 6563 



5356, 6276 



9739, 9816 



83 
83 
83 
8 



84 
71 
46 
43 



8322 

9796 
605, 

9795 
609, 

7 798 

7 77 7 

7782 

7843 

8417 

9825 

9824 

9583 

9601 

9604 

9611 

9603 
2317, 

b045 
1056 
10t>5 
1117 
1126 
1184 
1172 
1222 
1017, 

990 

7406, 

5395, 

1190, 

785 



4887 
4886, 



5773, 6797 



2531, 6401, 6611, 8099, 9597 



1021, 1027 



9149, 
6447, 
1236 



9246, 
9565 



9322 



SYMBOL 

\NSCHR 

^NSWRP 

INTERR 

INTFLG 

INTRPT 

INTV£C 

INVRS 

iOBASe 

lOBNGO 

lOBSXC 

lOBUlF 

lOBUFl 

10BUr2 

lOBUFH 

lOBUrL 

iOCCWT 

lOCDfcV 

lOCDPT 

IOC£RR 

lOClNP 

lOCKEX 

lOCMND 

IOC NIL 

lOCOUT 

lOCRCL 

lOCRRw 

lOCSGN 
lOCTCO 
'iOCTDI 
lOCTDO 
lOCTGO 
iOCTMN 
lOCTSl 
lOCTU 

xocTi:p 

lODATA 

lOOISP 

lUDNGO 

lOfelRRB 

I0FLG2 

lOFLGS 

lOIOlO 

101020 

lOlNTR 

lOKB 

lOKBCO 

lOKEXS 

lOKYTB 

lOQRG 

lOPSGN 

lOPTRl 

I0PTR2 

lORDGO 



VALUE 

0002 
0002 
lb07 
FFF6 
15FB 
9165 
0082 
0080 
1568 
156E 
FCOU 
FCOO 
FDOO 
OOFC 
0000 
FFD5 
FFDB 
FF4C 
FF4F 
FFD9 
2802 
FFD7 
2H1A 
FFDA 
8700 
8720 

FFDD 
8B00 
8B20 
8B20 
1580 
1586 
8B00 
8B00 
FFDB 
FFOE 

B70U 
2820 
0O08 
FF64 
FF65 
15D1 
15D6 
15AD 
8300 
8380 
158C 
14CE 
2800 
FFDC 
8D00 
8500 
2823 



REFERENCED ON 

s=ss=sxsssssss: 

112, 6972, 

81, 7448, 
6039, 6059 

151, 
6057, 

136, 

411, 

392, 
5912, 
5918, 

493, 

496, 

497, 

494, 

495 

805 

800 

786, 

781, 

802 

872, 

804 

B83, 

801 

405, 

406, 
617 3, 

166, 

417, 

420 

419 
5929, 
5935, 

418 

416, 

803 

165, 
8637, 

404, 

885, 

380, 

712, 

700, 
6025, 
6029, 
6003, 

396, 

397, 
5944, 
5738, 

871, 

167, 

425, 

432, 

886, 



152, 
921, 
137, 
5755 

396, 
9849 
2850, 
494, 
1061 
4421, 
495 



787 
784, 

873, 

884, 

1544, 
1514, 
7717 

167, 
2614, 

9876 
1325, 

417, 

166, 
8645 
405, 
886, 
4043 
720, 
712, 
6028 
6023 
944 
397 
1516, 
5328, 
5945 
872, 
168, 
426, 
433, 
887, 



13255-90003 

8402, 8408, 8521, 9024 

8406, 8414 

2621, 2634, 5298, 5301 

953, 961 

1090, 2583, 5152, 6004, 6058 

404, 416, 425, 432 

3934, 4114, 5925 

495, 4185, 4214, 4291 

4429 



Hev AUG-Ol-76 



4040, 5924 

5739 

5930 

6008, 8796, 9378, 9487 

2854, 2989, 3087, 3319, 3794, 4184, 4509, 4516, 

1737, 4641, 5216, 5248 
t)047 



6547, 9120 

418, 419, 420 

672, 4644, 4662, 5227, 5234, 5312, 6040, 6424, 

406 
1700 

3328, 4719, 9425, 9530, 9574 
1312 



1618, 4521 

5712, 5713, 5714, 5715, 5716, 5717 

1123 

4642, 4646 

427, 428 

434, 435, 436 
1681 
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SYHBijL VAbUe PtFERENCED ON 



lOHMGl 
iORMGO 
lOSTAO 
lOSTAl 
10STA2 
1USTA3 
XOSTGO 
IWRPUN 

KBDCSw 

KBOLUK 

KBEN 

KBENl 

rCBb'CTK 

KBJfflP^ 

KBJMPi 

KBJMPH 

KBLOK 
KBLOKO 
h 
LADDR 

LCHAR 

LCHKSM 

LCI 05 

LOmTA 

LDRO 

iuDH035 

LDRObO 

LDRIO 

LDR3 

L0R4 

LDRCHK 

JbDRMSG 

LORTAB 

LF 

UFPOS 

LFTBKl 

LFTBRC 

bFTCTU 

LFTMGN 

LIl 

iilDOSO 

LID200 

LID3U0 

LII200 

bINDtL 

LINULO 

LININO 

LIN INI 

LININA 

UNINS 

LINWRP 

lline; 



15A3 
1593 
FF48 
FF49 
FF4A 
FF4B 
281D 
1FE6 
OjCi 
FFFC 
0040 
15F4 
15FA 
FF71 
FFFA 
FFF9 
FFFB 

160C 
160/ 
004C 
FFD5 

FF69 

FFD7 

OoOA 

FFOb 

1627 

lb40 

165A 

1675 

lto39 

164A 

0004 

0F4A 

279C 

OOOA 

0010 

005B 

007B 

0001 

FFBF 

27C7 

09D4 

09F0 

09FO 

0A61 

09B7 

09DA 

0A27 

0A3C 

0A39 

OAOO 

0004 

FFAl 



5985 
5962 
790 
789 
788 
787 
884 
8413 
369 
145 
648 
6070 
o0 7 5 
617 
147 
14H 
146 
8787 
ol03 
tj099 
322 
671 
7 98 9 
665 
67 3 
2148 
67 2 
6127 
6143 
bl65 
6180 
6139 
6152 
91 
4458 
9958 
290 
.35 
331 
345 
764 
540 
9989 
3128 
31b8 
3177 
3296 
3110 
3144 
3 22 3 
3247 
3243 
3192 
31 
556 



1124, 
1001, 
791 
790 
789 
788 
885, 
9821 
1015, 
146, 
6072, 
47 8 2 
9846 
619 
148, 
149, 
147, 



4140, 5965 

1040, 1115, 4101, 5914, 5920, 5931, 5937 



1696 



1109, 12b9 

2138 

607 8, 6100 



4107, 5335, b450, 9462 

9684 

2121, 3307, 4009, 4734, 5354, 6275, 6289, 8535, 



, 8686, 92b6, 9334 

, 6155, 6159, bl75, 6610, 6688, 6691, 6741, 6751, 



1634, 
6144, 
2130, 
6153, 
6195, 

9994 



5681 

6146, 

2134 

ol85, 

9991 



bl87, 6604, 6634 
6608, 6614, 6754 



6311 
9847 
4542 
6141 
8039 
666 
d124 
2124 
bl40 
6147 
blbO 
6171 
9992 
9990 
9993 
bl83 
6120 
6133 
1440, 1462, 1898, 5620, 6330 

9216 
9212 



541 , 
99d0, 
3117 
3155 
3163 
3279 
9820 
3118, 
3126 
3219 
37 22, 
7472, 
3308, 

557, 



b368, b375, b7b7, b816, 6993, 7485, 8793 
9963 



3718, 3788 



3795 
9819 
8536 



1228, 2035, 2053, 2187, 2194, 2508, 4820, 4823 



SYMBOL VALUe REFERENCED ON 

LNFIOO 0A81 3320, 3316 

'LNFEED 0A6F 3310, 992, 5434, 

LNKLiM OODO 366, 3616, 7278, 

liNKSAV FF96 572, 573, 2705, 

6, 8355, 



LOADR 

LOADRl 

LOCKKB 

LOCLIO 

LOCLIN 

LP 

LPM 

LSTCOL 

LSTDCD 

LSTFMI 

LSTFWD 
LSTLIN 



LSTLUl 
LSTLU2 
LSTLUP 
LSTRED 
LSTROW 

LWBUF 
LWDSP 
MAXCOL 



MAXROiN 

MAYEOL 
MAYEOP 
MDFLGl 



MEMLOK 

MFLGS 

MFLGS2 

MINUS 

MLKOIO 

MLKFLG 

MLKOF 

MLKOFO 

MLKOFF 

MLKON 

MLKROW 



MLKSCO 
MLKSCl 



1611 
161C 
0001 
05E4 
05EF 
0040 
0001 
FFC8 
FFC6 
FFC5 

0002 
FFC9 



0A9F 
OAAO 
0A9C 
FF25 
FFC7 

OOBO 
OOOU 
004F 



0017 

0040 
0020 
FFF4 



MDFLG2 FFF3 



0004 
FF7 
FF6F 

002D 
OB 19 
FF6A 
lOCO 
0AB9 
OACO 
OACB 
FF6B 



0AE4 
0AF6 



3320, 
3310, 
366, 
572, 
7947, 
6117, 
6122, 
209, 
2120, 
2128, 
728 
722 
524, 
5 2 H , 
529, 
8530 
723 
521 
37 71 
6752 
3355 
3357 
3353 
930 
525 
4929 
579 
492 
375 
7436 
8580 
374 
5283 
408 
407 
153 
7017 
154 
5504 
113 
619 
630 
5102 
305 
3464 
664 
4828 
3373 
3377 
3385 
663 
3723 
6775 
3414 
3428 



331 

99 
361 

57 
803 
988 
988 
610 
137 
143 



52 
52 
53 



52 
480 
746 
252 
322 
251 

83 

52 
493 
107 
107 
210 
775 
862 
331 
611 
151 
379 

15 
852 

lb 
553 
338 

63 

64 
639 

220 

66 
229 

99 
985 
985 

6b 
373 
692 

99 
558 



1531, 
3359, 
2031 , 



2097, 
4922, 
7569, 



3815 

1195, 
6622, 



2946, 
7920, 
8664, 
3500, 
6704, 
2987, 

1892, 
8749, 
1435, 
5617, 
3394, 
1667, 
1297, 
6978, 

3457 

3379, 

3376 



4 
2 

8 
4 

1 
8 
9 
1 
9 

9 
6 
5 
8 
2 
3 
4 

5 
4 


1 
2 

9 
5 
2 
7 
7 
6 

4, 2233, 

5, 3792, 
0, 7846, 
6 

4, 8663 
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5454, 8548, 8768, 9517, 9542, 9740 

9359 

2732, 2796, 2800, 7357, 7404, 7437, 7521, 

8363 



3227, 3821, 
7952, 7965, 
3361, 4853, 



2178, 2450, 
b609, t>632, 
8038, 8461, 



6740, 
8190, 
6231, 



2966, 
0653, 
9257 



7974, 

8978, 
6246, 



3114, 
6660, 



7986 
9631 

8076 



3216, 
6690, 



8211, 8464, 



3218, 
6693, 



3354, 
6743, 



2447, 2570, 3725, 3765, 3797 
6738, /848, 7857, 7870, 8035 



3841, 4919, 



3069, 4964, 6629, 6799, 7263, 7324, 7425, 



7975, 
8666, 
3661, 
7716, 
3064 

4078, 

8755, 

1711, 

6326 

3458, 

3325, 

14b0, 

9316 



798 3, 
8677, 
3769, 
8001, 



4703, 
9023, 
1873, 

4830, 
5138, 
1679, 



8139, 
9005, 
4920, 
8585, 



4710, 

9697 

2131, 

6919, 
5370, 
1768, 



8326, 
9325, 
4973, 
8590 



8352, 
9327, 
5044, 



8514, 
9396, 
5051, 



8566, 

9483 

5052, 



4829, 6902, 6917, 6968, 
4017, 4723, 5330, 5452, 



9699 

5541, 

4024, 



6303 
4770, 



4777, 5036, 



3396, 3455, 9696 



3374, 3392, 3415, 
3796, 4982, 66i7, 
7866, 8010 



3421 
6637 



3501, 
6705, 



3505, 
6717, 



3662, 
6726, 



AUG-01-7b 
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YMBOL VALUE REFERENCED uN 

LKSCH OAEE 3420, 3705, 37B0, 7781 
L0005 0AD6 3391, 3388 



MLKSCH 

ML0005 

MLQOIO 

MLOCK 

MLOCKO 

MLOCKl 

MLS! 20 

MNMDON 

MOVCHR 

MSGPTl 

MSGPT2 

MSGPT3 

MSGPT4 

MSGPT5 

MSGPIb 

MSGPT7 

MSGPI8 

NflLKS 

NCHOIO 

NCHAH 

Nffv^COL 

Wk;WROW 

NEXTPG 

NMFCTK 

NMPNDG 

NiMROLL 

NODCST 

NODRVR 

NOFNCT 

NORMAL 

NOSCnD 

NOSIGN 

MOIEST 

NOTSMS 

NRDWS 

NULL 

NUM2K 

NUMBER 

NUMSWP 

WWRWST 

NXBOOO 

NXBIOO 

NXB150 

NXB200 

NXSBLK 

NXT040 

NXTIOO 

NXTllO 

NXT120 

NXTCHO 

NXTCHR 

NXTPGl 
NXTRED 



OAEE 

0AD6 

0AD9 

0B0 7 

0B04 

0B16 

0AF7 

1470 

0B20 

FFFl 

FFEF 

FFFO 

FFEB 

FfE9 

FFE7 

FFEb 

FFEi 

004E 

FF99 

0B99 

FF9b 

FFDB 

FFDA 

0B2D 

0008 

OOOB 

FF8 3 

0010 

0F59 

1971 

0080 

0004 

0080 

0U04 

0F51 

FF9A 

0000 

0800 

OOCo 

OOOF 

0080 

0B67 

0B75 

0S7E 

0B83 

0B5E 

0B35 

0645 

084A 

0B59 

0B8o 

0B87 

0B45 
FF27 



3391 

3393 

3454 

3452 

3462 

3430 

5655 

3484 

155 

156 

157 

158 

159 

160 

161 

lo2 

323 

569 

3629 

567 

597 

598 

3499 

400 

1702 

594 

69 

44b6 

68 79 

412 

645 

384 

58 

446 

5b 

28 

36 

35 

5 

6 

35 

35 

35 

3 

3 



8 
9 
7 
9 
42 
39 
76 
83 
88 
592 
57 
3504 
3523 
3529 
3542 
3611 
3613 
7552 
3524 
829 



3381 

4831 

1950, 2171, 64b8 

2236 

8861 



34 
98 
12 



36 
61 



>01, 
156, 
157, 
158, 
159, 
160 
Ibl 
162 
163 
4540, 
570, 
3617 

568, 
4952, 
4988, 
9828 
1202, 
1669 
595, 

5967 
9741, 
5755 
6484, 
5220 
4108 
4109 
5b9, 

4125, 
8234 

543, 
4953, 
3591 
3574 
3586 
3579, 
4198, 
3665 
3503 
3536 
3534 
4937, 

994, 
7638, 
5054 

830 



3492, 

59b8, 

4433, 

4430 

4419, 



5596, 
2909, 

2882, 
4965, 
5039, 

8619 

50b2 

9742 
6506, 



2174, 

4128, 

8724 
4985, 



3582 
4280, 



5875, 
2368, 
8068, 



7711 

7697, 

b041 

4422 



8684, 
2927 

2896, 
5016, 
7896, 



7701, 7725 



9263 



2978, 

8758 

7903, 



9570 

2333, 
4152 

5037 
4304 



7096, 
2389, 
8 1 b 1 , 



3004, 
7949, 



9057, 
7995 



9072 



2336, 2491, 2502, 3466 



8675 

4869, 

8291, 



7053, 
8863, 



7100, 
9626 



7171, 7190, 7408 



SYMBOL VALUe 



NZEXIT 

/OCTRDX 
OPSTOR 
OTHER 

uuioev 

P 

PAGSTR 
PARMl 
PARM2 
PARM3 
PARM4 
PARM& 
PARM6 
PAHOTl 
PA ROT 2 
PARQTi 
PA ROT 4 
PAHOUT 
PERIOD 
PLUS 
POLL 
PRCCTL 
PREND 
PREVPG 
PRIMTR 
PRMOiO 
PR.^SE<^ 
PRMTAB 
PRNTAL 
/PROOIO 
PPOIOO 
PROCSR 
PROFLD 
PROMPT 
PRSTRT 
PRVIOO 
PRVHO 
PRVPGl 
PTB090 
PTBIOO 
PTB200 
PTB220 
PTB300 
PTBLK 
PTDLIC 
PTR120 
PTRABT 
PTRB6G 
PTR6D2 
PTR6LN 
PTRBPT 
PTRCF2 
PTRCLl 
PTR0A2 
PTRDYl 



OBOl 

oooa 

FFDO 

FF56 

FF4D 

0050 

0008 

FFDB 

FFDA 

FFD9 

FFD8 

FFD7 

FFD5 

0B9E 

0B9O 

0B9C 

069B 

089F 

002E 

002B 

0040 

FFFS> 

169E 

0BA9 

0008 

2749 

IbSE 

2732 

0010 

IbAO 

16B9 

0070 

FFC2 

OOOD 

1694 

OBRto 

0BB9 

0BB4 

0644 

0647 

0651 

0671 

068C 

0613 

05DC 

0212 

FE7d 

FE7U 

00 IF 

0100 

FE79 

8540 

8D02 

8560 

0001 



1325 
REFERENCED ON 

3438, 2033, 2490, 3418, 8071, 8176, 961 

131, 6134, 6418 
504, 505, 512 
749, 751 

785, 786, 1106 
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504, 

749, 751 
785, 786, 1106 
324, 5988 
33, 4735 

169, 597, 

170, 598, 

171, 599, 

172, 803 

173, 67 3, 

174, 671, 



168, 
169, 
170, 
171, 
172, 
173, 
3647 
3645, 



800, 6226, t>234, 8627, 86b9 

801, 8613, 8682 

802, 8620, 8658, 8668, 8700 

804, 7403, 7435 

805, 7410, 7421 



4005, 9675 



3643 

3641, 4013, 4034, 9688, 9692 

3649, 4011, 4020, 4046, 4064, 9680, 9686, 9690, 9700 
306 



3649, 

306 

303 

106 

152 

6220 

3660 

767 

9883 

0201 

9868 

bO 

6225 

6239 

391 

532 

270 

6208 

3684 

3686 

3671 

2208 

2210 

2221 

2245 

2272 

2169 

473 

1265 

857 

8 

4 



154 
^86 



8 



99 
56 
436 
428 
435 
477 



60 
1 



9688 
4046 

106, oOlO 

53, 1012, 1088, 2584, 
134 



834 
829 



5293, 6005 



9870 
9767 
6202 

6216 
6 



6210 

iOll, 2588, 2590, 5292, 5294, t>007, 6011 

538, 33b5, 4743, 5801, 8101, 8109, 8217, 9607 
5142 
6233, 9836 



5142 
6233, 
3664 
3691 
5043 
2250 

2172, 2274, 3453 
2177, 2180 
2227, 2240 
2204 
981, 1949, 5840 



1250, 
860 
865 

1260 

857 
1259 

1248 



1257 
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SYMBOL VALUE REIFERENCED ON 

PTRD^iJ 000^ 482 

PTKFLG F&77 860, I2b6 

PTHHD2 OOEO 485 

PTRIIO 020U 1254, 1247 

PTR0L2 0020 484 

PTROll 8U20 426 

PTR0T2 8540 433, 1262 

PTRPOl 0080 478 

PTRSB2 0040 483 

PTRSPT FE78 855, 856 

PTRSTl 8D00 427, 1245 

PTRST2 8520 434, 1255 

PTTPLN 2832 894, 895, 2249 

PUTBRK 0005 262, 5l6l 

PUTLIN 0691 2291, 3127, 7617 

QUOTt 00 2 7 301 

H 0052 325, 5109 

RADIX FFD4 174, 175, 1734, 5226 

RAMERR 0F3B 4449, 4402 

RC4010 06EF 2388, 2399 

RCA120 0721 2464, 24o9 

RCA130 072D 2475, 2483 

RCA140 0735 2480, 2458 

RCA200 073A 2488 

RCA210 074t> 2499, 2504 

RCA220 0754 2509, 2470, 2479 

RCA240 G75E 2519, 2451 

RCA245 0769 2530, 2513 

RCA250 0771 2538, 2523 

RCA255 077B 2545, 2533 

RCA260 077C" 2552, 2543 

KCA2/0 079B 2567, 2565 

RCA440 06F/ 2396, 2379, 2385 

RCA460 0702 2401, 2391 

RCAUDR 070B 2442, 5022, 8995 

RCADRO 070B 2444, 2335, 3335, 3743, 5060, 6229, 8860 

RCAORl 0684 2327, 3112, 3194, 6613 

RCA0R2 06B8 2330, 2322 

RCADR3 06BB 2332, 2364 

RCADR4 06CD 2361, 4838, 6995, 7022, 7233, 7539, 9599 

RCADRA 06A4 2315, 1004, 3910, 64bl 

RCAORB ObAC 2319, /904 

RCKYCO 0090 5720, 5327 

RCRDGO 2826 887, 888, 1899 

RCVMDE 0020 85, 1339 

RDABRT 2837 896, 897, 1314 

RDWOwT 0001 702 

RDY 0040 692 

REC 0008 756 

RECINI OOlO 707 

RECKED 280B 875, 876, 5741 

RECORD 0040 117, 1893 

RECPGE 0020 708 

RECRwD 0008 705 

RECSEP 5003 232, 233, 5422 
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SYMBOL VALUE REFERENCED OH 






lEDKEY 
t4<ELSHS 
RELTAK 
REMOTE 
REM SEX 
RESET 
RET 

REXMIT 
RGTCrU 
RHTMGN 

RIP 

RLCHSN 

RLOOyO 

RLDOSb 

RLD090 

RNGTA 

ROL080 

R0u090 

ROLIOO 

ROL200 

ROLLCT 

ROLLDN 
ROLLUP 
ROLUPl 
R0LUP2 
R0LUP3 
^OLUPC 
»ftOMERR 
RPTKEi^ 
RSETDC 
RSETKB 
RSICXU 
RSTOSP 
RSTJMP 
RSTOFF 
RSXON 
RSTTMR 
RTABLE 

Riaoio 

RTB020 

RUN 

RXMERR 

S 

SAVINP 

SAVOUT 

SBINRV 

SBLOiO 

SBL020 

SBLXFO 

SBLXFl 

SBLXFA 

SCHRST 

SCHSTl 



2805 
0004 
FF61 
0008 
0010 
0000 
0OC9 
0001 
0002 
FFBE 

0004 
llDl 
OBEF 
OCOA 
OCIB 
FF02 
0C6o 
0C74 
0C51 
0C53 
FF8 2 

0BC5 
OC27 
0C6E 
0C54 
0C56 
0C57 
0F37 
0003 
0002 
0007 
2817 
lOOE 
0001 
0004 
0002 
FFDO 
2664 
2677 
2679 
0001 
0F42 
0053 
FF23 
FF22 
0002 
16E2 
16E3 
16CA 
16D5 
16CD 
0C7C 
0C82 



873, 

634, 

741, 

125, 

84, 

389 

37 0, 

381 

765 

541 

7 078 

696 

5070 

3734 

3752 

3766 

175 

3828 

3842 

3802 

3804 

595 

6697 

3704 

3779 

3839 

3806 

3812 

3814 

4446 

211 

259 

215 

879 

7747 

390 

399 

398 

179 

9722 

9735 

9737 

753 

4455 

326 

834 

835 

633 

6296 

6298 

6267 

6288 

6274 

3853 

3859 



874, 
5071, 

743 
1874, 
1339, 

1089 



5740 
5078, 

2132, 
1877, 



5103 

2133, 
1922, 



5503, 
4751, 



5533 
5326, 



5512, 5546 



542, 543, 1423, 2101, 6363, 6803, 6839, 6962, 7000, 
7266, 7452, 7468, 7760, 8356, 8509, 8726 



9844 
3706 
3737 
3727 

176, 
3781 
3799 
3845 
3774 

605, 
6707, 
3687, 
2235, 
7874 
4928 
7840 
7860 
4160 



1571, 1735, 1754, 3886 



3526, 3532, 3685, 3688, 6606, 6641, 6646, 6679, 

6713, 8017, 8023 

3748, 6709, 6779, 9827 

3321, 3531, 4921, 8022, 9826 



1037 
1035 

883, 1039 

968, 1041, 3908 

1515, 1617 

4520 

1022, 2591, 3937 

1749, 3885 

9726 

5922, 6170 
4432 



835 

839 
4778 
6277 
6292 

975 
5347 

976 
9770 
9904 



5542 



, 3971, 4781, 5082, 9644 
, 5369, 5603 
, 5359, 5602 
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SYMBOL 


VALUE 


REFERENCED ON 




= = = =:sz:s 




= ssx=:s: 


:sxs:£Z5;: 






SCNCNT 


FF54 


772 


r 773, 


1320 




SCWVtC 


916b 


137 


, 1091, 


1324 




SCBHRvi 


FFD9 


599 


, 4955, 


4974, 


5004, 


SClRSEN 


1000 


625 


, 4032, 


5081, 


5085 


SDACUM 


0001 


643 


, 1335, 


1650, 


17u9, 


SDC2 


0100 


621 


, 5140, 


5371, 


6291 


SDTERl 


1220 


5129 


, 5461 






SDTERM 


121D 


5127 


f 9B5, 


3986, 


5644, 


SDTRMl 


loFo 


6319 


, 986, 


5128, 


5459 


SDTHMiJ 


IbFF 


b323 








vSD'IRi^3 


1 70A 


6329 


, 5432 






SDVDUN 


8000 


628 








SDVREC 


0001 


632 


, 47 78, 


5542 




sD\rsi 


OBOO 


624 








SELECr 


0020 


116 








ShliiKEil 


2H0E 


876 


, Bll, 


5742 




SEHTEK 


4000 


627, 


, 3326, 


4032, 


5329, 


SESCTb 


2680 


9750, 


, 1719 






6 ETCH 


0020 


71 








SETDFO 


170F 


6342, 


, 1891, 


6573, 


9089, 


SETDFii 


1711 


6344, 


, 5599, 


6101, 


6507 


SETFRN 


ouoc 


220 


, 7 555 






SETbCL 


0004 


261 


, 5510 






SECLFi: 


1717 


6360, 


, 9798 






setmf;? 


1739 


6391, 


, 1714, 


4986, 


5072, 


SETMON 


0008 


265 


, 5656 






SETNRM 


0u09 


2o6, 


, 5686 






SETREM 


0003 


260, 


, 5544 






SETRHI 


17 29 


6371, 


, 9799 






SETROM 


0080 


107, 


r 908, 


1087, 


5291 


SETTRG 


0001 


258, 


, 1657 






SETTRM 


17 3F 


6400, 


r 6475, 


9838 




SEVEN 


0037 


314, 


, 960 






SFCTKY 


2u00 


626, 


4032, 


5601, 


5634 


SFKCriK 


OF 6 7 


4536, 


8238 






SFKYAT 


00C8 


361, 


5754, 


9225 




SFKYOS 


OCBA 


3921, 


1648, 


9718, 


9953 


SFKYOF 


0C8D 


38 78, 


3925, 


4613, 


5678, 


SFKYQN 


0CA5 


3898, 


, 9854 






SFOOIO 


OCAE 


3906, 


, 3884, 


3887 




SFTCNT 


FF5D 


748, 


r 749 






SFTDLY 


0032 


383, 


1025, 


10 29 




5FIEND 


0010 


376, 


9241, 


9585 




SFTERR 


0008 


736 








SFTKYS 


FFA6 


553, 


554, 


1192, 


55b3, 


SFTRSl 


OCCC 


3933, 


, 9851 






SHFTl 


OCDf 


3947, 


r 3964 






SHFTiJ 


0CE6 


3953, 


r 4334 






SHFTIW 


0CE8 


3960, 


, 9745 






SHFTOT 


0CD8 


3943 


, 9744 






SI 


OOOF 


294 


, 9204 






SIX 


0036 


313 


p 952 






SKFTRM 


0008 


646 


, 6486, 


9381 




SLANT 


Ou2F 


307 








SLKYCD 


009E 


5721 









8599 



4435, 4796, 5276, 6343, 6415, 7770 



5648, 9655 



5346, 54b5, 6253 



7858, 8662 
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SYMBOL VALUE BEFERENCED ON 



SMALLA 

SMALLD 

SMALLF 

SMALLl 

SMALLK 

SMALLP 

SMALLX 

SNDAIN 

SNDCDl 

SNDC02 

SNDCDE 

SNOCTB 

SNDFCI 

SO 

SPLDIS 

SPUWL 

SPOwiOF 

SPOVvUN 

SS TAT 

SSrAI2 

STAOIO 

STA2GI 

STA2G2 

5TA2G0 

STACK 

STAPAR 

START 

STAT2 

STATGO 

STATUS 

STBOiO 

STB050 

STB060 

STBObO 

STBLMD 

srcoio 

STCHRl 
STCHST 
STCMFL 
STFORl 
STF0R2 
STOREA 
STPFIiG 

STPR 

STPRPT 
STPXFR 
STROIO 
STRTAK 
STRTbl 
STRTBL 
STRTST 
STRXMO 
STTERM 



0061 
0064 
0066 
0069 
006B 
007U 
0078 
0008 
175A 
12Ce 
17 4C 
27fiO 
OOOC 
OUOE 
0002 
FF6C 
OuFF 
0020 
0200 
0400 
0D51 
2626 
2629 
2612 
9160 
0D14 
0220 
260C 
0CF9 
OCFi 
1770 
1784 
1799 
17A2 
0004 
0D7A 
0D68 
0000 
1400 
OOFE 
OOFO 
1605 
00C4 

OOCO 

0009 
FFFF 
IIBF 
405F 
1769 
1763 
0005 
1699 
1771 



337 

339 

340 

341 

342 

343 

344 

268 

6423 

t>311 

6413 

9974 

269 

293 

29 

65B 

661 

660 

622 

623 

4044 

9666 

9668 

9648 

503 

3997 

1275 

9642 

3975 

3969 

6465 

6474 

64B3 

6493 

212 

4087 

4077 

221 

5555 

5733 

5732 

6093 

357 

9416 

353 

7914 

217 

654 

5053 

745 

6449 

6445 

213 

6214 

6460 



5089, 

9160 

9248 

9255 

1213 
6426 
9979 
9982 
9890 
6417 
5314 
9200 
8788 

663, 
3312r 
8791 
39/0, 
4026, 
4042 
9654 
4386 
1695 
1013, 
3981, 
1043 
9786 
1694 
9837 
6462 
6464 
6505 
6480 

4081 

2055, 

5400 

2852, 

1382 

1384 

3770 

4875, 

9625 

2030, 

7956, 

9125 

5397, 

5063 

6446 
97 7 
4116 
9863 
5338 



9271 



1281, 1494, 3311, 6895, 7780, 8790, 8951 
6896 

3976 
9643, 9649 



1287 
4384 



3208 

3902, 5198, 6126, 8415 

6403, 6478, 7667, 7937, 8074, 8201, 8886, 8891, 

3360, 5752, 6209, 6232, 7068, 7290, 7665, 7914, 

8097, 8097, 8216, 8939, 8965, 9437 

9612 
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smap 


2169 


8718, 


1232, 


3907, 


8657, 


8748 


6WAP0 


2163 


8713, 


8691, 


8756 






SWAPl 


216F 


8723, 


2213 








SWCHAR 


OOOB 


219, 


3949 








SWPOIO 


2177 


8730, 


8740 








swpcru 


FF24 


831, 


834 








SWPSTft 


FFAF 


543, 


544, 


8725 






r 


005 4 


327, 


4544, 


8688 






TAK 


OOOB 


695 










TCHAR 


FF68 


666, 


667, 


4328, 


4336, 


4342 


TfcMP 


FF90 


565, 


566, 


7370, 


7379, 


7953, 7964, 


TEMPI 


FF9£ 


564, 


5o5 








TEST 


0D7D 


4095, 


9862 








TESTOK 


0002 


90, 


4381 








THREE 


0033 


310, 


928 








TKI 


0080 


691 










TUNO 


FFA3 


555, 
9513 


556, 


3719, 


3789, 


4479, 4990, 


TMiOiO 


07C2 


2598, 


2594 








TMI020 


07CA 


2604, 


260 2 








TMllOO 


07DB 


2620, 


2607 








TMIllO 


7F7 


2636, 


2624 








TMIACK 


0000 


100 










TMIEN 


0002 


103, 


908, 


1087, 


2587, 


2589 


TMINTR 


07A4 


2582, 


, 929 








TMIOPt- 


002u 


105 










TMPCOL 


FF85 


589, 


593, 


2445, 


2511, 


2520, 2563, 


TMRINT 


0003 


95, 


, 2622, 


5302 






TMRON 


0001 


102 


, 908, 


1087 






TOP 100 


OF 8 5 


4484, 


r 4482 








TOPUN 


FFCB 


513. 


521, 


2099, 


2222, 


3417, 3427, 






3829, 


, 44»9, 


6681, 


7 7 48, 


7793, 7820 


TOPUPl 


0F86 


4486, 


, 3231 








TOPUPO 


OF 7 9 


4475, 


r 37d4, 


3840 






TPSTAL 


FF50 


777, 


781, 


2599 






TRIGGR 


5002 


231, 


r 232, 


1652 






TRMFC'I 


FF6D 


652 


r 658, 


2318, 


2532, 


2556, 5398, 






8106 


, 8249, 


9598, 


9613 




TRMRDif 


0F6A 


4469 


f 1267 








TRMTST 


008C 


4106 


, 988 








TRMTltP 


FFFD 


144 


f 145, 


1128, 


9679 




TSTOIO 


0DA8 


4127 


f 4137, 


4139, 


4144, 


4156 


TST020 


ODCE 


4150 


, 4141 








TST030 


0009 


4159 


, 4146 








TST050 


0DE8 


4182 


, 4135 








TST060 


0DF9 


4197 


, 4201 








TST090 


0E06 


4209 


, 4282 








TSTIOO 


0E09 


4215 


, 4224 








TST115 


0£U 


4227 


r 4230 








TST120 


OEIA 


4235 


r 4245 








TST125 


0E27 


4248 


r 4251 








TST130 


0E2C 


4256 


r 4267 








TST140 


0E42 


4279 


r 427 4 








TST150 


0E55 


4303 


, 4311 








TST160 


0E68 


4314 


r 4307 









8062 



5040, 5107, 7778, 9441 



6631, 6694 



3711, 3753, 3791, 3803 



5463, O402, 6612, 8100, 
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TST200 


0E72 


4324| 


4352 






TST220 


0E79 


4329, 


4346 










'fST240 


0E84 


4335, 


4348 










TST420 


OEAF 


4359, 


, 4370 










TST440 


0EC4 


4372, 


, 4367 










TST500 


OEEO 


4397, 


4312, 


4317 








TST510 


OEEF 


4400, 


4239, 


4261 








TST600 


0EF3 


4414, 


4169 










TST610 


OFOE 


4428, 


r 4420 










TSTCTU 


2811 


877, 


. 878, 


4100 








TWO 


0032 


309( 


, 920 










tiPSE't 


OFAB 


4527, 


, 9774 










U 


0055 


328 












UN 110 


FF63 


720, 


, 731 










UNLKKB 


0002 


210 


, 6076 










USL 


0010 


757 












USRfcAD 


0002 


703 


, 1313 










VERIFY 


0080 


710 












VERSN 


0050 


5, 


, 905, 


4607, 


658 3, 


8434 




VEftSNl 


0051 


6, 


, 2649 










VRT8AR 


007C 


346, 


, 9651 










WBSE 


0020 


126 












WHPDEL 


0020 


637 


f 6942, 


6980 








WHPFLG 


0040 


638, 


, 1465, 


1477, 


8540 






WRTERR 


0020 


738 












^TLQIO 


236 


1292, 


, 1322, 


1327, 


1342 






WTl,020 


025F 


1319, 


f 1299, 


1311 








WTii200 


0274 


1332, 


, 1303, 


1305, 


1441 






WTL205 


028C 


1344, 


, 1340 










wTli2iO 


02A6 


1362, 


, 1350 










WTL250 


0289 


1374, 


, 13b4, 


1366 








WTL2bO 


02BB 


1376, 


, 1391, 


1396, 


1401, 


1406 




wT]u2 70 


02 DC 


1393, 


, 1381 










WTL,280 


02Ei 


1398, 


, 1383 










WTL290 


02E9 


1403, 


r 1385 










WTL300 


02FO 


1412, 


, 1348 










WTL310 


0313 


1430, 


f 1414, 


1418, 


1421 






WTLOOP 


0230 


1286 


, 1358, 


1369, 


1388, 


1434, 1437 




XBF2DS 


0080 


649 


, 4112, 


5276, 


8539 






XDS2BF 


0020 


715 


r 3329, 


4720, 


9426, 


9531 




XFRlbIM 


FF47 


791 


, 792 










XMDOOO 


0FC8 


4560 


, 4577 










XMDOIO 


OFCB 


4563 


f 4580, 


4586 








XMD020 


0FE7 


4584 


, 4575 










XM0030 


OFEO 


4590 


f 4572 










XMOHME 


17F4 


6572 


f 5379, 


b452, 


9815 






XMOMLY 


00C2 


355 


, 2397, 


6215, 


8134, 


8205, 8493, 8873, 9211 




XMS2DS 


OFCD 


4567 


f 1219, 


7733 








XPOOOl 


17C9 


6529 


, 6553 










XPD005 


17D4 


6535 


, 6528 










XPDOIO 


170b 


6543 


, 6534 










XPD050 


17EA 


6560 


, 6533 










XPUTDC 


17C1 


6524 


F 987, 


2136, 


3980, 


5090, 5094, 5098, 5121, 


5402 






5423 


, 5431, 


5442, 


5649, 


6322, 6325, 6331, 6521, 


9653 


XTRASP 


FE80 


845 


r 847 











5409 



13255-90003 


Rev AUG-01- 


76 








SYMBOL 


VALUE 


REFERENCED ON 






Y 


0059 


329, 


5105 




m mm "m- «r mm mm m 






Z 


005A 


330 












2ALPCK 


4823 


199, 


200, 


8231 








Z6ELL 


4814 


194, 


195, 


1341, 


1426, 


3463, 


4322, 5191, 






9015, 


9034, 


9118, 


9135, 


9736 




ZBgKl 


0800 


2648, 


4605, 


2650 








ZBRK2 


1000 


4606, 


6581, 


4608 








ZBftK2C 


1002 


4609, 


4604 










ZBRK3 


1800 


6582, 


8432, 


6584 








ZBRK4 


2000 


8433, 


6435 










ZCLMDl 


4811 


193, 


194, 


3381, 


5690, 


5802, 


8409 


ZCLXMT 


481A 


196, 


197 










2CILAL 


6014 


282, 


, 283 










ZDCBA5 


5000 


230, 


, 231, 


241 








ZDCCTL 


5011 


244, 


r 245, 


5188, 


56tt7 






ZDCINT 


5026 


251 < 


r 5154 










ZDCMON 


5ooe 


243, 


r 244, 


2631 








ZDCXST 


5014 


245, 


, 246, 


5261 








ZD5PMS 


0040 


967 












ZERO 


0030 


30B, 
9253, 


, 1207, 
9262 


2678, 


2746, 


2766, 


2787, 3651, 


ZGETAL 


600E 


280, 


, 281 










ZGETOC 


5017 


246, 


247, 


1883, 


6167 






ZGETK^i 


4805 


189, 


, 190, 


1304, 


9121 






ZGTBIN 


501D 


248, 


r 249 










ZIN2AL 


6003 


277, 


, 278, 


1119 








ZIN20C 


500B 


242, 


r 243, 


1100 








ZINIAL 


6002 


276, 


f 211 , 


U14 








21NIDC 


5008 


241 


f 242, 


1098 








Zlf^IKB 


4802 


188 


f 189, 


1097 








ZINTAL 


6008 


278 


, 279, 


b016 








ZKBBAS 


4800 


187 


, 188 










ZKBCTL 


4808 


190, 


, 191, 


1036, 


2597, 


3950, 


4099, 4117, 






5850, 


, 5856, 


6077, 


6105, 


6549, 


7556, 9126 


2KBM0N 


480B 


191, 


, 192r 


2629 








ZMONAL 


600B 


279, 


, 280, 


2628 








ZMSGAL 


601A 


284 












ZNDBIN 


5023 


250 


r 251 










ZNUMCK 


4826 


200 


f 204, 


8233 








ZPUTAL 


6011 


261 


, 282 










ZPUTDC 


501A 


247, 


r 248, 


6532 








ZRETRN 


0706 


2407 


, 3366, 


7905, 


8208, 


8236 




ZSTAAL 


6017 


28 3 


f 284 










ZST61N 


5020 


249 


, 250 










ZSTJPR 


481D 


197 


r 198, 


9879 








ZSTLKY 


4820 


198 


f 199, 


9873 








2STMD1 


480E 


192 


f 193, 


3398, 


3461, 


5668, 


7762, 8403 


ZSTXMT 


4817 


195 


, 196 










1348 


SYMBOLS 


, 458^ 


i REFERENCES, 


47 


WORK 


TRACKS 



6230, 6564, 8495 



4531, 5223, 9230 



4393, 5323, 5401 



